Gets the Attribute List object. | |
Syntax: | Set CimAttributeList = object.Attributes |
Description: | The CimObjectInstance.Attributes property
is read-only and returns a collection object that is used to add,
modify and delete attributes for the object. Example Dim project As CimProject Set project = CreateObject("CimProject") project.OpenLocalProject "d:\classes\classes.gef" Dim obj As CimObjectInstance Set obj = project.Objects("TANK_PID") Dim attribs As CimAttributeList Set attribs = obj.Attributes Dim attrib As CimAttribute For each attrib in attribs MsgBox attrib.ID & " = " & attrib.Value Next attrib |