Get Properties of Sketch-Pattern Feature Example (VBA)
This example shows how to get the properties of a Sketch-Pattern feature.
'----------------------------------------------------------------
'
' Preconditions:
' (1)
Model document is open.
' (2)
Sketch-Pattern feature is selected.
'
' Postconditions: None
'
'----------------------------------------------------------------
Option Explicit
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.ModelDoc2
Dim
swSelMgr As
SldWorks.SelectionMgr
Dim
swFeat As
SldWorks.feature
Dim
swBody As
SldWorks.body2
Dim
swSketchPatt As
SldWorks.SketchPatternFeatureData
Dim
vBasePt As
Variant
Dim
swSketch As
SldWorks.sketch
Dim
swSketchFeat As
SldWorks.feature
Dim
vBodyArr As
Variant
Dim
vBody As
Variant
Dim
vFaceArr As
Variant
Dim
vFace As
Variant
Dim
vFeatArr As
Variant
Dim
vFeat As
Variant
Dim
swEnt As
SldWorks.entity
Dim
swRefPt As
Object 'SldWorks.SketchPoint
Dim
bRet As
Boolean
Dim
i As
Long
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
Set
swSelMgr = swModel.SelectionManager
Set
swFeat = swSelMgr.GetSelectedObject5(1)
Set
swSketchPatt = swFeat.GetDefinition
vBasePt
= swSketchPatt.GetBasePoint
Debug.Print
swFeat.Name
Debug.Print
" GeometryPattern
=
" & swSketchPatt.geometryPattern
Debug.Print
" BasePt
=
(" & vBasePt(0) * 1000# & ", " & vBasePt(1)
* 1000# & ", " & vBasePt(2) * 1000# & ") mm"
Debug.Print
" BodyCount
=
" & swSketchPatt.GetPatternBodyCount
Debug.Print
" FaceCount
=
" & swSketchPatt.GetPatternFaceCount
Debug.Print
" FeatureCount
=
" & swSketchPatt.GetPatternFeatureCount
Debug.Print
" RefPtType
=
" & swSketchPatt.GetReferencePointType
Debug.Print
" UseCentroid
=
" & swSketchPatt.useCentroid
End Sub
'----------------------------------------------------------------