圆锥创建接口说明
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
