Get Curve Segments Example (VBA)
This examples shows how to get the curve segments in a reference curve.
'----------------------------------------------------
'
' Preconditions: Model document is open and a reference
curve 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
swRefCurve As
SldWorks.ReferenceCurve
Dim
swEdge As
SldWorks.Edge
Dim
swEnt As
SldWorks.entity
Dim
bRet As
Boolean
Dim
retval As
Long
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
Set
swSelMgr = swModel.SelectionManager
Set
swFeat = swSelMgr.GetSelectedObject5(1)
Set
swRefCurve = swFeat.GetSpecificFeature2
swModel.ClearSelection2
True
retval
= swRefCurve.GetSegmentCount
Debug.Print
"Number of segments in curve: " & retval
Set
swEdge = swRefCurve.GetFirstSegment
Do
While Not swEdge Is Nothing
Set
swEnt = swEdge
bRet
= swEnt.Select4(True, Nothing)
': Debug.Assert bRet
Set
swEdge = swRefCurve.GetNextSegment
Loop
End Sub
'----------------------------------------------------