Get part occurrences reference designators and pin numbers connected to a flat net

@VB202505089850

Please find the the code below i have added below section in your code to get placed part and then refdes.:

++++++++++++++++++++++++

set lPropRefdesStr [DboTclHelper_sMakeCString "Part Reference"]
set lPropValStr [DboTclHelper_sMakeCString]

set lPlacedINst [$pinInst GetOwner]
set lState [$lPlacedINst GetEffectivePropStringValue $lPropRefdesStr $lPropValStr]
set refdes [DboTclHelper_sGetConstCharPtr $lPropValStr]

+++++++++++++++++++++++++++++++++

variable cstr DboTclHelper_sMakeCString
variable str DboTclHelper_sGetConstCharPtr
set lPropRefdesStr [DboTclHelper_sMakeCString "Part Reference"]
set lPropValStr [DboTclHelper_sMakeCString]
set dsn [GetActivePMDesign]

set lStatus [DboState]

set lNullObj NULL

# Get iterator for flat nets
set netIter [$dsn NewFlatNetsIter $lStatus]
if {$netIter == $lNullObj} {
return
}

# Iterate over flat nets
set net [$netIter NextFlatNet $lStatus]
while {$net != $lNullObj} {

# Get net name
set netNameCStr [$cstr]
if {[catch {$net GetName $netNameCStr}]} {
set netName ""
} else {
set netName [$str $netNameCStr]
}

if {$netName != ""} {
# Get port (pins) connected to this net
set pinIter [$net NewPortOccurrencesIter $lStatus]
set pinList {}

set pin [$pinIter NextPortOccurrence $lStatus]

while {$pin != $lNullObj} {
set pinInst [$pin GetPortInst $lStatus]

# Get reference designator into $refdes
# How to get it? I need to find the part occurrence somehow, either from the port occurrence or from the flat net, but how?
set lPlacedINst [$pinInst GetOwner]
set lState [$lPlacedINst GetEffectivePropStringValue $lPropRefdesStr $lPropValStr]
set refdes [DboTclHelper_sGetConstCharPtr $lPropValStr]
# Get pin number
set pinNumCStr [$cstr]
if {[catch {$pinInst GetPinNumber $pinNumCStr}]} {
set pinNum ""
} else {
set pinNum [$str $pinNumCStr]
}

if {$refdes != "" && $pinNum != ""} {
lappend pinList "$refdes.$pinNum"
}
set pin [$pinIter NextPortOccurrence $lStatus]
}
delete_DboFlatNetPortOccurrencesIter $pinIter

# Store the net and its pins (sorted for consistency)
if {[llength $pinList] > 0} {
dict set netsdict $netName [lsort $pinList]
}
}
set net [$netIter NextFlatNet $lStatus]

}

delete_DboDesignFlatNetsIter $netIter

Thanks CadAP , but i think it will only give me the Ref Des of the part instances, isn't it? I need the Ref Des of the part occurrences.

Since you use:
set lState [$lPlacedINst GetEffectivePropStringValue $lPropRefdesStr $lPropValStr]

Where lPlacedINst is the part instance.

Thanks CadAP , but i think it will only give me the Ref Des of the part instances, isn't it? I need the Ref Des of the part occurrences.

Since you use:
set lState [$lPlacedINst GetEffectivePropStringValue $lPropRefdesStr $lPropValStr]

Where lPlacedINst is the part instance.

VB202505089850 

Please updated code which helps to get part occurrences refdes.

I have added below proc to get part occurences in your code.

++++++++++++++++++++++++++++++++++++++++

proc DumpPartOccurrences {lObj} {
# set lObj [GetSelectedObjects]
set lStatus [DboState]
set lPatOcc {}
foreach obj $lObj {

set lOccCount [$obj GetOccurrencesCount]
for {set i 0} {$i<$lOccCount} {incr i} {
set lOcc [$obj GetOccurrencesAtPos $i]

lappend lPatOcc $lOcc
}
}
return $lPatOcc
}

+++++++++++++++++++++++++++++++++++++++

proc DumpPartOccurrences {lObj} {
# set lObj [GetSelectedObjects]
set lStatus [DboState]
set lPatOcc {}
foreach obj $lObj {

set lOccCount [$obj GetOccurrencesCount]
for {set i 0} {$i<$lOccCount} {incr i} {
set lOcc [$obj GetOccurrencesAtPos $i]

lappend lPatOcc $lOcc
}
}
return $lPatOcc
}

variable cstr DboTclHelper_sMakeCString
variable str DboTclHelper_sGetConstCharPtr
set lPropRefdesStr [DboTclHelper_sMakeCString "Part Reference"]
set lPropValStr [DboTclHelper_sMakeCString]
set dsn [GetActivePMDesign]

set lStatus [DboState]

set lNullObj NULL

# Get iterator for flat nets
set netIter [$dsn NewFlatNetsIter $lStatus]
if {$netIter == $lNullObj} {
return
}

# Iterate over flat nets
set net [$netIter NextFlatNet $lStatus]
while {$net != $lNullObj} {

# Get net name
set netNameCStr [$cstr]
if {[catch {$net GetName $netNameCStr}]} {
set netName ""
} else {
set netName [$str $netNameCStr]
}

if {$netName != ""} {
# Get port (pins) connected to this net
set pinIter [$net NewPortOccurrencesIter $lStatus]
set pinList {}

set pin [$pinIter NextPortOccurrence $lStatus]

while {$pin != $lNullObj} {
set pinInst [$pin GetPortInst $lStatus]

# Get reference designator into $refdes
# How to get it? I need to find the part occurrence somehow, either from the port occurrence or from the flat net, but how?
set lPlacedINst [$pinInst GetOwner]
set lPlacedOcc [DumpPartOccurrences $lPlacedINst]
foreach lOcc $lPlacedOcc {
set lState [$lOcc GetEffectivePropStringValue $lPropRefdesStr $lPropValStr]
set refdes [DboTclHelper_sGetConstCharPtr $lPropValStr]
}
# Get pin number
set pinNumCStr [$cstr]
if {[catch {$pinInst GetPinNumber $pinNumCStr}]} {
set pinNum ""
} else {
set pinNum [$str $pinNumCStr]
}

if {$refdes != "" && $pinNum != ""} {
lappend pinList "$refdes.$pinNum"
}
set pin [$pinIter NextPortOccurrence $lStatus]
}
delete_DboFlatNetPortOccurrencesIter $pinIter

# Store the net and its pins (sorted for consistency)
if {[llength $pinList] > 0} {
dict set netsdict $netName [lsort $pinList]
}
}
set net [$netIter NextFlatNet $lStatus]

}

delete_DboDesignFlatNetsIter $netIter

Thank you CadAP  ! It seems to be working.