Get Edge Points Example (VBA)
This example shows how to get edge points.
NOTE: An edge point is a midpoint
on an edge or an endpoint or midpoint on a reference curve.
'---------------------------------------------
'
' Preconditions: Part document is open and
' at
least one edge point is selected.
'
' Postconditions: None
'
'---------------------------------------------
Dim swApp As Object
Sub main()
Dim
swApp As SldWorks.SldWorks
Dim
swModel As SldWorks.ModelDoc2
Dim
swSelMgr As SldWorks.SelectionMgr
Dim
edgep As SldWorks.EdgePoint
Dim
swSelObj As Object
Dim
SelType As Long
Dim
SelCount As Long
Set
swApp = GetObject(, "SldWorks.Application")
Set
swModel = swApp.ActiveDoc
Set
swSelMgr = swModel.SelectionManager
SelCount
= swSelMgr.GetSelectedObjectCount
For
i = 1 To SelCount
SelType
= swSelMgr.GetSelectedObjectType(i)
Debug.Print
SelType
If
SwConst.swSelectType_e.swSelPOINTREFS = SelType Then
Set
swSelObj = swSelMgr.GetSelectedObject5(i)
Set
edgep = swSelObj
End
If
Next
i
End Sub