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
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容