Analyze Geometry Example (VBA)
This example shows how to analyze the geometry of a part using the SolidWorks
Utilities API.
' Get the SolidWorks Utilities interface
Set swUtil = swApp.GetAddInObject("Utilities.UtilitiesApp")
Set swUtilGeometryAnalysis = swUtil.GetToolInterface(gtSwToolGeomCheck)
' Initiate the analysis
longstatus = swUtilGeometryAnalysis.Init()
' Get the number of short edges
lShortEdgeCount = swUtilGeometryAnalysis.GetShortEdgesCount(0.0001,
longstatus)
' Get the number of small faces
lSmallFaceCount = swUtilGeometryAnalysis.GetSmallFacesCount(0.0001,
longstatus)
' Get the number of sliver faces
lSliverFaceCount = swUtilGeometryAnalysis.GetSliverFacesCount(0.0001,
longstatus)
' Get the number of knife edges
lKnifeEdgeCount = swUtilGeometryAnalysis.GetKnifeEdgesCount(5#,
longstatus)
' Get the number of knife vertices
lKnifeVertexCount = swUtilGeometryAnalysis.GetKnifeVerticesCount(5#,
longstatus)
' Get the number of discontinuous edges
lDiscontinuousEdgeCount = swUtilGeometryAnalysis.GetDiscontinuousEdgesCount(longstatus)
' Get the number of discontinuous faces
lDiscontinuousFaceCount = swUtilGeometryAnalysis.GetDiscontinuousFacesCount(longstatus)
' Save the results to a file in the specified path
longstatus = swUtilGeometryAnalysis.SaveReport("D:\Samples\box")
' Perform any necessary cleanup
longstatus = swUtilGeometryAnalysis.Close()