How can I get the parts pins and corresponding netname by using the TCL command in OrCAD Capture?

HI EW202412038032 ,

Please modified code for getting the connected Pin and connected net name.

# source "D:\\Work\\OrCadAuto\\my_tcl\\test.tcl"
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lStatus [DboState]

 set pDesignPath "D:\\test.dsn"
# puts $pDesignPath
set lDesignPath [DboTclHelper_sMakeCString $pDesignPath]
set lDesign [$lSession GetDesignAndSchematics $lDesignPath $lStatus]
# puts $lDesign
set pSchematicName SCHEMATIC1
set lSchematicName [DboTclHelper_sMakeCString $pSchematicName]
set lSchematic [$lDesign GetSchematic $lSchematicName $lStatus]

set lPagesIter [$lSchematic NewPagesIter $lStatus]
set lPage [$lPagesIter NextPage $lStatus]
set lNullObj NULL

set idx 0

while {$lPage != $lNullObj} {
set lPartInstsIter [$lPage NewPartInstsIter $lStatus]
#get the first part inst
set lInst [$lPartInstsIter NextPartInst $lStatus]
while {$lInst!=$lNullObj} {
set lPlaceInst [DboPartInstToDboPlacedInst $lInst]
if {$lPlaceInst != $lNullObj} {
set idx [expr $idx+1]

#PCBFootprint
set lPlaceInst_FootPrint [DboTclHelper_sMakeCString]
$lPlaceInst GetPCBFootprint $lPlaceInst_FootPrint

#Location
set lPlaceInst_RefDsn [DboTclHelper_sMakeCString]
$lPlaceInst GetReferenceDesignator $lPlaceInst_RefDsn
puts [DboTclHelper_sGetConstCharPtr $lPlaceInst_RefDsn]
# Part Pins & Netname
set lPinIter [$lPlaceInst NewPinsIter $lStatus]
set lPlaceInst_lPinNameCString [DboTclHelper_sMakeCString]
set lPinName_lNetNameCString [DboTclHelper_sMakeCString]
set lPin [$lPinIter NextPin $lStatus]
# puts $lPin
while {$lPin != $lNullObj } {
# puts $lPin
$lPin GetPinName $lPlaceInst_lPinNameCString
set lNet [$lPin GetNet $lStatus]
if {$lNet != $lNullObj} {
$lNet GetNetName $lPinName_lNetNameCString
# set lNet [$lPin GetWire $lStatus]
puts [DboTclHelper_sGetConstCharPtr $lPlaceInst_lPinNameCString]
puts [DboTclHelper_sGetConstCharPtr $lPinName_lNetNameCString]
}

# puts [DboTclHelper_sGetConstCharPtr $lPlaceInst_lPinNameCString]

set lPin [$lPinIter NextPin $lStatus]
}

}
#get the next part inst
set lInst [$lPartInstsIter NextPartInst $lStatus]
}
set lPage [$lPagesIter NextPage $lStatus]
}

delete_DboPagePartInstsIter $lPartInstsIter
delete_DboSchematicPagesIter $lPagesIter
delete_DboPartInstPinsIter $lPinIter

Hope it helps!