Automatizzare la pulizia di un file autocad (purge all)

Details

Category: Lisp

Published on Tuesday, 06 December 2011 10:46

Hits: 813

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)
)

• < Prev