Automatizzare la pulizia di un file autocad (purge all)

Piccolo script per l'eliminazione dei layer e blocchi inutili, il tutto senza chiedere conferme.

 

(defun C:APURGE ()
  (command "._purge" "_all")
  (while (not (zerop (getvar "cmdactive")))
     (command "Y")
   )
   (princ)
)
Compago
Chiudi