BluePrint and ODB++ Inside Data

Hi daun,

Guess this is a question for the software developers, You need to contact the Cadence support and get them to look into this for you, and if its not a current feature then maybe at somepoint it will be put in as a "feature request" you just have to keep pressing them :)

Stephen Grant-Davies (QuantumCad)
www.quantumcad.co.uk

I made a table template that I populate with an extracted .csv file via the data table manager. It's fairly simple. The .csv file contains the stackup data and is generated via the following PERL code:

sub StackUp {

open (SCR, ">tech.scr");

print SCR ("setwindow pcb\n");
print SCR ("techfile out\n");
print SCR ("setwindow form.tech_out\n");
print SCR ("FORM tech_out techfile tech\n");
print SCR ("FORM tech_out execute\n");
print SCR ("FORM tech_out cancel\n");
print SCR ("setwindow pcb\n");

print SCR ("exit;fillin no\n");

close SCR;

system ("allegro -product Allegro_performance -q -s tech.scr -nographic $boardFile");


open (IN, "tech.tech") || open (IN, "tech.tcf");
@in = ;

open (OUT, ">stackup.csv");

print OUT (",Name,");
print OUT ("Type,");
print OUT ("Material,");
print OUT ("Thickness,");
print OUT ("Dielectric Constant,\n");

for $in(@in) {
chomp $in;
if ($in =~ //) {
$data = "Y";
}
if ($in =~ /<\/crossSection>/) {
undef $data;
}
if ($data) {
if ($in =~ //) {
$layer = "Y";
}
if ($in =~ /<\/layer>/) {
print ("$layerName\n");
print ("\t$layerType\n");
print ("\t$layerMaterial\n");
print ("\t$layerThickness\n");
print ("\t$layerDielectricConstant\n");

print OUT (",$layerName,");
print OUT ("$layerType,");
print OUT ("$layerMaterial,");
print OUT ("$layerThickness,");
print OUT ("$layerDielectricConstant,");

print OUT ("\n");

$Thickness = $Thickness + $layerThickness;

undef $layer;

undef $layerType;
undef $layerName;
undef $layerMaterial;
undef $layerThickness;
undef $layerDielectricConstant;

undef $CDS_LAYER_TYPE;
undef $CDS_LAYER_MATERIAL;
undef $CDS_LAYER_THICKNESS;
undef $CDS_LAYER_DIELECTRIC_CONSTANT;
# die;
}
if ($layer) {
if ($in =~ // && ! $layerName) {
$layerName = $';
$layerName =~ s/<.*//;
}

if ($in =~ /CDS_LAYER_TYPE/) {
$CDS_LAYER_TYPE = "Y";
}
if ($CDS_LAYER_TYPE && $in =~ //) {
$layerType = $';
$layerType =~ s/<.*//;
undef $CDS_LAYER_TYPE;
}

if ($in =~ /CDS_LAYER_MATERIAL/) {
$CDS_LAYER_MATERIAL = "Y";
}
if ($CDS_LAYER_MATERIAL && $in =~ //) {
$layerMaterial = $';
$layerMaterial =~ s/<.*//;
undef $CDS_LAYER_MATERIAL;
}

if ($in =~ /CDS_LAYER_THICKNESS/) {
$CDS_LAYER_THICKNESS = "Y";
}
if ($CDS_LAYER_THICKNESS && $in =~ //) {
$layerThickness = $';
$layerThickness =~ s/<.*//;
undef $CDS_LAYER_THICKNESS;
}

if ($in =~ /CDS_LAYER_DIELECTRIC_CONSTANT/) {
$CDS_LAYER_DIELECTRIC_CONSTANT = "Y";
}
if ($CDS_LAYER_DIELECTRIC_CONSTANT && $in =~ //) {
$layerDielectricConstant = $';
$layerDielectricConstant =~ s/<.*//;
undef $CDS_LAYER_DIELECTRIC_CONSTANT;
}

}
}
}
print OUT (",,,,$Thickness,,");
}

Dielectric thicknesses export into Valor ODB++.

Type "define lyrstack" in the allego command window to use the new cross section.


To disable the default "define xsection" set environment variable "xsection_modern". (allegro expert or performance only)


____________________________________________________
oscar miguelino

Thank you for the responses to my posting. I will contact Cadence Support. I will try the code shown in the second response and post my results back here.