球体创建的接口说明
CreateSphere (Template, radius)
参数说明：
Template：Element类型,元素模板,设置后元素样式相同
radius：double类型,为球体半径
窗体设计
窗体设计
代码实现
'程序主入口
Sub main()
'显示窗体
Form1.Show
End Sub
'命令按钮触发操作
Private Sub CommandButton1_Click()
'定义半径变量
Dim radius As Double
Dim solid As SmartSolidElement
'半径
radius = Val(TextBox1.Value)
'创建球体
Set solid = SmartSolid.CreateSphere(Nothing, radius)
'添加至模型空间
ActiveModelReference.AddElement solid
End Sub
运行效果
运行效果
