Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Dim vSkLines As Variant
Dim vSkLines2 As Variant
vSkLines = Part.SketchManager.CreateCornerRectangle(0, 0, 0,0.05776592972092, 0.04718657489548, 0)
Part.SketchManager.InsertSketch True
vSkLines2 = Part.SketchManager.CreateCornerRectangle(0, 0, 0, 0.05,0.06, 0)
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("Sketch1", "SKETCH", 0, 0,0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0,0.01111, 0.01, False, False, False, False, 0.01745329251994,0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False
End Sub
Now i want to know how to get name of sketch so that i can put thevalue returned in Part.Extension.SelectByID2 function to get my jobdone
Thanks
SolidworksApi macros