03-15-2022
07:36 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-15-2022
07:36 AM
Give this iLogic code a shot. It will place a workpoint at the center of your slot.
Dim oSlotEdge As Edge = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartEdgeFilter, "Select an edge on the slot")
Dim oSlotEdgeCollection As EdgeCollection = oSlotEdge.TangentiallyConnectedEdges
Dim oComp As PartComponentDefinition = oSlotEdge.Parent.Parent
Dim SlotCentroid As WorkPoint = oComp.WorkPoints.AddAtCentroid(oSlotEdgeCollection)