このタイプのオブジェクトがその親で許可されている場合は、指定可能なVARIANT_TRUE (-1)または VARIANT_FALSE (0)の 2 つのIntegerのうち 1 つを戻します。
set oRoot = Application.ActiveProject.ActiveScene.Root
set oGroup = oRoot.AddGroup
set oMaterial = oGroup.AddMaterial("Phong")
set oItem = CreateObject("XSI.CollectionItem")
oItem.Value = oMaterial.FullName
if oItem.Singleton then
logmessage "Only one Material per objects"
else
logmessage "Multiple Materials are allowed on an object"
end if
|