Угол поворота 3dSolid'а

Sub GetSolidPoints(solid As Acad3DSolid, ByRef StartPoint, ByRef EndPoint)
' возвращает начальную и конечную точку солида
    Dim ss      As AcadSelectionSet
    Dim sat     As String
    Dim i       As Long
    Dim line    As AcadLine
    Dim objs(0) As AcadEntity
    Dim col     As Collection
    Dim LnCentr As Variant
    Dim sldCentr As Variant
    Dim delta   As Variant
    While ThisDrawing.SelectionSets.Count > 0
        ThisDrawing.SelectionSets.Item(0).Delete
    Wend
    '
    Set ss = ThisDrawing.SelectionSets.Add("$BOX$")
    '        ss.SelectOnScreen
    Set objs(0) = solid
    ss.AddItems (objs)
    sat = GetTrmpDir & "\Box"
    ThisDrawing.Export sat, "sat", ss
    ss.Delete
    ' заполняем список точек
    Set col = New Collection
    Set col = ReadPoints(GetTrmpDir & "\Box.sat")
'    MsgBox "Box size is:" & vbCr & _
'        "Length: " & vbTab & GetDistance(col.Item(1), col.Item(5)) & vbCr & _
'        "Width: " & vbTab & GetDistance(col.Item(2), col.Item(3)) & vbCr & _
'        "Height: " & vbTab & GetDistance(col.Item(1), col.Item(2))
'    Set line = ThisDrawing.ModelSpace.AddLine(col.Item(1), col.Item(5))
    ' задаем начальные и конечные точки
    StartPoint = col.Item(5)
    EndPoint = col.Item(1)
    ' получаем центр линии
    LnCentr = getLineCentr(StartPoint, EndPoint)
    sldCentr = solid.Centroid
    delta = getDxDyDz(LnCentr, sldCentr)
    Call MoveDxDyDZ(StartPoint, delta)
    Call MoveDxDyDZ(EndPoint, delta)
  '  Set line = ThisDrawing.ModelSpace.AddLine(StartPoint, EndPoint)
End Sub
Public Function ReadPoints(fname As String) As Collection
     Dim fn             As Variant
     Dim sr             As String
     Dim fs             As Variant
     Dim ForReading     As Variant
     Dim col            As New Collection
     Dim tmp(1)         As String
     Dim vr             As Variant
     ForReading = 1
     Set fs = CreateObject("Scripting.FileSystemObject")
     Set fn = fs.OpenTextFile(fname, ForReading, False)        ''<--full path
     Do While Not fn.AtEndOfStream
          sr = fn.Read(0)
          sr = fn.ReadLine
          If sr Like "point*" Then
               sr = Trim(Mid$(sr, 17, Len(sr) - 18))
               vr = ParsePoint(sr)
               col.Add vr
          End If
     Loop
     fn.Close
     Set fn = Nothing
     Set fs = Nothing
     Set ReadPoints = col
End Function
Private Function ParsePoint(s As String) As Variant
     Dim x() As String
     Dim v(2) As Double
     Dim i As Integer
     x = Split(s, Chr(32))
     For i = 0 To 2
          v(i) = StrToNoom(x(i))
     Next
     ParsePoint = v
End Function