Topic: Help: Rotate text and block by viewport ucs rotation

[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

Code - Auto/Visual Lisp: [Select]

1. (defun c:ROV ( / ss2 i vta tmp)
2.   (vl-load-com)
3.   (prompt "\n Select TEXT and MTEXT to rotate ")
4.   (setq ss2 (ssget '((0 . "*TEXT")))
5.         i   0
6.         vta (- 0 (getvar "viewtwist"))
7.   )
8.   (repeat (sslength ss2)
9.     (setq tmp (vlax-ename->vla-object (ssname ss2 i)))
10.     (if (eq (vla-get-ObjectName tmp) "AcDbText")
11.       (progn
12.         (vlax-put tmp "Rotation" vta)
13.         (vlax-put tmp "Alignment" acAlignmentLeft)
14.       )
15.       (progn
16.         (vlax-put tmp "Rotation" 0.0)
17.         (vlax-put tmp "AttachmentPoint" acAttachmentPointTopLeft)
18.       )
19.     )
20.     (setq i (1+ i))
21.   )
22. )
23.  

Thanks

[BIGAL]

Not sure how you want to pick blocks, (setq ss2 (ssget '((0 . "*TEXT,INSERT")))

Mtext supports the auto rotation in a viewport your homework.

[Crank]

@PM:
If you have the expresstools installed, then look at the TORIENT command. (You can find the lisp in ACETTXT.lsp)