TCL Script System Capture get ALL Custom Var from Project and all from all Variants

@PIPE, Do you need command to read all custom variable and all variant name information?

yes, and write them to a file

Regards

Peter

 PIPE 

for custom_var-> cps::getDirectives CUSTOMVAR --> Get list of all custom var in project.

set lCustomVarlist [cps::getDirectives CUSTOMVAR ]

foreach var $lCustomVarlist {

set Val [ cps::getDirectiveValue CUSTOMVAR $var ]

puts $Val

}

hello,

unfortinatly this works only for the customvar in the root not for variants

Tcl> source c:/cadence/tcl/d.tcl

GE

<partno>

<docno>

<v>

<date>

<user>

<title>

BASE

TAC290

5865895SCH

7

P9

7

H

in my variant i have change some customvar with the varianteditor

i have try this, but unfortinatly this prints a lot but no varinat customvars

set filePath "c:/temp"
set fileName "ProjectDetails.txt"
set filePath1 [file join $filePath $fileName]
set op [open $filePath1 "w+"]
set sectionList [cps::getSections]
foreach section $sectionList {
set directiveList [cps::getDirectives $section]
foreach directive $directiveList {
set valueList [cps::getDirectiveValue $section $directive]
set value1 [concat $section ":" $directive ":" $valueList]
puts $op $value1
}
}
close $op

Dear CadAP,

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

I unfortunately couldn't find a way  to read or write the changed customvariables from the variant editor.

The only way was to export the variant.dat and read everything from it.

I solved this, however, with an external tool I wrote, because I needed this information externally anyway.

if you find a tcl solution, please post it.

-Peter

I unfortunately couldn't find a way  to read or write the changed customvariables from the variant editor.

The only way was to export the variant.dat and read everything from it.

I solved this, however, with an external tool I wrote, because I needed this information externally anyway.

if you find a tcl solution, please post it.

-Peter

PIPE MZ20250602835 

Please use below code to get the custom variable name and value in list:

proc getCustomVar {} {

# 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
puts $functiontest
if {[file exists $filename ] == 1} {

file delete $filename

}

}

getCustomVar

You have two variants, V1 and V2, and the expected result is as below:

**Expected Result:**

{ CV_V1 = 'TEST_V1=1236|TEST_V2=T_v1' ;} { CV_V2 = 'TEST_V1=T1|TEST_V2=T2' ;}

Please do let me know your feedback.