円柱を配置する方法を紹介します。
Option Explicit Sub Main() Dim oCylinder As SmartSolidElement Set oCylinder = SmartSolid.CreateCylinder(Nothing, 5#, 10#) ActiveModelReference.AddElement oCylinder End Sub
円柱を配置するには、スマートソリッドオブジェクトを利用する必要がありますのでoCylinderを定義します。次にSmartSolid.CreateCylinderメソッドを呼び出し、パラメータを渡してからActiveModelReference.AddElementで円柱が配置できます。
CreateCylinderメソッドの説明は下記となります:Set SmartSolidElement = object.CreateCylinder (Template, radius, height)
Part Description object:A valid object. radius:A Double expression. radius of base plan. height:A Double expression. height of the cylinder. Template:An Element expression.