Coordinate transformation based on insertion point, normal, and rotation in VBA

[laufendenummer]

Hi all,

I have a drawing with blocks, that are 3D rotated around every axis. I need to get the global coordinates of vertices within these blocks.   

I know the local coordinates within a block and I understand how to get the block normal and rotation, but I have no idea how to get from insertion point, normal, rotation, and local coordinates to the transformed global coordinates.

I know, that there are some possibilities in c# but I need to do this in VBA.

Any hints?

[Alexander.Rivilis · Accepted solution]

Maybe this reference was useful for you: http://jprdintprev.autodesk.com/adn/servlet/devnote?siteID=4814862&id=5411274&linkID=4900509

[laufendenummer]

Amazing! I rewrote that for my purpose and it worked, thanks a lot! 

This is what my test code looks like:

Sub BlockTest()
'Block Rotated 25° around x
'Block Rotated -50° around y
'Block Rotated 75° around z
'InsertionPoint: x=7561, y=8476, -4675
'Local Point in OCS: x=1250,y=1000, z=-1455
'Measured Solution  X = 6121.91501579     Y = 8982.79425598     Z = -6208.53154201

Dim objEnt As AcadEntity
Dim objBlkRef As AcadBlockReference
Dim varInsPnt As Variant
Dim dblLocalPnt(0 To 2) As Double, dblTmp(0 To 2) As Double
Dim varTransPnt As Variant

dblLocalPnt(0) = 1250
dblLocalPnt(1) = 1000
dblLocalPnt(2) = -1455

For Each objEnt In ThisDrawing.ModelSpace
   If TypeOf objEnt Is AcadBlockReference Then
       If objEnt.Name = "TEST" Then
           Set objBlkRef = objEnt
           Exit For
       End If
   End If
Next

varInsPnt = objBlkRef.InsertionPoint

dblTmp(0) = dblLocalPnt(0) * Math.Cos(objBlkRef.Rotation) - dblLocalPnt(1) * Math.Sin(objBlkRef.Rotation)
dblTmp(1) = dblLocalPnt(0) * Math.Sin(objBlkRef.Rotation) + dblLocalPnt(1) * Math.Cos(objBlkRef.Rotation)
dblTmp(2) = dblLocalPnt(2)

varTransPnt = ThisDrawing.Utility.TranslateCoordinates(dblTmp, acOCS, acWorld, False, objBlkRef.Normal)
varTransPnt(0) = varTransPnt(0) + varInsPnt(0)
varTransPnt(1) = varTransPnt(1) + varInsPnt(1)
varTransPnt(2) = varTransPnt(2) + varInsPnt(2)

End Sub