球體創(chuàng)建的接口說明

  CreateSphere (Template, radius) 
  參數(shù)說明：
    Template：Element類型,元素模板,設(shè)置后元素樣式相同
    radius：double類型,為球體半徑

窗體設(shè)計(jì)

窗體設(shè)計(jì)

代碼實(shí)現(xiàn)

'程序主入口
Sub main()
  '顯示窗體
  Form1.Show
End Sub

'命令按鈕觸發(fā)操作
Private Sub CommandButton1_Click()
  '定義半徑變量
  Dim radius As Double
  Dim solid As SmartSolidElement

   '半徑
    radius = Val(TextBox1.Value)
    '創(chuàng)建球體
    Set solid = SmartSolid.CreateSphere(Nothing, radius)
    '添加至模型空間
    ActiveModelReference.AddElement solid
End Sub

運(yùn)行效果

運(yùn)行效果