DRC on duplicate nets

Yes, TCL scripts work for me, can I have one? 

Please perform below steps to run TCL Script >

1. Copy the attached script in notepad and save the file.
    
2. Invoke OrCAD Capture and open the schematic design.
    
3. Select the design file (.dsn) in the Project Manager.
    
4. Select View > Command Window.
    
5. Source the script in Capture using the following command: 

source {path_to_script\tcl_dump_duplicate_net_name.tcl}
 

Example: 

source C:\TCL\tcl_dump_duplicate_net_name.tcl} and enter dumpToSessionlog in next line.

Go to Session Log and see the off page name along with page number is present in the session log.

Code >

#Dump duplicate nets with page name info into sessionlog window
proc dumpWireList {} {
# global i
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lNullObj NULL
set lNetNameCString [DboTclHelper_sMakeCString]
set duplicateNetName {}
set lStatus [DboState]
set lDesign [$lSession GetActiveDesign]
set lSchi_Name [DboTclHelper_sMakeCString]
set lSchematicIter [$lDesign NewViewsIter $lStatus $::IterDefs_SCHEMATICS]
#get the first schematic view
set lView [$lSchematicIter NextView $lStatus]

set lPage_Name [DboTclHelper_sMakeCString]

while { $lView != $lNullObj} {
#dynamic cast from DboView to DboSchematic
set lSchematic [DboViewToDboSchematic $lView]
$lSchematic GetName $lSchi_Name
set lPagesIter [$lSchematic NewPagesIter $lStatus]
#get the first page
set lPage [$lPagesIter NextPage $lStatus]

# puts [DboTclHelper_sGetConstCharPtr $lSchi_Name]

while {$lPage!=$lNullObj} {
#placeholder: do your processing on $lPage
$lPage GetName $lPage_Name
set lPageName [DboTclHelper_sGetConstCharPtr $lPage_Name]
set lWiresIter [$lPage NewWiresIter $lStatus]
#get the first wire
set lWire [$lWiresIter NextWire $lStatus]
set lNullObj NULL
while {$lWire != $lNullObj} {
set lObjectType [$lWire GetObjectType]
if {$lObjectType == $::DboBaseObject_WIRE_SCALAR} {
#placeholder: do your processing on Wire scalar $lWire
$lWire GetNetName $lNetNameCString
set lNetName [DboTclHelper_sGetConstCharPtr $lNetNameCString]

# puts [lsearch $duplicateNetName $lNetName]
if {[lsearch $duplicateNetName $lNetName] == -1} {
lappend duplicateNetName $lNetName
}
}
#get the next wire
set lWire [$lWiresIter NextWire $lStatus]
}
delete_DboPageWiresIter $lWiresIter


set lPage [$lPagesIter NextPage $lStatus]
}
#placeholder: do your processing on $lSchematic

#puts $lSchematic

#get the next schematic view
set lView [$lSchematicIter NextView $lStatus]
}
delete_DboLibViewsIter $lSchematicIter
delete_DboSchematicPagesIter $lPagesIter

return $duplicateNetName
}

proc dumpToSessionlog {} {
# global i
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lNullObj NULL
set lWirelist [dumpWireList]
set lNetNameCString [DboTclHelper_sMakeCString]
set duplicateNetName {}
set lStatus [DboState]
set lDesign [$lSession GetActiveDesign]
set lSchi_Name [DboTclHelper_sMakeCString]
set lPageNamelist {}
ClearSessionLog
foreach wireName $lWirelist {
set lSchematicIter [$lDesign NewViewsIter $lStatus $::IterDefs_SCHEMATICS]
#get the first schematic view
set lView [$lSchematicIter NextView $lStatus]

set lPage_Name [DboTclHelper_sMakeCString]

while { $lView != $lNullObj} {
#dynamic cast from DboView to DboSchematic
set lSchematic [DboViewToDboSchematic $lView]
$lSchematic GetName $lSchi_Name
set lPagesIter [$lSchematic NewPagesIter $lStatus]
#get the first page
set lPage [$lPagesIter NextPage $lStatus]

# puts [DboTclHelper_sGetConstCharPtr $lSchi_Name]
while {$lPage!=$lNullObj} {
#placeholder: do your processing on $lPage
$lPage GetName $lPage_Name
set lPageName [DboTclHelper_sGetConstCharPtr $lPage_Name]
set lWiresIter [$lPage NewWiresIter $lStatus]
#get the first wire
set lWire [$lWiresIter NextWire $lStatus]
set lNullObj NULL
while {$lWire != $lNullObj} {
set lObjectType [$lWire GetObjectType]
if {$lObjectType == $::DboBaseObject_WIRE_SCALAR} {
#placeholder: do your processing on Wire scalar $lWire
$lWire GetNetName $lNetNameCString
set lNetName [DboTclHelper_sGetConstCharPtr $lNetNameCString]
if {$wireName == $lNetName && [lsearch $lPageNamelist $wireName\_$lPageName] == -1 } {

lappend lPageNamelist $wireName\_$lPageName
DboState_WriteToSessionLog [DboTclHelper_sMakeCString $wireName\_$lPageName]

}

}
#get the next wire
set lWire [$lWiresIter NextWire $lStatus]
}
delete_DboPageWiresIter $lWiresIter


set lPage [$lPagesIter NextPage $lStatus]
}
#placeholder: do your processing on $lSchematic

#puts $lSchematic

#get the next schematic view
set lView [$lSchematicIter NextView $lStatus]
}
delete_DboLibViewsIter $lSchematicIter
delete_DboSchematicPagesIter $lPagesIter
}

# return $lPageNamelist
}

Let me know how it goes for you after running the TCL Script.