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