Community
Hi!
I add 2 files:
After starting the lisp file Acad crashes with the error
"internal error! insert.cpp3320 unknown error 1000".
Thank you!
Seems to work for the case that the BLOCK is not yet defined:
(if (and (setq NameL "L11" cpt '(0 55 0))
(setq sset2 (ssget)) )
(progn (princ"\n Gets: ")(prin1 (sslength sset2))
(if (tblsearch "block" NameL)
(command "_.-block" NameL "_Y" cpt sset2 "")
(command "_.-block" NameL cpt sset2 "")
) ) ) ; if get
To control the response requirements for the case
that the 'L11' is existing block name,
you need to control the system variable 'EXPERT'
if not more.