TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: PM on July 31, 2022, 01:01:53 PM
-
Hi. I am using this code to rote the text (to be easy to read) when i rotate viewport ucs (in case to print a drawing). I need help to update this code. I want to select multiple block and text or Mtext
(defun c:ROV
( / ss2 i vta tmp
) (prompt "\n Select TEXT and MTEXT to rotate ") i 0
vta
(- 0 (getvar "viewtwist")) )
(vlax-put tmp
"Alignment" acAlignmentLeft) )
(vlax-put tmp
"AttachmentPoint" acAttachmentPointTopLeft) )
)
)
)
Thanks
-
Not sure how you want to pick blocks, (setq ss2 (ssget '((0 . "*TEXT,INSERT")))
Mtext supports the auto rotation in a viewport your homework.
-
@PM:
If you have the expresstools installed, then look at the TORIENT command. (You can find the lisp in ACETTXT.lsp)