microstation二次开发之创建球体

球体创建的接口说明

  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

运行效果

运行效果