可自定义圆柱宏-直径、深度可输入

1.程序运行效果：

2.界面：

3.程序 代码

3.1模块代码：

Sub main()

宏.Show '窗体名称.show
 
End Sub

3.2窗体代码：

Private Sub cmdBuild_Click()
  Dim swApp As Object '定义变量
  Dim Part As Object '定义变量
  Dim boolstatus As Boolean '定义变量
  Dim 直径 As Double '定义变量
  Dim 深度 As Double '定义变量
  直径 = CDbl(直径数值.Text) / 1000 '变量赋值 表达式转为双精度Double类型 直径输入
  深度 = CDbl(深度数值.Text) / 1000 '变量赋值 表达式转为双精度Double类型 深度输入
  'Connect to the SOLIDWORKS software
  Set swApp = Application.SldWorks '调用SolidWorks的API库
  Set Part = swApp.ActiveDoc '调用SolidWorks的API库
  'Create a cylinder on Front Plane
  boolstatus = Part.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
  Part.SketchManager.InsertSketch True
  Dim skSegment As Object
  Set skSegment = Part.SketchManager.CreateCircleByRadius(0, 0, 0, 直径 / 2)
  Dim myFeature As Object
  Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 深度, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
  End Sub

3.3窗体可视化界面框命名-与代码关联

3.3.1直径输入框命名：

3.3.2 深度输入框命名：

3.3.3生成框命名：

3.3.4退出框命名：

3.4窗体可视化界面框内容命名-与代码无关联，UI界面显示内容