オブジェクトの機能すべてのマスクを Long として戻します。
// get accessor siCapabilities rtn = ProjectItem.Capabilities; |
' ' This example demonstrates how to read the object's capabilities ' NewScene , false set oCylinder = CreatePrim( "Cylinder", "MeshSurface" ) Application.LogMessage "The cylinder has these capabilities: " & oCylinder.Capabilities ' Hide the cylinder from the scene explorer oCylinder.SetCapabilityFlag siReadOnly, true Application.LogMessage "Now the cylinder has these capabilities: " & oCylinder.Capabilities ' Expected results: 'INFO : The cylinder has these capabilities: 32772 'INFO : Now the cylinder has these capabilities: 32774 |