圓環(huán)創(chuàng)建接口說明
CreateTorus (Template, primaryRadius, profileRadius, sweepAngle)
primaryRadius Double 類型.圓環(huán)大圓周的半徑
profileRadius Double 類型.圓環(huán)縱截面小圓的半徑.
sweepAngle Double 類型. 圓環(huán)環(huán)繞角度.
Template 元素模板 保持樣式一致.
參數(shù)說明
參數(shù)說明
窗體設(shè)計(jì)
窗體設(shè)計(jì)
程序設(shè)計(jì)
Sub main()
'顯示窗體
Form1.Show
End Sub
Private Sub CommandButton1_Click()
Dim primaryRadius, profileRadius, sweepAngle As Double
Dim result As SmartSolidElement
primaryRadius = Val(TextBox1.Value)
profileRadius = Val(TextBox2.Value)
sweepAngle = Val(TextBox3.Value)
Set result = SmartSolid.CreateTorus(Nothing, primaryRadius, profileRadius, sweepAngle)
ActiveModelReference.AddElement result
Form1.Hide
End Sub
運(yùn)行效果
運(yùn)行效果
運(yùn)行參數(shù)2
運(yùn)行參數(shù)2
運(yùn)行效果2
運(yùn)行效果2
