Hide Table of Contents

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



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Insert Multi-jog Leader Example (VBA)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2012 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.