Scripts
In the Project Environment dialog, in the Resources > Scripts view of the library or project database, there are some predefined scripts that are used for running the CADMATIC design applications, and administrator can also add custom scripts there.
Running a script when object's catalog part or GDL reference changes
If Resources > Scripts contains a custom script by the name "PmSetObjectCustomization", Plant Modeller will automatically run this script when either the Catalog Part reference (pid) or the GDL reference (cmd) of a model object is changed. The object must be currently checked out to the Plant Modeller area.
This can be used, for example, to automatically update a COS attribute that stores object revision information.
Administrator must add the required custom script to the library or the project.
An example custom script for this purpose is provided below.
Example PmSetObjectCustomization.mac
Show/hide Example
#include "include/dmutil.h"
#include "include/pm.h"
#include "include/pm_core_tags.h"
SetObjectCustomization(obj)
{
attribute_tag = "U54";
attr_h = PM_FIND_ATTRIBUTE(attribute_tag);
if (attr_h == 0) {
message = "Could not access <" + attribute_tag + "> attribute";
st = U_MESSAGEBOX(message, U_MB_INFO, U_MB_OK, U_OK);
return -1;
}
new_revision_number = 1;
old_revision_number = PM_GET_OBJDATA(obj, 0, attribute_tag);
if (ISSTRING(old_revision_number)) {
PM_DEASSIGN_ATTRIBUTE(attr_h, obj);
new_revision_number = old_revision_number + 1;
}
st = PM_ASSIGN_ATTRIBUTE(attr_h, obj, new_revision_number);
if(st < 0){
U_CONFIRM("Failed to assign <" + attribute_tag + "> attribute");
return -1;
}
object_oid = PM_GET_OBJDATA(obj, 0, MMT_TAG_COSOID);
if (ISSTRING(object_oid)) {
message = "";
if (ISSTRING(old_revision_number)) {
message = object_oid + ": Changed revision number " + old_revision_number + " -> " + ITOASCII(new_revision_number);
}
else {
message = object_oid + ": Set revision number to " + ITOASCII(new_revision_number);
}
U_MESSAGE(message);
}
return 0;
}