Hide Table of Contents

Change Dimension Style Options of Leader Example (VBA)

This example shows how to change the DimensionStyle arrow and text options of a specific Leader. The DimensionStyle arrow and text options of all other existing and new Leaders use the DimensionStyle options of the drawing. 

'-----------------------------------------------------------------
' Preconditions:
' 1. Create a VBA macro in a software product in which VBA is
'    embedded.
' 2. Copy and paste this example into the Visual Basic IDE.
' 3. Add a reference to the DraftSight type library,
'    install_dir\bin\dsAutomation.dll.
' 4. Start DraftSight and open a drawing document.
' 5. Press F8 to step through the macro.
'
' Postconditions:
' 1.  Draws two Leaders, DSUserData and DS.
' 2.  Gets DimensionStyleUserData for DSUserData Leader.
' 3.  Gets arrow options for DSUserData Leader.
' 4.  Modifies DSUserData Leader's arrow options only.
' 5.  Zooms to fit the drawing and execution stops.
' 6.  Examine the drawing to verify that only DSUserData Leader's
'     arrow changed.
' 7.  Gets text options for DSUserData Leader.
' 8.  Modifies DSUserData Leader's text options only.
' 9.  Inserts third Leader, DS2.
' 10. Examine the drawing to verify that DS and DS2 Leaders
'     have the same arrow and text options.
'----------------------------------------------------------------
Option Explicit
    Sub main()    
        Dim dsApp As DraftSight.Application
        'Connect to DraftSight application
        Set dsApp = GetObject(, "DraftSight.Application")        
        If dsApp Is Nothing Then
            Return
        End If
        'Get active document
        Dim dsDoc As DraftSight.Document
        Set dsDoc = dsApp.GetActiveDocument()        
        If dsDoc Is Nothing Then
            MsgBox ("There are no open documents in DraftSight.")
            Return
        End If
        'Get Sketch Manager
        Dim dsModel As DraftSight.Model
        Dim dsSketchMgr As DraftSight.SketchManager
        Set dsModel = dsDoc.GetModel()
        Set dsSketchMgr = dsModel.GetSketchManager()
        'Insert first Leader
        Dim Coordinates(8) As Double
        Coordinates(0) = 0
        Coordinates(1) = 0
        Coordinates(2) = 0
        Coordinates(3) = 4
        Coordinates(4) = 4
        Coordinates(5) = 0
        Coordinates(6) = 10
        Coordinates(7) = 4
        Coordinates(8) = 0
        Dim Width As Double
        Width = 5#
        Dim myNote As String
        myNote = "DSUserData"
        Dim dsLeader As DraftSight.Leader
        Set dsLeader = dsSketchMgr.InsertLeader(Coordinates, Width, myNote)
        'Insert second Leader
        Dim Coordinates2(8) As Double
        Coordinates2(0) = 8
        Coordinates2(1) = 8
        Coordinates2(2) = 8
        Coordinates2(3) = 8
        Coordinates2(4) = 8
        Coordinates2(5) = 8
        Coordinates2(6) = 20
        Coordinates2(7) = 8
        Coordinates2(8) = 8
        Dim myNote2 As String
        myNote2 = "DS"
        Dim dsLeader2 As DraftSight.Leader
        Set dsLeader2 = dsSketchMgr.InsertLeader(Coordinates2, Width, myNote2)
        'Zoom to fit
        dsApp.Zoom dsZoomRange_e.dsZoomRange_Fit, Nothing, Nothing
        'Get DimensionStyleUserData for dsUserData Leader
        Dim dsDimStyleUserData As DraftSight.DimensionStyleUserData
        Set dsDimStyleUserData = dsLeader.GetDimensionStyleUserData()
        'Get DimensionStyleArrowsOptions for DSUserData Leader
        Dim dsArrowsOptions As DraftSight.DimensionStyleArrowsOptions
        Set dsArrowsOptions = dsDimStyleUserData.GetDimensionStyleArrowsOptions()
        'Set arrow size for DSUserData Leader
        dsArrowsOptions.Size = 1#
        'Set arrow type for DSUserData Leader
        dsArrowsOptions.SetLeaderArrow dsDimensionArrowType_e.dsDimensionArrowType_Dot, ""
        'Get DimensionStyleTextOptions for DSUserData Leader
        Dim dsTextOptions As DraftSight.DimensionStyleTextOptions
        Set dsTextOptions = dsDimStyleUserData.GetDimensionStyleTextOptions()
        'Set text vertical position for DSUserData Leader
        dsTextOptions.VerticalPosition = dsDimensionTextVerticalPosition_e.dsDimensionTextVerticalPosition_Centered
        
        'Insert third Leader
        Dim Coordinates3(8) As Double
        Coordinates3(0) = 16
        Coordinates3(1) = 16
        Coordinates3(2) = 16
        Coordinates3(3) = 16
        Coordinates3(4) = 16
        Coordinates3(5) = 16
        Coordinates3(6) = 40
        Coordinates3(7) = 16
        Coordinates3(8) = 16
        Dim myNote3 As String
        myNote3 = "DS2"
        Dim dsLeader3 As DraftSight.Leader
        Set dsLeader3 = dsSketchMgr.InsertLeader(Coordinates3, Width, myNote3)
        'Zoom to fit
        dsApp.Zoom dsZoomRange_e.dsZoomRange_Fit, Nothing, Nothing
        
        'Examine the drawing to verify that DS and DS2 Leaders
        'have the same arrow and text options
        
    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:   Change Dimension Style Options of 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) 2019 SP04

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.