Insert GTol Example (VBA)
This example shows how to insert a GTol.
'----------------------------------------------------------------------------
' Preconditions: Verify that the specified drawing document exists.
'
' Postconditions:
' 1. Opens the specified drawing document.
' 2. Inserts a GTol whose first frame contains a geometric tolerance
' position symbol referencing the specified combination of
datums and
' material conditions.
' 3. Examine the drawing.
'
' NOTE: Because the drawing is used elsewhere, do not save changes.
'---------------------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swDrawing As SldWorks.DrawingDoc
Dim swModel As SldWorks.ModelDoc2
Dim myGtol As SldWorks.Gtol
Dim myAnno As SldWorks.Annotation
Dim status As Boolean
Dim errors As Long
Dim warnings As Long
Dim fileName As String
Sub main()
Set swApp = Application.SldWorks
fileName = "C:\Program Files\SolidWorks Corp\SOLIDWORKS\samples\tutorial\advdrawings\foodprocessor.slddrw"
Set swDrawing = swApp.OpenDoc6(fileName,
swDocumentTypes_e.swDocDRAWING, swOpenDocOptions_e.swOpenDocOptions_Silent, "",
errors, warnings)
swApp.ActivateDoc3 "foodprocessor - Sheet1", False,
swRebuildOnActivation_e.swRebuildActiveDoc, errors
Set swModel = swDrawing
Set myGtol = swModel.InsertGtol()
If Not myGtol Is Nothing Then
myGtol.SetFrameSymbols2 1, "<IGTOL-POSI>",
False, "", False, "", "", "", ""
status = myGtol.SetFrameValues2(1,
"0.4", "", "B-A-C<MOD-MMC>", "B<MOD-MMC>-C<MOD-LMC>", "C<MOD-MMC>-A")
myGtol.SetPTZHeight "", False
myGtol.SetBetweenTwoPoints
False, "", ""
Set myAnno = myGtol.GetAnnotation()
If Not myAnno Is Nothing Then
status =
myAnno.SetPosition(0.319315975204224, 0.12666668401487, 0)
errors =
myAnno.SetLeader3(swLeaderStyle_e.swNO_LEADER, 0, True, False, False,
False)
End If
End If
swModel.WindowRedraw
End Sub