v1.5

モデリングの描画

エッジを作成中のポリゴンに追加し、そのポリゴンを既存のエッジと共有します。

oLong = ConnectNewPolygonToEdge( InputObj, EdgeID, [InsertPosition], [InvertPolygon] );

対象ポリゴンの ID が Long として戻されます(ポリゴンの頂点数が 3 個未満である場合は、-1 が戻されます)。

パラメータ	タイプ	詳細
InputObj	文字列	作成されるポリゴンを保持するメッシュ
EdgeID	Integer	接続するターゲット エッジの ID 指定可能な値： 説明： 0<=i メッシュ内のエッジのインデックス
InsertPosition	Long	ポリゴンにおける新しいエッジの挿入位置である頂点の順序数 デフォルト値: 0 指定可能な値： 説明： 0 エッジはリストの最後に追加されます。 0 エッジは i-1 番目と i 番目の頂点間に挿入されます。
InvertPolygon	ブール	CW-CCW 接続を提供する前に隣接するポリゴンを反転すべき場合は True

VBScript の例

'This example shows how to add a polygon to an existing mesh
newscene
' Add a quad to a grid and connect one of its edges to an existing edge
dim obj, poly
set obj = CreatePrim( "Grid", "MeshSurface" )
SelectObj obj
ApplyOp "CreatePolygon", obj, siUnspecified
AddPointToNewPolygon obj, -6.088, 0.0, 0.864
AddPointToNewPolygon obj, -6.345, 0.0, 2.953
poly = ConnectNewPolygonToEdge( obj, 16, 0 )
SelectObj obj & ".poly[" & poly & "]"
' Create a disc and fill the hole in the center
set obj = CreatePrim( "Disc", "MeshSurface" )
SelectObj obj
ApplyOp "CreatePolygon", obj, siUnspecified
ConnectNewPolygonToEdge obj, 128
ConnectNewPolygonToEdge obj, 27
ConnectNewPolygonToEdge obj, 61
poly = ConnectNewPolygonToEdge( obj, 95 )
SelectObj obj & ".poly[" & poly & "]"

ApplyOp AddPointToNewPolygon ConnectNewPolygonToPoint