only AnnotPoint and Annotstation
;; ROTATE BLOCK TO VIEW
(defun c:RTB2V ( / ss ang ) (vl-load-com)
(if (and (setq ss (ssget "_:L" '((0 . "INSERT"))))
(setq ang (- 0 (getvar "viewtwist")))
)
(
(lambda ( i / e o )
(while (setq e (ssname ss (setq i (1+ i))))
(vla-put-rotation (setq o (vlax-ename->vla-object e)) ang)
)
)
-1
)
)
(princ)
)
I find this code.Works perfect for text but is not working for blocks. Can anyone update this code to identify the blocks with names AnnotPoint and Annotstation