Sorry, the second and third lines in the code I entered above were test lines; they were eliminated when I ran the code, but that did not fix the problem. I also tried your suggestion of removing the zoom line, but still the same error occurs:
"Specify first corner:
Can't reenter LISP.
Invalid...
Thank you very much, CarlAK. You are absolutely correct and that is exactly what I was looking for.
I also have another question, and if you have any input it would be greatly appreciated. I have the code that compares two selection sets within one drawing, and deletes any duplicate blocks...
Nevermind. The problem turned out to be in the code that acquired the insertion point. While "cdr" worked for the block name (entname), "cadr" was required for the insertion point:
(setq inspoint (cadr (assoc 10 (entget bLock))))
Now the if-statement works fine.
Hello,
I am writing a routine to compare two selection sets that each contain multiple blocks. There is an if-statement, and it is as follows:
(if (and (= entname entname2) (= inspoint inspoint2))
(progn
(entdel bLock)
(entdel bLock2)
)
)
The program will not enter...
I have written a VBA program in AutoCAD to open excel, copy a spreadsheet, and do a paste special into AutoCAD. It is a fairly automated process, but I cannot find a way to suppress the paste-special dialog box in AutoCAD. Does anyone know how to run the paste as link command directly from...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.