• -- Land-Y編集 Script​/選んでいるポリゴンからクラスタを選択する
  • -- Tako編集 Script​/選んでいるポリゴンからクラスタを選択する
  • -- Land-Y編集 Script​/選んでいるポリゴンからクラスタを選択する
  • @Tako
  • @Tako





set oSel = selection
set oSelFilter = oSel.Filter
if oSelFilter.Name = "Polygon" Then
for each sel in oSel
oType = sel.Type
set oSubComponent = sel.SubComponent
set o3DObj = oSubComponent.Parent3DObject
set oGeo = o3DObj.ActivePrimitive.Geometry
set oCls = oGeo.Clusters
set oCmpCollect =  oSubComponent.ComponentCollection

for each poly in oCmpCollect 
Sort_oder_Val2 = 0
for each cls in oCls
indice = cls.FindIndex(poly.index)
'LogMessage cls &":" & poly.index & " is : " & indice

if indice <> -1 Then

Sort_oder_Val = GetValue (cls & ".sort_order")
'Logmessage 	Sort_oder_Val	& ":" & 	Sort_oder_Val2
if Sort_oder_Val > Sort_oder_Val2 Then
Sort_oder_Val2 = Sort_oder_Val
p_cls = cls
end if
end if

next 
if InStr (sel_cls, p_cls&",") = 0 Then
sel_cls = p_cls &","& sel_cls
end if
next
next
SelectObj sel_cls
end if
  • -- Land-Y編集 Script​/選んでいるポリゴンからクラスタを選択する
  • -- Tako編集 Script​/選んでいるポリゴンからクラスタを選択する

       
Counter: 22913, today: 3, yesterday: 33
最終更新: 2009-10-05 (月) 22:23:17 (JST) (3693d) by ゲスト
GoogleWiki
WikiMenu

ホーム ニュース フォーラム UserBlog 道場Wiki
Powered by XOOPS Cube Legacy 2.1.7 2001-2009 XOOPS Cube Project
cvELD.net project [ Softimage & XSI道場 ] since 2004 1/1