Hi All
I have a great deal of code that I use to speed up my drawing process that I have used for years without a problem until 2022. The latest software update resolved a few of problems I was experiencing but not all of them. I am not quite sure what about the following code keeps hanging up. It works fine in all versions up 2021. You can substitute "wdstud" with any block you wish to test the routine with. Thank you for any help you can provide.
Manuel A. Ayala
Code:
(if (setq pt1 (getpoint "\nInsert point: "))
(progn
(command "_.insert" "wdstud" pt1 "" "" "")
(setq ent1 (entlast))
(princ "\nRotate: ")
(command "_.rotate" ent1 "" pt1 pause)
(command "_.copy" ent1 "" "m" pt1)
(setq pt2 pt1)
(while (and pt2 (/= pt2 "done"))
(setq pt2 (getpoint pt1 "\nSecond point of displacement <done>: "))
(cond
((null pt2)(setq pt2 "done")(command))
((LISTP pt2) (command pt2))
)
)
)
)