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)
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))
Access a broad range of knowledge to help get the most out of your products and services.
Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.
Upgrading to a 2015 product? Make sure to check these out 1st!