Lisp per cancellare blocco

czar

Utente Junior
Professione: tecnico
Software: SWX 2016 SP. 5.0
Regione: Emilia Romagna
#1
Ciao, aggiungo anche questa per eliminare un blocco lanciando il comando DELBLOCK una volta caricata la lisp

(defun C:delblock (/)
(if (setq ss (ssget "x" (list (cons 0 "INSERT") (cons 2 "NOME BLOCCO"))))
(command "_erase" ss "")
)
)