OrCAD capture TCL script to find pin names of a component

Question

I want to print pin names of a component using a TCL script in OrCad capture. I used the TCL reference document provided by cadence, and this is what the code looks like.

#? Iterate over all pins of a part instance / drawn instance 
 set lIter [ $ lInst NewPinsIter $ lStatus ] 
 set lNullObj NULL 
 # get the first pin of the part 
 set lPin [ $ lIter NextPin $ lStatus ] 
 while { $ lPin !=$ lNullObj } { 
 
 #! placeholder: do your processing on $lPin 
 set lPinName [ DboTclHelper_sMakeCString ] 
 $ lPin GetName $ lPinName 
 set lPinName_name [ DboTclHelper_sGetConstCharPtr $ lPinName ] 
 puts " Pin: 	\" $ lPinName_name \"	\" $ lPinName \"	\" $ lPin \" " 
 
 # get the next pin of the part 
 set lPin [ $ lIter NextPin $ lStatus ] 
 } 
 delete_DboPartInstPinsIter $ lIter 
 So there are three variables, lPinName_name, lPinName, and lPin. None of them return anything useful, instead returning strange character sequences. Am I missing something or doing something wrong here? 
 Any help regarding this would be highly appreciated.

krzysztofd · Answer

Assuming, that the lInst in your example holds a pointer acquired from calling the NextPartInst method and lStatus holds a pointer acquired from calling the DboState method and, if the pin names or pin numbers are all you are after, then for example: 
 set result [list] set count [$lInst GetPinCount $lStatus] for {set index 0} {$index < $count} {incr index} { set portInst [$lInst GetPin $index $lStatus] set pName [DboTclHelper_sMakeCString]; set pNumber [DboTclHelper_sMakeCString]; $portInst GetPinName $pName; $portInst GetPinNumber $pNumber; lappend result [list [DboTclHelper_sGetConstCharPtr $pNumber] [DboTclHelper_sGetConstCharPtr $pName] ] } puts $result

Stats

OrCAD capture TCL script to find pin names of a component

Community Guidelines