このタイプのオブジェクトがその親で許可されている場合は、指定可能なVARIANT_TRUE (-1)または VARIANT_FALSE (0)の 2 つのIntegerのうち 1 つを戻します。
// get accessor Int32 rtn = CollectionItem.Singleton; |
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 |