Insert Multi-jog Leader Example (VBA)
This example shows how to insert a multi-jog leader.
'----------------------------------------------------------
'
' Preconditions: Drawing document is open and
' a
line exists at the coordinates
' specified
in this example.
'
' Postconditions: A multi-jog leader is inserted.
'
'----------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDoc As SldWorks.ModelDocExtension
Dim swDrawDoc As SldWorks.DrawingDoc
Dim swMathUtil As SldWorks.MathUtility
Dim swMathPoint1 As SldWorks.MathPoint
Dim swMathPoint2 As SldWorks.MathPoint
Dim swMathPoint3 As SldWorks.MathPoint
Dim swMultiJogLeader As SldWorks.MultiJogLeader
Dim boolstatus As Boolean
Sub main()
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
Set
swModelDoc = swModel.Extension
Set
swDrawDoc = swModel
If
swDrawDoc Is Nothing Then
MsgBox
"No active document."
Exit
Sub
End
If
Set
swMathUtil = swApp.GetMathUtility
swModel.ClearSelection2
True
boolstatus
= swModelDoc.SelectByID2("Line1",
"SKETCHSEGMENT", 0.1249403913043, 0.1859776956522, 0, False,
0, Nothing, swSelectOptionDefault)
'
Create 3 points
Dim
point1(2) As Double
point1(0)
= 0.123
point1(1)
= 0.103
point1(2)
= 0
Set
swMathPoint1 = swMathUtil.CreatePoint((point1))
Dim
point2(2) As Double
point2(0)
= 0.207
point2(1)
= 0.16
point2(2)
= 0
Set
swMathPoint2 = swMathUtil.CreatePoint((point2))
Dim
point3(2) As Double
point3(0)
= 0.29
point3(1)
= 0.084
point3(2)
= 0
Set
swMathPoint3 = swMathUtil.CreatePoint((point3))
Dim
arr(0 To 2) As Object
Set
arr(0) = swMathPoint1
Set
arr(1) = swMathPoint2
Set
arr(2) = swMathPoint3
Dim
vPtArr As Variant
vPtArr
= arr
'
Insert multi-jog leader
Set
swMultiJogLeader = swDrawDoc.InsertMultiJogLeader3((vPtArr),
swDOT_ARROWHEAD, swSLASH_ARROWHEAD)
End Sub