1.jpg
set oSelection = Application.Selection
set currentFilter = oSelection.Filter
if oSelection.Count = 0 and currentFilter.Name = "object" then
			LogMessage "SetSelFilter object"
			SetSelFilter "object"
else
	Select Case currentFilter.Name
		Case "object"
			LogMessage "SetSelFilter Vertex"
			SetSelFilter "Vertex"
		Case "Vertex"
			LogMessage "SetSelFilter Edge"
			SetSelFilter "Edge"
		Case "Edge"
			LogMessage "SetSelFilter Polygon"
			SetSelFilter "Polygon"
		Case "Polygon"
			LogMessage "SetSelFilter Polygon_Island"
			SetSelFilter "Polygon_Island"
		Case "Polygon_Island"
			LogMessage "SetSelFilter Vertex"
			SetSelFilter "Vertex"
		Case Else
			LogMessage "SetSelFilter object"
			SetSelFilter "object"
	End Select
end if
  • -- Land-Y編集 Script​/選択フィルタを順に切り替えるスクリプト

#comment


       
Counter: 7802, today: 2, yesterday: 2
最終更新: 2009-10-05 (月) 22:23:17 (JST) (3638d) 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