インプリシット プリミティブを作成し、指定したジオメトリ タイプに変換します。 インプリシット プリミティブとは反対に、変換後のプリミティブは明示的なジオメトリ エレメントを持ち、コントロール ポイント、エッジ、ポリゴンなどを操作することができます。

注: インプリシット プリミティブは、ジオメトリ タイプと互換性を持っている必要があります。 詳細については、$cdname X3DObject.AddGeometry@cdname メソッドを参照してください。

oReturn = CreatePrim( PresetObj, GeometryType, [Name], [Parent] );

プリミティブ オブジェクトを戻します(通常は X3DObject オブジェクト)。

パラメータ	タイプ	説明
PresetObj	String またはプリセット オブジェクト(「SIGetPreset」を参照)	ジオメトリ プリミティブ
GeometryType	文字列	ジオメトリ タイプ 指定可能な値： 説明： NurbsCurve プリミティブを NURBS カーブに変換します。 NurbsSurface プリミティブを NURBS サーフェイスに変換します。 MeshSurface プリミティブを Mesh サーフェイスに変換します。 PointCloud プリミティブを PointCloudGeometry に変換します
Name	文字列	新しいオブジェクトの名前
Parent	文字列	既存のオブジェクトの名前。新しいプリミティブの親として使用されます。

VBScript の例

'This example creates a new primitive

newscene

dim nurbssphere, meshsphere

'Create a nurbs sphere and name it aSphere. Assign to variable nurbssphere

set nurbssphere = CreatePrim( "Sphere", "NurbsSurface", "aSphere" )

'Create a mesh sphere and name it bSphere. Assign to variable meshsphere.

'Make bSphere child of aSphere

set meshsphere = CreatePrim( "Sphere", "MeshSurface", "bSphere", "aSphere" )

'Logged information:

'INFO : "Sphere information: X3DObject polymsh"

logmessage "Sphere information: " & typename( meshsphere) & " " & meshsphere.type

GetPrim SIGetPrim