Concept-SKILL question: changing default property values

Steve Durrill, creator of stdAccess.il, was kind enough to respond in a different thread:

-----------------
I got a fix from the R&D team a few years ago for
cnCreateProps() to modify an existing prop object when
a dbid is provided.

procedure( chgDefPropVal( h, prop, newVal)
let(((tplList nil))
tplList = cons(cnCreatePropTemplate(
?name cnGetPropName(prop),
?value newVal,
?attachXY cnGetPropAttachXY(prop),
?XY cnGetPropXY(prop),
?color cnGetPropColor(prop),
?visibility cnGetPropVisibility(prop),
?justification cnGetPropJustification(prop),
?size cnGetPropSize(prop),
?angle cnGetPropAngle(prop)
), tplList)
cnCreateProps(h, tplList)
);let
);procedure


handle = cnmpsImport()
props = cnGetProps(cnGetGroupedObjectSet(cnSendCommand(handle, "FINDLOCATION*\n", ?runOptions csDISP1_RES3)))
p = car(props)
chgDefPropVal(handle, p, "NEWVALU")
---------------------

So there you have it. cnCreateProps will change the value of an existing default property just fine, but function csChangePropValue within stdAccess.il is flawed in that it cannot handle default properties since it tries to delete->replace the property and Concept won't allow deletion of a default property.

CASE CLOSED


Chris Walters
local Cadence guru
()

I just took a look at the csChangePropValue() routine.. Since cnCreateProps() accepts DBIDs
all you have to do to fix the liimitation for default body props is remove this line:

csDeletePropObjects(handle, propList)

The new version is included below.

-Steve


procedure(
csChangePropValue(handle, propList, new_value)
let((tpl_list)
if(propList then ;; Make sure there are properties to change!
if(isCallable('cnCreatePropTemplate) then
;;Get the template objects with changes included
tpl_list = foreach(mapcan prop propList ncons(
csBuildPropTemplate(prop, ?value new_value)))
cnCreateProps(handle, tpl_list)
else ;; Release is pre-PE13.5 so call the old routine
foreach(prop propList
csChangeProperty(handle, prop, new_value)
);foreach
);if
);if
);let
);procedure