1、新建工程
2、添加引用
3、制做窗口
4、编写事件触发代码
' ******************************************************************************
' C:\Users\Administrator\AppData\Local\Temp\swx9964\Macro1.swb - macro recorded on 02/10/18 by Administrator
' ******************************************************************************
Dim swApp As Object
Dim part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Read1 As Long
Dim Read2 As Long
Dim skSegment As Object
Sub main()
Read1 = 50
Read2 = 50 '拉伸高度
Set swApp = CreateObject("SldWorks.Application") '连接sw
Set part = swApp.NewDocument("C:\ProgramData\SolidWorks\SolidWorks 2014\templates\gb_part.prtdot", 0, 0, 0) '创建零件图
boolstatus = part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0) '当前选择为前视基准面
part.InsertSketch2 True '活动面插入草图
Dim skSegment As Object '设置草图对象
Set skSegment = part.SketchManager.CreateCircle(0#, 0#, 0#, Read1, 0#, 0#)'创建圆
boolstatus = part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0) '选择草图面为当前选择
Dim myFeature As Object '设置为特征对象
Set myFeature = part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, Read2, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
End Sub
