Selection

Selection オブジェクトは、アプリケーションのグローバルセレクションです。ユーザは、ビュー、Explore、MCA（メインコマンドパネル内の選択サブパネル）、およびスクリプティングを使ってグローバル選択を変更できます（SelectObj、AddToSelection、RemoveFromSelection、ToggleSelection、DeselectAllなどを参照）。

注：Selection は、プロパティを通してそのメンバへSelection.Itemのアクセスを可能にします。選択されている対象に応じて、Selection.ItemプロパティはオブジェクトまたはCollectionItemを戻します。たとえば、球全体を選択すると、Selection.Itemプロパティは球をX3DObjectとして戻します。ただし、エッジなどのサブコンポーネントのみを選択すると、エッジをCollectionItemとして戻します。

1. VBScript の例

'This example demonstrates how a script can find the selected vertices 
'in a selection of multiple objects.
'Set up a little scenario 
coneName = CreatePrim( "Cone", "MeshSurface" )
sphereName = CreatePrim("Sphere", "MeshSurface" )
DeselectAll
AddToSelection coneName &".pnt[4,7,10]", , True
AddToSelection sphereName &".pnt[1,2,3]", , True
'Now iterate through the selection using the OM selection object
set oSelection = Application.Selection  
for i = 0 to (oSelection.Count - 1)  
        if ( oSelection(i).Type = "pntSubComponent" ) then
                logmessage "Found the following selected vertices on " & oSelection(i).Subcomponent.Parent3DObject.Name
                'Selection of points 
                set subComponent = oSelection(i).SubComponent
                selectedIndices = subComponent.ElementArray
                for j = 0 to Ubound( selectedIndices, 1 )
                        logmessage selectedIndices(j)
                next    
        else
                logmessage "Nothing to do with " & oSelection(i).Name & "Type (" & oSelection(i).Type & ")"
        end if  
next  
'Output of the above script is:
'"Found the following selected vertices on cone"
'"4"
'"7"
'"10"
'"Found the following selected vertices on sphere"
'"1"
'"2"
'"3"

2. VBScript の例

'
' This example shows how to save the current selection into 
' an XSICollection object.  This can be very useful if you want 
' to remember what objects were selected before running 
' commands that might change the selection
'
' Note: Although this example sets up its own selection, you 
' could remove the SETUP section and run this example with
' your own selection instead.
'
' SETUP
NewScene , false
set arc = CreatePrim( "Arc", "NurbsCurve" )
set disc = CreatePrim( "Disc", "MeshSurface" )
CreatePrim "Cylinder", "MeshSurface"
set oSelection = Application.Selection
oSelection.Clear
oSelection.Add arc
oSelection.Add disc
' MAIN
Application.LogMessage "Current selection: " & oSelection.GetAsText()
strSelection = oSelection.GetAsText()
set oColl = CreateObject( "XSI.Collection" ) 
oColl.SetAsText strSelection 
Application.LogMessage "Contents of XSICollection: " & oColl.GetAsText
' RESULTS
'INFO : Current selection: arc,disc
'INFO : Contents of XSICollection: arc,disc

Selection

導入

詳細

メソッド

プロパティ

例

1. VBScript の例

2. VBScript の例