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.