View Full Version : UCS Manipulation

25th Jun 2009, 12:37 pm
I have a VBA program that I am using to Select a block and then I want to move the UCS to teh insertion point of that block and set teh X axis parallel to the rotation angle of the block.

TempPt1(0) = brefobj.InsertionPoint(0)
TempPt1(1) = brefobj.InsertionPoint(1)
TempPt1(2) = brefobj.InsertionPoint(2)
AcActDoc.ActiveUCS.Origin = TempPt1

With the code above I can move the origin of the current UCS. I have tried a variety of different approaches to rotating the UCS, but have had no success.
Any insights would be appreciated.