' ******************************************************************************
' C:\Users\Administrator\AppData\Local\Temp\swx6576\Macro1.swb - macro recorded on 05/13/20 by Administrator
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks '鏈接到sldworks接口
' 新建文件
Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\GB.prtdot", 0, 0, 0)
Dim swPart As PartDoc
Set swPart = Part
swApp.ActivateDoc2 "test1", False, longstatus
Set Part = swApp.ActiveDoc
Dim myModelView As Object
'選擇草圖平面
boolstatus = Part.Extension.SelectByID2("前視基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
'插入草圖
Part.SketchManager.InsertSketch True
'畫一個圓
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.017995, -0.005952, 0#)
'畫一個多邊形
Dim vSkLines As Variant
vSkLines = Part.SketchManager.CreatePolygon(0, 0, 0, 3.34976656173865E-02, 0, 0, 6, True)
'退出草圖
Part.SketchManager.InsertSketch True
'插入一個拉伸特征
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.02, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
Part.ClearSelection2 True
' 全顯視圖
Part.ViewZoomtofit2
End Sub