Generate ORCAD netlist (with orWirelist.dll) using TCL Script

Did you ever figure this out? I am trying to solve this problem as well.

Did you ever figure this out? I am trying to solve this problem as well.

Hi CA20240926987 ,

If you're looking to export similar format data using TCL script, you can try below code.

Hope this helps!

proc pinConnectivityReport {} {

if {[file exists "pinConnectivity.txt"] == 1} {

file delete "pinConnectivity.txt"

}
set lPathCS [DboTclHelper_sMakeCString]
[GetActivePMDesign] GetName $lPathCS
set lPath [file dirname [DboTclHelper_sGetConstCharPtr $lPathCS]]
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lNullObj NULL
set lStatus [DboState]
set lDesign [$lSession GetActiveDesign]
if {$lDesign == $lNullObj} {
puts "ERROR: No active design."
return
}
set lSchi_Name [DboTclHelper_sMakeCString]
set lPinNameCS [DboTclHelper_sMakeCString]
set lPinNumberCS [DboTclHelper_sMakeCString]
set lNetNameCS [DboTclHelper_sMakeCString]
set lRefdesNameCS [DboTclHelper_sMakeCString]
set lReport [open "pinConnectivity.txt" a+]
if {$lDesign != $lNullObj} {

set lSchematicIter [$lDesign NewViewsIter $lStatus $::IterDefs_SCHEMATICS]
#get the first schematic view
set lView [$lSchematicIter NextView $lStatus]
set lPage_Name [DboTclHelper_sMakeCString]
while { $lView != $lNullObj} {
#dynamic cast from DboView to DboSchematic
set lSchematic [DboViewToDboSchematic $lView]
$lSchematic GetName $lSchi_Name
set lPagesIter [$lSchematic NewPagesIter $lStatus]
#get the first page
set lPage [$lPagesIter NextPage $lStatus]
# puts [DboTclHelper_sGetConstCharPtr $lSchi_Name]
while {$lPage!=$lNullObj} {
#placeholder: do your processing on $lPage
$lPage GetName $lPage_Name
# puts [DboTclHelper_sGetConstCharPtr $lPage_Name]
set lPageName [DboTclHelper_sGetConstCharPtr $lPage_Name]
set lPartInstIter [$lPage NewPartInstsIter $lStatus]
set lInst [$lPartInstIter NextPartInst $lStatus]
while {$lInst != $lNullObj} {
puts $lReport "++++++++++===========+++++++++++++"
$lInst GetReferenceDesignator $lRefdesNameCS
set lRefdes [DboTclHelper_sGetConstCharPtr $lRefdesNameCS]
set lPinIter [$lInst NewPinsIter $lStatus]
set lPin [$lPinIter NextPin $lStatus]

while {$lPin !=$lNullObj } {
# puts $lPin
$lPin GetPinName $lPinNameCS
set lPinName [DboTclHelper_sGetConstCharPtr $lPinNameCS]
# puts "$lPinName pinName"
$lPin GetPinNumber $lPinNumberCS
set lPinNumber [DboTclHelper_sGetConstCharPtr $lPinNumberCS]
# puts "$lPinNumber pinNumber"
set lWire [$lPin GetNet $lStatus]
# puts $lWire
if {$lWire != $lNullObj} {
$lWire GetNetName $lNetNameCS
set lNetName [DboTclHelper_sGetConstCharPtr $lNetNameCS]
# puts "$lRefdes.$lPinNumber.$lNetName.$lPageName"
puts $lReport "$lRefdes.$lPinNumber.$lPinName.$lNetName.$lPageName"
# puts [DboTclHelper_sGetConstCharPtr $lNetNameCS]
}
#get the next pin of the part
set lPin [$lPinIter NextPin $lStatus]

}
delete_DboPartInstPinsIter $lPinIter
puts $lReport "++++++++++===========+++++++++++++"
set lInst [$lPartInstIter NextPartInst $lStatus]

}
delete_DboPagePartInstsIter $lPartInstIter
#get the next page
set lPage [$lPagesIter NextPage $lStatus]
}
#get the next schematic view
delete_DboSchematicPagesIter $lPagesIter
set lView [$lSchematicIter NextView $lStatus]
}
delete_DboLibViewsIter $lSchematicIter

}
close $lReport
exec {*}[auto_execok start] "" "$lPath\\pinConnectivity.txt"
}

pinConnectivityReport