I am pretty new at .NET so please any advice would be very helpfull.
I have created this function that is to move all the attributes based on a startpt and a newpt. If the last argrument to the function is true, all attributes move the same amount in the x & y direction(this part is working fine). If the argument is false. I want the attributes to align with the x value of the first attribute. It works unless the user has set a UCS. I need to align the attributes to the UCS not the WCS. Can't seem to figure out the right transformby to apply.
Public Sub MoveAttributes(ByVal Blockobj AsObjectId, ByVal stpnt AsPoint3d, ByVal endpt AsPoint3d, ByVal alignatt AsBoolean)
If Blockobj.IsNull ThenExit Sub
Dim attributeDistFactor AsDouble = 0.1371425
Dim xmove AsDouble = stpnt.X - endpt.X
Dim ymove AsDouble = stpnt.Y - endpt.Y
Dim basey AsDouble = 0
Dim basex AsDouble = 0
Dim newx AsDouble = 0
Dim newy AsDouble = 0
Dim acaddoc AsDocument = Application.DocumentManager.MdiActiveDocument
Dim ed AsEditor = acaddoc.Editor
Dim retList AsNewList(Ofattrefxy)
Using mytrans AsTransaction = acaddoc.TransactionManager.StartTransaction