This content has been marked as final.
Show 2 replies
-
Re: Get center of circles
Ivana Kolin Aug 29, 2016 5:03 AM (in response to Hrituc Alexandru)Option Explicit Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swSelMgr As SldWorks.SelectionMgr Dim swSkArc As SldWorks.SketchArc Dim i As Integer Dim skPoints() As SketchPoint Dim x As Integer Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swSelMgr = swModel.SelectionManager x = swSelMgr.GetSelectedObjectCount2(-1) If x = 0 Then Exit Sub ReDim skPoints(x) For i = 1 To x Select Case swSelMgr.GetSelectedObjectType3(i, -1) Case swSelEXTSKETCHSEGS, swSelSKETCHSEGS Set swSkArc = swSelMgr.GetSelectedObject6(i, -1) Set skPoints(i) = swSkArc.GetCenterPoint2 Case Else Debug.Print "SelType: "; swSelMgr.GetSelectedObjectType3(i, -1) End Select Next i swModel.ClearSelection2 True For i = 1 To x If Not skPoints(i) Is Nothing Then skPoints(i).Select4 True, Nothing End If Next i End Sub
-
Re: Get center of circles
Hrituc Alexandru Aug 29, 2016 5:08 AM (in response to Ivana Kolin)Thank you very much...
-