Stats

More Content

Getting Pin name and Reference Value by Offpage Connector

karthikeyank

Hi,

I want to get the of "OFFPAGE CONNECTOR NAME, PIN NAME, REFERENCE" for selected pages. Ive tired by below code i can get OFFPAGE CONNECTOR Name. but i can't get the PIN NAME and REFERENCE VALUE.

Can Anyone please help me out to get those two names. im new to TCL.

Code:

set selectedobjs [GetSelectedPMItems]
set objlength [llength $selectedobjs]
set lNullObj NULL
set lStatus [DboState]
for {set j 0} {$j < $objlength} {incr j} {
set obj [lindex $selectedobjs $j]
set UPPageNameCSG [DboTclHelper_sMakeCString]
$obj GetName $UPPageNameCSG
set UPPageNameG [DboTclHelper_sGetConstCharPtr $UPPageNameCSG]
#puts $UPPageNameG
set pOffPageConnectorsIter [$obj NewOffPageConnectorsIter $lStatus $::IterDefs_ALL]
set pOffPageConnector [$pOffPageConnectorsIter NextOffPageConnector $lStatus]
while {$pOffPageConnector!=$lNullObj} {
set partName [DboTclHelper_sMakeCString]
$pOffPageConnector GetName $partName
set InpNetName [DboTclHelper_sGetConstCharPtr $partName]
puts $InpNetName

set wireobj [$pOffPageConnector GetWire $lStatus]
set PinNameDt [DboTclHelper_sMakeCString]
set pinObj [$wireobj GetPin $lStatus]
$pinObj GetPinName $PinNameDt
set PinNameDtStr [DboTclHelper_sGetConstCharPtr $PinNameDt]
puts $PinNameDtStr

set pOffPageConnector [$pOffPageConnectorsIter NextOffPageConnector $lStatus]
}
delete_DboPageOffPageConnectorsIter $pOffPageConnectorsIter
}

Output that i want:

OFFPAGE CONNECTOR NAME, PIN NAME, REFERENCE

S1_TC_SCN_CAL_SW_0,A01,109

S1_TC_SCN_AC_DOWN,A02,109

  • CadAP
    +1

    Hi ,

    I have modified your share script to get the pin name, pin number and refdes of component.

    set selectedobjs [GetSelectedPMItems]
    set objlength [llength $selectedobjs]
    set lNullObj NULL
    set lStatus [DboState]
    set partName [DboTclHelper_sMakeCString]
    set lPortNameCS [DboTclHelper_sMakeCString]
    set lPortNumberCS [DboTclHelper_sMakeCString]
    set lRefDesCS [DboTclHelper_sMakeCString]
    set list {}
    # puts "test"
    for {set j 0} {$j < $objlength} {incr j} {
    set obj [lindex $selectedobjs $j]
    set UPPageNameCSG [DboTclHelper_sMakeCString]
    $obj GetName $UPPageNameCSG
    set UPPageNameG [DboTclHelper_sGetConstCharPtr $UPPageNameCSG]
    #puts $UPPageNameG
    set pOffPageConnectorsIter [$obj NewOffPageConnectorsIter $lStatus $::IterDefs_ALL]
    set pOffPageConnector [$pOffPageConnectorsIter NextOffPageConnector $lStatus]
    while {$pOffPageConnector!=$lNullObj} {
    # puts $pOffPageConnector

    $pOffPageConnector GetName $partName
    set InpNetName [DboTclHelper_sGetConstCharPtr $partName]
    # puts $InpNetName

    set wireobj [$pOffPageConnector GetWire $lStatus]
    if {$wireobj != $lNullObj} {

    set lStartPoint [$wireobj GetStartPoint $lStatus]
    set lEndPoint [$wireobj GetEndPoint $lStatus]
    $puts $wireobj
    $puts $lStartPoint
    set PinNameDt [DboTclHelper_sMakeCString]
    set lPage [$wireobj GetOwner]

    set lPortInst [$lPage GetPortInst $lStartPoint $lStatus]
    if {$lPortInst == "" || $lPortInst == "NULL" } {
    set lPortInst [$lPage GetPortInst $lEndPoint $lStatus]

    }

    if {$lPortInst != $lNullObj} {
    set lPartInst [$lPortInst GetOwner]
    $lPartInst GetReferenceDesignator $lRefDesCS
    set lRefdes [DboTclHelper_sGetConstCharPtr $lRefDesCS]
    $lPortInst GetPinNumber $lPortNumberCS
    set lPortNumber [DboTclHelper_sGetConstCharPtr $lPortNumberCS]
    $lPortInst GetPinName $lPortNameCS
    set lPortName [DboTclHelper_sGetConstCharPtr $lPortNameCS]
    lappend list $InpNetName $lPortNumber $lPortName $lRefdes
    }
    }
    set pOffPageConnector [$pOffPageConnectorsIter NextOffPageConnector $lStatus]
    }
    delete_DboPageOffPageConnectorsIter $pOffPageConnectorsIter
    }


    puts $list

Cadence Guidelines

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.