日々適当

Dim menbers() , InvestigationRange , j , i , k , itemDistance , SelectionItem
ReDim menbers(100)

'評価する距離を設定する
InvestigationRange = 2.5

j = 0
k = 1

set vec = XSIMath.CreateVector3

for each SelectionItem in Selection

'logmessage SelectionItem

SelectionItem.Kinematics.Global.Transform.GetTranslation(vec)

itemDistance = sqr((vec.x)^2 + (vec.y)^2 + (vec.z)^2)

'logmessage itemDistance

if k > 100 then

ReDim Preserve menbers(k)


'ここの大小で評価する距離より大きいものを選択解除するか、小さいものを
'解除するかを決定する。この下のelse以下にも同様の設定項目あり。
if itemDistance > InvestigationRange then

menbers(j) = SelectionItem

j = j + 1

k = k + 1

end if

else
'ここの大小で評価する距離より大きいものを選択解除するか、小さいものを
'解除するかを決定する。
if itemDistance > InvestigationRange then

menbers(j) = SelectionItem

j = j + 1

k = k + 1

end if

end if

next


for i = 0 to (j - 1)

ToggleSelection menbers(i), , True

next