AutoLisp - Limpar

Segue o Código abaixo


(defun c:limpar ()
  (command "_.purge" "all" "*" "N")
  (prompt "\nArquivo Limpo de Entidades não Utilizadas")
  (princ)
)

Posted in: AutoCAD , AutoLisp , Códigos