Analyze Text and Geometry in GTol Symbol Example (VB.NET)
This example shows how to analyze the text and geometry in a GTol
symbol.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Verify that the specified part document exists.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Opens the specified part document.
' 2. Gets the number of lines, arcs, circles, text strings,
' and triangles in <"GTOL-SPROF">.
' 3. Prints the number of lines in <"GTOL-SPROF">
' to the Immediate window.
' 4. Gets and prints the number of point coordinates in the
' lines in <"GTOL-SPROF"> to the Immediate window.
' 5. Gets and prints the x,y,z coordinates for the first and second points
' of each line in <"GTOL-SPROF"> to the Immediate window.
' 6. Gets and prints the arc information for <"GTOL-SPROF"> to the
' Immediate window.
' 7. Examine the Immediate window.
'---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics
Partial Class SolidWorksMacro
Dim swModel As ModelDoc2
Dim swEnvironment As SolidWorks.Interop.sldworks.Environment
Dim fileName As String
Dim errors As Integer
Dim warnings As Integer
Dim nbrSymbols As Object
Dim lineSymbols As Object
Dim arcInfo As Object
Dim nbrLineCoordinates As Integer
Dim i As Integer
Sub main()
fileName = "C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\tolanalyst\minimum_clearance\top_plate.sldprt"
swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
swEnvironment = swApp.GetEnvironment
Debug.Print("GTOL library - Surface Profile symbol name:")
'Get the number of lines, arcs, circles, text strings,
'and triangles in <"GTOL-SPROF">
nbrSymbols = swEnvironment.GetSymEdgeCounts("<GTOL-SPROF>")
Debug.Print(" Line count: " & nbrSymbols(0))
Debug.Print(" Arc count: " & nbrSymbols(1))
Debug.Print(" Circle count: " & nbrSymbols(2))
Debug.Print(" Text count: " & nbrSymbols(3))
Debug.Print(" Triangle count: " & nbrSymbols(4))
'Print the number of lines in <"GTOL-SPROF">
'to the Immediate window.
Debug.Print("")
Debug.Print("Number of lines: " & nbrSymbols(0))
'Get and print x,y,z coordinates for the first
'and second points of each line
lineSymbols = swEnvironment.GetSymLines("<GTOL-SPROF>")
nbrLineCoordinates = UBound(lineSymbols)
Debug.Print(" Number of point coordinates: " & nbrLineCoordinates + 1)
Debug.Print(" Point coordinates:")
Debug.Print(" (Line 1's x,y,z coordinates for first and second points,")
Debug.Print(" Line 2's x,y,z coordinates for first and second points,")
Debug.Print(" ...)")
For i = 0 To nbrLineCoordinates
Debug.Print(" " & lineSymbols(i))
Next i
'Print the number of arcs in <"GTOL-SPROF">
'to the Immediate window.
Debug.Print("")
Debug.Print("Number of arcs: " & nbrSymbols(1))
'Get and print the x,y,z coordinates of the center, start, and end points of each arc,
'whether the arc is filled, and whether a chord joining the start and end points of the arc is drawn
Debug.Print(" x,y,z coordinates of the center, start, and end points of each arc,")
Debug.Print(" whether the arc is filled (1 = true, 0 = false),")
Debug.Print(" and whether a chord is displayed for each arc (1 = true, 0 = false):")
arcInfo = swEnvironment.GetSymArcs2("<GTOL-SPROF>")
For i = 0 To UBound(arcInfo)
Debug.Print(" " & arcInfo(i))
Next i
End Sub
''' <summary>
''' The SldWorks swApp variable is pre-assigned for you.
''' </summary>
Public swApp As SldWorks
End Class