Using extended property descriptors (automation interface)
Syntax:
<object>("Extended Attribute Descriptors")
When navigating through a model, it is often useful to determine what extended attributes (properties) and associations an object has. The Extended Property Descriptors argument returns a string that lists the following properties of an object:
Text tab properties.
Tag Definition properties that have been applied to the object and its type.
The returned string contains the following information about each property:
The name of the property.
The properties of the property. The letters in this field indicate the following properties:
B — Do not merge
E — User added extension (Text tab property or tag definition)
G — Tag definition
I — Hidden (does not apply to Tag Definitions)
L — Reference tag definition
N — Tag Definition of type Enumeration
O — Tag Definition of type Boolean
P — Provided extension (provided with Modeler)
R — Read-only
T — Rich text
W — Read/write
X — Tag Definition of type Text
Value List values for Text tab properties, or enumeration Values for Enumeration tag definition.
A paragraph break.
If you want to return all the properties of an object, you can use the Properties Descriptors argument.
If you want to return the properties of an object through its type, so that you do not require an instance of an object, use the GetClassProperties or GetExtendedClassProperties function.
Example
In this example, strPropDesc is set to the description of the extended properties of Class1:
Set objItem = Dictionary.Item("Class", "Class1")
strPropDesc = objItem("Extended Attribute Descriptors")
Call Msgbox(strPropDesc)
An example of a returned string is as follows:
"Description","RWPT",""
"LIBRARY","RWE",""
"ANIMATOR_BMP","RWIE",""
"ANIMATOR_FRM","RWIE",""
"Map Strat","RWIP",""
"Parameters","RWIP",""
...
Was this helpful?