プロダクト:	MicroStation
	バージョン:	CONNECT
	環境:	N/A
	エリア:	Programming
	サブエリア:	MVBA

球を配置する方法を紹介します。

Option Explicit

Sub Main()
    Dim oSphere As SmartSolidElement
    Set oSphere = SmartSolid.CreateSphere(Nothing, 10#)
    ActiveModelReference.AddElement oSphere
End Sub

球を配置するには、スマートソリッドオブジェクトを利用する必要がありますのでoSphereを定義します。
次にSmartSolid.CreateSphereメソッドを呼び出し、パラメータを渡してからActiveModelReference.AddElementで球が配置できます。

CreateSphereメソッドの説明は下記となります：
Set SmartSolidElement = object.CreateSphere (Template, radius)

object：A valid object.
radius：A Double expression. radius of the sphere.
Template：An Element expression.