新建零件特征回退宏命令

1.程序运行效果：

2.程序代码

'零件文档

Private Sub 新零件_Click()
Dim swApp As SldWorks.SldWorks
  Set swApp = Application.SldWorks
  Dim swModel As SldWorks.ModelDoc2
Set swModel = swApp.NewDocument("D:\UT规范\UT模板\模板\UT模型模板\零件.prtdot", 0, 0#, 0#) '新建零件
  Dim swPart As SldWorks.PartDoc
  Set swPart = swModel
  swModel.SketchManager.InsertSketch True
  swModel.SketchManager.CreateCornerRectangle 0, 0, 0, 0.1, 0.1, 0 '创建草图方形，长0.1m，宽0.1mm
  swModel.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, 0.1, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False
    '创建特征，深度0.1m
    If 回退.Value = True Then
  swPart.EditRollback '特征回退
End If
End Sub