OrCAD Capture TCL to Iterate over all pins of a part in a Library File

Hi All,

I am new to TCL scripting in OrCAD Capture and wanting to write a simple script to

iterate over all pins of a part (multiple sections) in a Library file, and to print each of the pin number.

I have got an example from the user guide, to 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

#get the next pin of the part

set lPin [$lIter NextPin $lStatus]

}

delete_DboPartInstPinsIter $lIter

Just wondering how i shall proceed from here...

e.g  the Library file is "my_Library.olb",

the name of the part is "Our_Chip" and it comes with multiple sections.

Appreciate if any TCL expert can help, Thanks in Advance.