microstation二次开发之创建圆锥

圆锥创建接口说明

CreateCone (Template, topRadius, baseRadius, height)

topRadiusDouble 类型.顶部半径

baseRadiusDouble 类型.底部半径.

heightDouble 类型. 圆锥高度.

Template 元素模板 保持样式一致.

参数说明

参数说明

窗体设计

窗体设计

程序设计

Sub main()
'显示窗体
  Form1.Show
End Sub

Private Sub CommandButton1_Click()
   Dim bottomRadius, topradius, height As Double
   Dim result As SmartSolidElement
   bottomRadius = Val(TextBox1.Value)
   topradius = Val(TextBox2.Value)
   height = Val(TextBox3.Value)
   
  Set result = SmartSolid.CreateCone(Nothing, topradius, bottomRadius, height)
  ActiveModelReference.AddElement result
  UserForm1.Hide
End Sub

运行效果

运行效果

运行参数2

运行参数2

运行效果2

运行效果2