Visual LISP, AutoLISP and General Customization

Visual LISP, AutoLISP and General Customization

Reply
Distinguished Contributor
164 Posts
4 Kudos
Registered: ‎04-09-2008
Post 1 of 2

Rotating a table to current UCS

295 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
84 Posts
10 Kudos
Registered: ‎02-07-2001
Post 2 of 2

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,

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Are you interested in helping shape the future of the Autodesk Community? To participate in this brief usability study, please click here. Your time and input is greatly appreciated!