'VBScript example demonstrating Property.Branch
set oRoot = application.activeproject.activescene.root
set oCube = oRoot.AddGeometry("Cube","MeshSurface")
'When you add a property you can decide whether it should be
'applied to the branch or not:
branchFlag = false
oCube.AddProperty "CustomProperty", branchFlag, "NoBranchPSet"
branchFlag = true
oCube.AddProperty "CustomProperty", branchFlag, "BranchPSet"
logmessage "NoBranchPSet Branch Flag: " & _
oCube.Properties.Item("NoBranchPSet").Branch
logmessage "BranchPSet Branch Flag: " & _
oCube.Properties.Item("BranchPSet").Branch
'Output of the script:
'INFO : "NoBranchPSet Branch Flag: False"
'INFO : "BranchPSet Branch Flag: True" |