How to replace Instance values of whole schematic using Occurrence fields with TCL command or script.

Hi Raj,

Please try the below TCL script to copy all Occurrence properties to Instance across the entire design.
It handles multiple occurrences by matching the Reference; you can tweak according to your DSN.

I hope it helps!

Note: Please create a backup of your design before running script.

namespace eval ::capOcc2Inst {
}

# Get property string value
proc ::capOcc2Inst::GetProp {obj pName} {
set pCS [DboTclHelper_sMakeCString $pName]
set outCS [DboTclHelper_sMakeCString]
$obj GetEffectivePropStringValue $pCS $outCS
return [string trim [DboTclHelper_sGetConstCharPtr $outCS]]
}

# Set property string value
proc ::capOcc2Inst::SetProp {obj pName val} {
$obj SetEffectivePropStringValue [DboTclHelper_sMakeCString $pName] [DboTclHelper_sMakeCString $val]
}

# Copy Occurrence to Instance for a single part instance
proc ::capOcc2Inst::ProcessPart {lPart} {

# Skip non-parts
if { [$lPart GetObjectType] != $::DboBaseObject_PLACED_INSTANCE } {
return
}

set occCount [$lPart GetOccurrencesCount]
if {$occCount == 0} {
puts "No occurrences - skipped"
return
}

# Pick correct occurrence
set instRef [::capOcc2Inst::GetProp $lPart "Reference"]
set lOcc [$lPart GetOccurrencesAtPos 0]

if {$occCount > 1} {
for {set i 0} {$i < $occCount} {incr i} {
set cand [$lPart GetOccurrencesAtPos $i]
if {[::capOcc2Inst::GetProp $cand "Reference"] eq $instRef} {
set lOcc $cand
break
}
}
}

# Build list of all occurrence properties
set occProps {}
set lStatus [DboState]
set iter [$lOcc NewEffectivePropsIter $lStatus]
set pName [DboTclHelper_sMakeCString]
set pVal [DboTclHelper_sMakeCString]
set pType [DboTclHelper_sMakeDboValueType]
set editable [DboTclHelper_sMakeInt]

set lStatus [$iter NextEffectiveProp $pName $pVal $pType $editable]
while {[$lStatus OK] == 1} {
set name [DboTclHelper_sGetConstCharPtr $pName]
set val [DboTclHelper_sGetConstCharPtr $pVal]

# Ignore ID (instance doesn’t have ID)
if {$name ne "ID" && $val ne ""} {
::capOcc2Inst::SetProp $lPart $pName $pVal
}
set lStatus [$iter NextEffectiveProp $pName $pVal $pType $editable]
}
delete_DboEffectivePropsIter $iter

puts "Updated instance $instRef from occurrence"
}

# Run function: iterate all selected objects
proc ::capOcc2Inst::CopyOccToInst {} {

set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lNullObj NULL
set lStatus [DboState]

set lDesign [$lSession GetActiveDesign]
if {$lDesign == $lNullObj} {
puts "ERROR: No active design"
return
}

set schIter [$lDesign NewViewsIter $lStatus $::IterDefs_SCHEMATICS]
set lView [$schIter NextView $lStatus]

while {$lView != $lNullObj} {

set lSchematic [DboViewToDboSchematic $lView]
set pageIter [$lSchematic NewPagesIter $lStatus]
set page [$pageIter NextPage $lStatus]

while {$page != $lNullObj} {

set partIter [$page NewPartInstsIter $lStatus]
set lPart [$partIter NextPartInst $lStatus]

while {$lPart != $lNullObj} {
::capOcc2Inst::ProcessPart $lPart

set lPart [$partIter NextPartInst $lStatus]
}
delete_DboPagePartInstsIter $partIter
set page [$pageIter NextPage $lStatus]
}
set lView [$schIter NextView $lStatus]
}
delete_DboLibViewsIter $schIter

puts "Done copying all Occ to Inst for selected parts."
}

::capOcc2Inst::CopyOccToInst