czar
Guest
hi, I also add this to delete a block by launching the command of the block once loaded the lisp
(defun c:delblock (/)
(if (setq ss (ssget "x" (cons 0 "insert") (cons 2 "block name"))))
(command "_erase" ss")
)
)
(defun c:delblock (/)
(if (setq ss (ssget "x" (cons 0 "insert") (cons 2 "block name"))))
(command "_erase" ss")
)
)