Get Depth of Extrusion Example (VB.NET)
This example shows how to get the depth of an extrusion.
'----------------------------------------------------------------------------
' Preconditions: Open a part containing a Boss-Extrude1 feature.
'
' Postconditions: None
'----------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Imports
System.Diagnostics
Partial
Class
SolidWorksMacro
Sub
main()
Dim
swModel As
ModelDoc2
Dim
swDim As
Dimension
Dim
vConfigNames As
Object
Dim
vValue As
Object
swModel = swApp.ActiveDoc
swDim = swModel.Parameter("D1@Boss-Extrude1")
Debug.Assert(Not
swDim Is
Nothing)
Debug.Print("File = "
& swModel.GetPathName)
Debug.Print(" FullName = "
& swDim.FullName)
Debug.Print(" Name = "
& swDim.Name)
vConfigNames = swModel.GetConfigurationNames
vValue = swDim.GetSystemValue3(swInConfigurationOpts_e.swThisConfiguration,
(vConfigNames))
Debug.Print(" SystemValue = "
& vValue(0) * 1000.0# & ""
& " mm")
End
Sub
Public
swApp As
SldWorks
End
Class