Appearance

GET_REC_CLASS_ID ​

GET_REC_CLASS_ID returns the ID of a record class of a certain attribute or with a certain name.

Syntax ​

leo-grammar
CC "Core" GET_REC_CLASS_ID attrid:intValue | classname:strValue

#-->RESULT ecode:intValue classid:intValue .
CC "Core" GET_REC_CLASS_ID attrid:intValue | classname:strValue

#-->RESULT ecode:intValue classid:intValue .

Parameters ​

  • attrid (intValue) - the ID of the attribute of type RECORD
  • classname (strValue) - the name of the record class

Returns ​

  • ecode (intValue) - Contains the error code or is 0 in case of success.
  • classid (intValue) - the ID of the record class.

Details ​

See Also ​

ADD_REC_ROW
MOVE_RECORD_ROW
REMOVE_REC_ROW
GET_REC_ATTR_ROW_ID
GET_REC_ATTR_ROW_COUNT
GET_OWNER_OBJ_OF_REC_ROW
GET_ALL_REC_ATTR_ROW_IDS
GET_RECORD_MULTIPLICITY

Examples ​

asc
# get all selected objects
CC "Modeling" GET_SELECTED
IF (objids = "") {
    CC "AdoScript" ERRORBOX "Select an instance first!"
    EXIT
}

# from the list of selected objects, extract the first objectid
SET firstselected:(token(objids,0," "))

# now get the classes of the connected instances
CC "Core" GET_CLASS_ID objid:(VAL firstselected)

# get all attributes of the selected class
CC "Core" GET_ALL_ATTRS classid:(classid)

# get types of attributes
FOR id in:(attrids) {
    CC "Core" GET_ATTR_TYPE attrid:(VAL id)

    # check for type "RECORD"
    IF (attrtype = "RECORD") {
        # get attribute name
        CC "Core" GET_ATTR_NAME attrid:(VAL id)

        # get the class id of that record attribute
        CC "Core" GET_REC_CLASS_ID attrid:(VAL id)

        IF (ecode != 0) {
            CC "AdoScript" ERRORBOX
                ("Error in GET_REC_CLASS_ID in attribute " + attrname)
            EXIT
        }
        
        # show row id
        CC "AdoScript" INFOBOX
            ("Attribute \"" + attrname + "\", "
             + " class ID: " + STR classid)
        EXIT
    }
}

# show error
CC "AdoScript" ERRORBOX "No attributes of type RECORD found!"
# get all selected objects
CC "Modeling" GET_SELECTED
IF (objids = "") {
    CC "AdoScript" ERRORBOX "Select an instance first!"
    EXIT
}

# from the list of selected objects, extract the first objectid
SET firstselected:(token(objids,0," "))

# now get the classes of the connected instances
CC "Core" GET_CLASS_ID objid:(VAL firstselected)

# get all attributes of the selected class
CC "Core" GET_ALL_ATTRS classid:(classid)

# get types of attributes
FOR id in:(attrids) {
    CC "Core" GET_ATTR_TYPE attrid:(VAL id)

    # check for type "RECORD"
    IF (attrtype = "RECORD") {
        # get attribute name
        CC "Core" GET_ATTR_NAME attrid:(VAL id)

        # get the class id of that record attribute
        CC "Core" GET_REC_CLASS_ID attrid:(VAL id)

        IF (ecode != 0) {
            CC "AdoScript" ERRORBOX
                ("Error in GET_REC_CLASS_ID in attribute " + attrname)
            EXIT
        }
        
        # show row id
        CC "AdoScript" INFOBOX
            ("Attribute \"" + attrname + "\", "
             + " class ID: " + STR classid)
        EXIT
    }
}

# show error
CC "AdoScript" ERRORBOX "No attributes of type RECORD found!"

Preparing:

  • Get selected objects
  • pick first selected
  • get its class id
  • get all attributes of that class
  • loop for all attributes

Interesting:

  • check for attribute type RECORD

  • get attribute name

  • GET_REC_CLASS_ID

  • check if successful

  • show id and exit

  • if no attributes of type RECORD were found: Report error

Versions and Changes ​

Available since ADOxx 1.3