TCL Replace all the Pat on that page

This is being looked upon. Once script is ready, it will be shared.

Hi ZH202409115233 

Please the try the below tck code. 

It will dump the properties of a CIS library part (part number start with EMA) and then replace the other selected instance with the CIS part library.

Please check and lt me know your feedback.

proc dumpproperties {} {

set lNullObj NULL
set lCounter 0
set lPropertieslist {}
set lStatus [DboState]
set lPartNameCString [DboTclHelper_sMakeCString "Part_Number"]
set lPartValueCString [DboTclHelper_sMakeCString]
set lSelectedParts [GetSelectedObjects]
#create the input/output parameters
set lPrpName [DboTclHelper_sMakeCString]
set lPrpValue [DboTclHelper_sMakeCString]
set lPrpType [DboTclHelper_sMakeDboValueType]
set lEditable [DboTclHelper_sMakeInt]
foreach part $lSelectedParts {

set lStatus [$part GetEffectivePropStringValue $lPartNameCString $lPartValueCString]
set lPartValue [DboTclHelper_sGetConstCharPtr $lPartValueCString]
if {[regexp {EMA} $lPartValue ] == 1} {

set lPropsIter [$part NewEffectivePropsIter $lStatus]
#get the first effective property
set lStatus [$lPropsIter NextEffectiveProp $lPrpName $lPrpValue $lPrpType $lEditable]
while {[$lStatus OK] == 1 && [DboTclHelper_sGetInt $lEditable] == 1} {

set lPropname [DboTclHelper_sGetConstCharPtr $lPrpName]
set lPropVal [DboTclHelper_sGetConstCharPtr $lPrpValue]
# puts "$lPropname :== $lPropVal"
# puts [DboTclHelper_sGetInt $lEditable]
lappend lPropertieslist $lPropname $lPropVal
#placeholder: do your processing for $lPrpName $lPrpValue $lPrpType $lEditable
#get the next effective property
set lStatus [$lPropsIter NextEffectiveProp $lPrpName $lPrpValue $lPrpType $lEditable]
incr lCounter
}


delete_DboEffectivePropsIter $lPropsIter

}

if {$lCounter > 0} {

return $lPropertieslist

}
}

}

set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lNullObj NULL
set lStatus [DboState]
set lPkgCSName [DboTclHelper_sMakeCString]
set lPartRefernce [DboTclHelper_sMakeCString]
set lPartRefernce1 [DboTclHelper_sMakeCString]
set lSelcedtedObj [lindex [GetSelectedObjects] 0]
# puts $lSelcedtedObj

set lAllDbProps [dumpproperties]
set lPkgName [$lSelcedtedObj GetPackage $lStatus]
set lLibPart [$lSelcedtedObj GetPart $lStatus]
set lDboDevice [$lSelcedtedObj GetDevice $lStatus]
set lSourcePckgnName [$lSelcedtedObj GetSourcePackageName $lPkgCSName]
set lRef [$lSelcedtedObj GetReference $lPartRefernce]
set lPartRef [DboTclHelper_sGetConstCharPtr $lPartRefernce]
puts $lPkgName
puts $lLibPart
puts $lDboDevice
puts $lPartRef
puts [DboTclHelper_sGetConstCharPtr $lPkgCSName]
set lselob [GetSelectedObjects]
foreach obj $lselob {
set lPage [$obj GetOwner]
set lRef1 [$obj GetReference $lPartRefernce1]
set lPartRef1 [DboTclHelper_sGetConstCharPtr $lPartRefernce1]
puts $lPartRef1
if {$lPartRef1 != $lPartRef} {
puts "changing"
$lPage ReplaceInst $obj $lPkgCSName $lLibPart $lDboDevice $lStatus 1 1 1 1 1
DboTclHelper_sEvalPage $lPage
Menu "File::Save"
Menu "View::Zoom::Redraw"
puts "[llength $lAllDbProps]"
for {set i 0} {$i <= [expr {[llength $lAllDbProps]/2}]} {incr i} {

# puts [lindex $lAllDbProps $i]
# puts [lindex $lAllDbProps [expr {$i + 1}]]
set lpropname [DboTclHelper_sMakeCString [lindex $lAllDbProps $i]]
set lpropvalu [DboTclHelper_sMakeCString [lindex $lAllDbProps [expr {$i + 1}]] ]
# puts $lpropname
# puts $lpropvalu
# $obj SetEffectivePropStringValue $lpropname $lpropvalu 0
$obj SetUserPropStringValue $lpropname $lpropvalu
incr i
}
}


}

I understand the logic of this code, but the code lines # $obj SetEffectivePropStringValue $lpropname $lpropvalu 0 and $obj SetUserPropStringValue $lpropname $lpropvalu are not working, why?（Cadence 17.2）

ZH202409115233  it should work. 

Can you let me know the current hotfix for you SPB17.2 version?

Thank you. That works