Visual LISP, AutoLISP and General Customization

Reply
Distinguished Contributor
Posts: 163
Registered: ‎04-09-2008
Message 1 of 2 (231 Views)

Rotating a table to current UCS

231 Views, 1 Replies
09-12-2012 11:50 AM

Tables do no have a rotation angle. I can find the insert point, but there is no other point to make an angle calculation with. 

 

(setq objTable (vlax-ename->vla-object (car (entsel))))

(vlax-dump-object objTable T)

Valued Contributor
Posts: 84
Registered: ‎02-07-2001
Message 2 of 2 (217 Views)

Re: Rotating a table to current UCS

09-13-2012 02:34 AM in reply to: Redraiderr2009

You may use vla-TransformBy with the UCS's transformation matrix.

To get the UCS transformation matrix it mus be a NAMED UCS.

This is a very simple example, it supposes your UCS is named previously:

(defun align-table  (/ table mtrans)
  (setq table (vlax-ename->vla-object
                (car (entsel "\nSelect Table:"))))
  (setq mtrans
         (vla-GetUCSMatrix
           (vla-get-ActiveUCS
             (vla-get-activedocument (vlax-get-acad-object)))))
  (vla-TransformBy table mtrans))

 Regards,

You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

Announcements
Welcome to the new Autodesk Community!
If this is your first visit, click here to get started and make the most of the Community. Let us know what you think of the new experience in the Community Feedback Forum.

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Ask the Community