Skill to update the value of Custom Variables in Allegro x 25.1 PCB Editor

Hi Moyan,

See if you can use this (untested) code for your app:

; ---------------------------------------------------------------------------
; 1. DEFINE the property in the design's property dictionary (one-time setup)
;    axlDBCreatePropDictEntry(name dataType objTypes valRange units constraint)
;    Only needs to run once per design -- guard it so re-running doesn't error.
; ---------------------------------------------------------------------------
procedure( myskill_ensureProps()
    unless( axlDBGetPropDictEntry("MY_TEMP")
        axlDBCreatePropDictEntry("MY_TEMP" "REAL" list("pins") list(nil nil) "C" nil)
    )
)

; ---------------------------------------------------------------------------
; 2. WRITE the property onto a specific object
;    axlDBAddProp(dbid list(propName propValue))
; ---------------------------------------------------------------------------
procedure( myskill_setTemp(pin tempVal)
    myskill_ensureProps()
    unless( errset( axlDBAddProp(pin list("MY_TEMP" tempVal)) )
        error("myskill" "axlDBAddProp failed for MY_TEMP=%g on %s.%s"
              tempVal (or pin->parent->refdes "?") (or pin->number "?"))
    )
    printf("INFO myskill: MY_TEMP = %g set on %s.%s\n"
           tempVal (or pin->parent->refdes "?") (or pin->number "?"))
)

; ---------------------------------------------------------------------------
; 3. READ the property back off the object
;    axlDBGetProperties(dbid '("user")) returns a list of (name value) pairs
; ---------------------------------------------------------------------------
procedure( myskill_getPropValue(propName propList)
    let( (result targetStr)
        result    = nil
        targetStr = upperCase(propName)
        foreach( entry propList
            when( upperCase(sprintf(nil "%s" car(entry))) == targetStr
                result = cadr(entry)
            )
        )
        result
    )
)

procedure( myskill_getTemp(pin)
    let( (props strVal result)
        props  = axlDBGetProperties(pin '("user"))
        strVal = myskill_getPropValue("MY_TEMP" props)
        result = if( strVal != nil then atof(sprintf(nil "%s" strVal)) else nil )
        result
    )
)

; ---------------------------------------------------------------------------
; 4. (optional) REMOVE the property from an object
;    axlDBDeleteProp(dbid propName)
; ---------------------------------------------------------------------------
procedure( myskill_clearTemp(pin)
    unless( errset( axlDBDeleteProp(pin "MY_TEMP") )
        error("myskill" "axlDBDeleteProp failed for MY_TEMP on %s.%s"
              (or pin->parent->refdes "?") (or pin->number "?"))
    )
)

; ---------------------------------------------------------------------------
; Example usage
; ---------------------------------------------------------------------------
let( (pin)
    pin = car(axlDBGetPointList(nil "Select a pin: " '("Pin")))->objType  ; placeholder for pin selection
    myskill_setTemp(pin 85.0)      ; write MY_TEMP = 85.0 on the pin
    printf("MY_TEMP readback = %g\n" myskill_getTemp(pin))  ; read it back
)

Hi Moyan,

See if you can use this (untested) code for your app:

; ---------------------------------------------------------------------------
; 1. DEFINE the property in the design's property dictionary (one-time setup)
;    axlDBCreatePropDictEntry(name dataType objTypes valRange units constraint)
;    Only needs to run once per design -- guard it so re-running doesn't error.
; ---------------------------------------------------------------------------
procedure( myskill_ensureProps()
    unless( axlDBGetPropDictEntry("MY_TEMP")
        axlDBCreatePropDictEntry("MY_TEMP" "REAL" list("pins") list(nil nil) "C" nil)
    )
)

; ---------------------------------------------------------------------------
; 2. WRITE the property onto a specific object
;    axlDBAddProp(dbid list(propName propValue))
; ---------------------------------------------------------------------------
procedure( myskill_setTemp(pin tempVal)
    myskill_ensureProps()
    unless( errset( axlDBAddProp(pin list("MY_TEMP" tempVal)) )
        error("myskill" "axlDBAddProp failed for MY_TEMP=%g on %s.%s"
              tempVal (or pin->parent->refdes "?") (or pin->number "?"))
    )
    printf("INFO myskill: MY_TEMP = %g set on %s.%s\n"
           tempVal (or pin->parent->refdes "?") (or pin->number "?"))
)

; ---------------------------------------------------------------------------
; 3. READ the property back off the object
;    axlDBGetProperties(dbid '("user")) returns a list of (name value) pairs
; ---------------------------------------------------------------------------
procedure( myskill_getPropValue(propName propList)
    let( (result targetStr)
        result    = nil
        targetStr = upperCase(propName)
        foreach( entry propList
            when( upperCase(sprintf(nil "%s" car(entry))) == targetStr
                result = cadr(entry)
            )
        )
        result
    )
)

procedure( myskill_getTemp(pin)
    let( (props strVal result)
        props  = axlDBGetProperties(pin '("user"))
        strVal = myskill_getPropValue("MY_TEMP" props)
        result = if( strVal != nil then atof(sprintf(nil "%s" strVal)) else nil )
        result
    )
)

; ---------------------------------------------------------------------------
; 4. (optional) REMOVE the property from an object
;    axlDBDeleteProp(dbid propName)
; ---------------------------------------------------------------------------
procedure( myskill_clearTemp(pin)
    unless( errset( axlDBDeleteProp(pin "MY_TEMP") )
        error("myskill" "axlDBDeleteProp failed for MY_TEMP on %s.%s"
              (or pin->parent->refdes "?") (or pin->number "?"))
    )
)

; ---------------------------------------------------------------------------
; Example usage
; ---------------------------------------------------------------------------
let( (pin)
    pin = car(axlDBGetPointList(nil "Select a pin: " '("Pin")))->objType  ; placeholder for pin selection
    myskill_setTemp(pin 85.0)      ; write MY_TEMP = 85.0 on the pin
    printf("MY_TEMP readback = %g\n" myskill_getTemp(pin))  ; read it back
)

Many thanks for your reply, but i think this is not the skill i need.

Best Regards

Moyan

Well, this shows you how to deal with custom properties and properties in general. What's missing?

I want to have the skill to update the value of custom variables.

The commands i post above To update custom variables in Cadence PCB / Allegro using the Toolbox (tbx) utility, open the setup menu, select custom variables, and run the update command to input new values like dates or revisions, then run it again to refresh the drawing.

I would like to have the same function with using skill instead of commands.

I am still learning your code, but as far as i understand the code you post is for another function.

Many thanks again

Moyan

Hi, andakConsultingLtd,

many thanks again and i found the solution as below:

axlShell("FORM tbx_customvar_update_main grid change 108,variable_value '100x 100'")
axlShell("FORM tbx_customvar_update_main var_update All")

or

Best Regards

Moyan