Dim swApp As SldWorks.SldWorks
Sub main()
'Dim Pi As Double
Pi = 3.14159265359
Set swApp = Application.SldWorks
Dim Vectdir1() As Double
Dim VectDir2() As Double
ReDim Vectdir1(2)
ReDim VectDir2(2)
'To fill these out you need 2 3d points
Dim StartPoint1(2) As Double
Dim StartPoint2(2) As Double
Dim EndPoint2(2) As Double
Dim EndPoint1(2) As Double
EndPoint1(1) = -1
EndPoint2(1) = 1
'Get Some reference to fill these out
Dim I As Integer
For I = 0 To 2
Vectdir1(I) = EndPoint1(I) - StartPoint1(I)
VectDir2(I) = EndPoint2(I) - StartPoint2(I)
Next
'Now that we have the vector magnatude defined we first need to get the Dot Product
Dim DotProd As Double
DotProd = (Vectdir1(0) * VectDir2(0)) + (Vectdir1(1) * VectDir2(1)) + (Vectdir1(2) * VectDir2(2))
Dim AngleBetween As Double
If DotProd <> 0 Then
Dim VectMult As Double
VectMult = Length(Vectdir1(0), Vectdir1(1), Vectdir1(2)) * Length(VectDir2(0), VectDir2(1), VectDir2(2))
If VectMult = 0 Then
AngleBetween = 0
Else
'NEED FORMULA FOR VBA AND ARCCOS
AngleBetween = Acos(DotProd / VectMult)
End If
Else
If (Vectdir1(0) <> 0 Or Vectdir1(1) <> 0 Or Vectdir1(1) <> 0) And (VectDir2(0) <> 0 Or VectDir2(1) <> 0 Or VectDir2(2) <> 0) Then
AngleBetween = Pi / 2
Else
AngleBetween = 0
End If
End If
Debug.Print "angle between = " & ((AngleBetween * 180) / Pi)
End Sub
as you see above in bold. you will need to find a way to calculate ACos or Cos ^-1
