TCL/script to get the Custom variables variant specific Values and transfer to a customer variable?

MZ20250602835 

Please try the script below, as it will update the custom variable value by reading from the variant.

For the purpose of this example, I've taken the first value of the variable from Variant in case of multiple variants.

proc checkFuncVar {} {

# puts "entering check mode"
set toolVar [lindex [cps::getAppVersion] 0]

set lDesigName [sch::dbGetRootDesignName]
cpb::extractFile "worklib/$lDesigName/variant/variant.dat" {variant.dat}
set filename "variant.dat"
set pattern "CV_"
set fp [open $filename r]
set functiontest {}
while {[gets $fp line] >= 0} {
if {[string match -nocase "*$pattern*" $line]} {
# puts $line
lappend functiontest $line
}
}
close $fp
return $functiontest
if {[file exists $filename ] == 1} {

file delete $filename

}

}

set data [checkFuncVar]

set lCustVar {}
set regex {\{\s*(CV_\w+)\s*=\s*'([^']+)'\s*;?\s*\}}

set valuesOnlyList {}
foreach {full _ rawValue} [regexp -all -inline $regex $data] {
set innerDict {}
foreach pair [split $rawValue |] {
lassign [split $pair =] k v
dict set innerDict $k $v
}
lappend valuesOnlyList $innerDict
}

# Example: print each values-only dict
foreach d $valuesOnlyList {
# # puts "prop : [llength $d ]"
# puts "prop : [lindex $d 0]"
set lLength [llength $d]
for {set i 0} {$i < $lLength} {incr i} {


set lPropName [lindex $d $i]
incr i
set lPropVal [lindex $d $i]
# puts $lPropName
# puts $lPropVal
if {$lPropName == "DOC_PART_PCBA"} {
lappend lCustVar $lPropVal
}

}
}

# puts $lCustVar
set lVarVal [lindex $lCustVar 0]
# puts $lVarVal

set lCustomVar [cps::setDirectiveValue CUSTOMVAR TEST_V1 $lVarVal STRING]

saveAll
cps::reopenProject

Try and let me know your feedbcak.

MZ20250602835 

Please try the script below, as it will update the custom variable value by reading from the variant.

For the purpose of this example, I've taken the first value of the variable from Variant in case of multiple variants.

proc checkFuncVar {} {

# puts "entering check mode"
set toolVar [lindex [cps::getAppVersion] 0]

set lDesigName [sch::dbGetRootDesignName]
cpb::extractFile "worklib/$lDesigName/variant/variant.dat" {variant.dat}
set filename "variant.dat"
set pattern "CV_"
set fp [open $filename r]
set functiontest {}
while {[gets $fp line] >= 0} {
if {[string match -nocase "*$pattern*" $line]} {
# puts $line
lappend functiontest $line
}
}
close $fp
return $functiontest
if {[file exists $filename ] == 1} {

file delete $filename

}

}

set data [checkFuncVar]

set lCustVar {}
set regex {\{\s*(CV_\w+)\s*=\s*'([^']+)'\s*;?\s*\}}

set valuesOnlyList {}
foreach {full _ rawValue} [regexp -all -inline $regex $data] {
set innerDict {}
foreach pair [split $rawValue |] {
lassign [split $pair =] k v
dict set innerDict $k $v
}
lappend valuesOnlyList $innerDict
}

# Example: print each values-only dict
foreach d $valuesOnlyList {
# # puts "prop : [llength $d ]"
# puts "prop : [lindex $d 0]"
set lLength [llength $d]
for {set i 0} {$i < $lLength} {incr i} {


set lPropName [lindex $d $i]
incr i
set lPropVal [lindex $d $i]
# puts $lPropName
# puts $lPropVal
if {$lPropName == "DOC_PART_PCBA"} {
lappend lCustVar $lPropVal
}

}
}

# puts $lCustVar
set lVarVal [lindex $lCustVar 0]
# puts $lVarVal

set lCustomVar [cps::setDirectiveValue CUSTOMVAR TEST_V1 $lVarVal STRING]

saveAll
cps::reopenProject

Try and let me know your feedbcak.

Dear CadAP,

many thanks for your reply. I get the result and it works with your codes.

Thanks a million again.

Moyan

Dear CadAP,

i realised that the values will be updated after reopen the design.

But after reopen i get the warning because of the Pulse.

May i ask if is it possible to avoid this warning after reopen? or update the custom variables value without reopening the design?

Many thanks

MOyan

MZ20250602835 

we need to repone the design to read the cpm diretive, which is written by script.

For suppressing the message, you can use belwo command:

cps::setSuppressDialog <bool> tcl API can be used to suppress pop up messages.
e.g.
cps::setSuppressDialog 1
This will suppress all the pop up messages for current session. Executing same command with value 0 will re-enable pop up messages:
cps::setSuppressDialog 0

Dear CadAP,

many thanks for your support. After test i got one issue and i could not figure out the reason yet. It seemed the value impact the sequence.

Sometime i got the wrong order of variant within variant.dat file and then i got the wrong value.

May i ask how could i guarantee to get the right order of the variant?

MZ20250602835