Match Attribute Rotation

[VisDak]

Hi All,

 

Good day, i just incounter on this forum about attribute rotation, the lips is great , i'm just thinking to make it specific angle rotation or by matching a attribute rotation by selecting the soure attribute and then select all attribute text to be match the rotation, any of those who have like this routes,

 

Many thanks,

[Lee Mac]

You can specify the angle of rotation in the LISP (RoAtt) in this thread:

http://www.cadtutor.net/forum/showthread.php?t=37859

 

Lee

[Lee Mac]

This can match the rotation:

 

The source can be any object with the Rotation Property (i.e. MTEXT, TEXT, ATTRIB...)

 

(defun c:mtrot (/ ent sObj att dObj)
 (vl-load-com)
 (if
   (and
     (setq ent
       (car (nentsel "\nSelect Source Object: ")))
     (vlax-property-available-p
       (setq sObj
         (vlax-ename->vla-object ent)) 'Rotation))
   (while
     (and
       (setq att
         (car (nentsel "\nSelect Destination Attribute: ")))
       (eq "AcDbAttribute"
         (vla-get-ObjectName
           (setq dObj
             (vlax-ename->vla-object att)))))
     (vla-put-rotation dObj
       (vla-get-rotation sObj))))
 (princ))