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

Question

Dear all, 
 may i ask how could i make a TCL/ script in order to get the Custom variables variant specific Values for specific row( For example row3 DOC_PART_PCBA ) and then give/transfer this value to a customer variables?

Many thanks 
 Moyan

CadAP · Accepted Answer

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.

Stats

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

Top Replies

Community Guidelines