'---Ultimapper Generater--- '---Machinery Contents--- '---Create by Praying Spider--- '---Release 2008/02/05---- '---Optimization Fales---- Option Explicit Dim ObjCol,TObj,FairBox,WarningBox,CheckClsCol,CheckCls,THighSource Set ObjCol = GetValue("SelectionList") Set WarningBox = CreateObject("XSI.Collection") Set FairBox = CreateObject("XSI.Collection") For each TObj in ObjCol Set CheckClsCol = CreateObject("XSI.Collection") CheckClsCol.Items = TObj & ".Ultimapper" If CheckClsCol.Count = 0 Then WarningBox.Add TObj Else THighSource = GetValue (TObj & ".Ultimapper.Group") If THighSource = "" Then WarningBox.Add TObj Else CheckClsCol.Items = TObj & ".polymsh.cls.*.Tangents" If CheckClsCol.Count = 0 Then WarningBox.Add TObj Else For each CheckCls in CheckClsCol If CheckCls.name = "Tangents" Then FairBox.Add TObj Else WarningBox.Add TObj End if Next End if End if End if Next If WarningBox.Count = 0 Then If FairBox.Count > 0 Then logmessage "X" For each TObj in FairBox GenerateUltimapper TObj & ".Ultimapper" Next Else logmessage "Y" End if Else logmessage "Z" SelectObj WarningBox MsgBox "Please Check Ultimapper or Tangents" End if