Good morning,

Who can tell me How to create axis  by the selected Cylinder Surface?

Here is my code(VBA):

<p>Dim swSelMgr                As SldWorks.SelectionMgr<br>Dim Part                    As SldWorks.ModelDoc2<br>Dim boolstatus              As Boolean<br>Dim k                       As Integer<br>Dim swskobj                 As SldWorks.Surface</p><p>Sub main()</p><p>        Set swApp = Application.SldWorks</p><p>        Set Part = swApp.ActiveDoc</p><p>        Set swSelMgr = Part.SelectionManager</p><p>        Set Part = swApp.ActiveDoc<br>        <br>        Set swSelMgr = Part.SelectionManager<br>        <br>        Part.Extension.SelectAll</p><p>        On Error Resume Next<br>        <br>        For k = 1 To swSelMgr.GetSelectedObjectCount2(-1)<br>            swskobj = swSelMgr.GetSelectedObject6(k, -1)<br>            If swskobj.IsCylinder Then<br>                <br>            'Set Part = swApp.ActiveDoc<br>            'boolstatus = Part.Extension.SelectByID2("", "FACE", 1.04985868722451E-03, 4.88853727966898E-03, 4.37064052035794E-02, True, 0, Nothing, 0)<br>            boolstatus = Part.InsertAxis2(True)<br>            Part.ClearSelection2 True</p><p>            End If</p><p>        Next</p><p>End Sub</p>