SIDeletePointOnCurve

詳細

カーブの指定した位置のポイントを削除します。

スクリプト構文

SIDeletePointOnCurve( InputObj, [InsertPosition] );

パラメータ

パラメータ タイプ 説明
InputObj 文字列 ポイントが削除されるカーブ
InsertPosition Integer 削除するポイントのインデックス。 ポイントのインデックスは 0 から開始されます。

デフォルト値: 4

VBScript の例

'This example shows how to delete a point from a curve.

newscene

'Create a curve... Do not delete point.

SICreateCurve "CrvListWithPnt", 3, 1

SIAddPointOnCurveAtEnd "CrvListWithPnt", -1, 0, 0, False

SIAddPointOnCurveAtEnd "CrvListWithPnt", -1, 0, -1, False

SIAddPointOnCurveAtEnd "CrvListWithPnt", 1, 0, -1, False

SIAddPointOnCurveAtEnd "CrvListWithPnt", 1, 0, 0, False

Translate "CrvListWithPnt", 0, 0, -1.5, siRelative, siView, siObj, siXYZ

'Create a curve... Delete a point

SICreateCurve "CrvListWithDelPnt", 3, 1

SIAddPointOnCurveAtEnd "CrvListWithDelPnt", -1, 0, 0, False

SIAddPointOnCurveAtEnd "CrvListWithDelPnt", -1, 0, -1, False

SIAddPointOnCurveAtEnd "CrvListWithDelPnt", 1, 0, -1, False

SIAddPointOnCurveAtEnd "CrvListWithDelPnt", 1, 0, 0, False

SelectAllUsingFilter "object", siCheckComponentVisibility

ToggleValue "compobjselvert", "*.camvis,Views.*.*.camvis"

'Delete the third point on curve (First point as 0 index)

SIDeletePointOnCurve "CrvListWithDelPnt", 2

'NOTE: You can do undo to see which point was deleted.

'logmessage "You can do undo to see which point was deleted."

関連項目

CreateCurve SICreateCurve SISetCurvePoints