UCS Manipulation

[Anonymous]

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.
Pat

[Anonymous]

isn't there an xdir property? or is that read only?

wrote in message news:6208179@discussion.autodesk.com...
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.
Pat