mcguirepm Posted June 25, 2009 Share Posted June 25, 2009 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.