美文网首页
microstation二次开发之创建球体

microstation二次开发之创建球体

作者: 清风明月永相随 | 来源:发表于2019-07-09 21:35 被阅读0次

球体创建的接口说明

  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

运行效果

运行效果

相关文章

网友评论

      本文标题:microstation二次开发之创建球体

      本文链接:https://www.haomeiwen.com/subject/rhtqkctx.html