Hello everybody.
I have been using a lisp for years with which I can rotate blocks without their attributes rotating. These simply remain horizontal.
If I now use this lisp/ command and select a block, I do not first see the message "select basepoint" and then the message "specify rotation angle or [Copy Reference] <0.00>:" in my taskbar.
I do see this with the normal rotate command.
Nothing has changed in my lisps files or CUI and AutoCAD has not had an update.
Anyone have any idea why this
(user AutoCAD 2024.1.3)
(defun c:RB ( / ss i vla-blockent)
(if (setq ss (ssget "_:L"))
(progn
(command "_.ROTATE" ss "")
(while (> (getvar 'CMDACTIVE) 0)
(command PAUSE))
(repeat (setq i (sslength ss))
(setq vla-blockent (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
(if (eq (vla-get-hasattributes vla-blockent) :vlax-true)
(foreach att (vlax-invoke vla-blockent 'getattributes)
(vla-put-rotation att 0)))))
(princ "\nNothing selected."))
(princ)
)
