TCl script to replace selected parts with a component from library

Hello Soliman1991,

Please use the below code to replace the selected part with a part from another library.

set selected [GetSelectedObjects]
# puts $selected
set lPackage "C" ;#make sure the package name in the library.
set lStatus [DboState]
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession

set pLibName [file normalize {d:\random\Library.olb}]

foreach obj $selected {
# set device [$obj GetDevice $lStatus]
# $lPage ReplaceInst $obj $newPackageStr $lPart $device $lStatus 0 0 1 1
ReplacePart "$pLibName" "$lPackage" "$lPackage.NORMAL" ""

}

Unfortunately ReplacePart doesn't preserve RefDes, anyway around that?

Hello Soliman1991,

Please use the below code to replace the selected part with a part from another library with preserver refdef.

set selected [GetSelectedObjects]
# puts $selected
set newPackageStr [DboTclHelper_sMakeCString "C"] ;#that is the package name in the library
set lStatus [DboState]
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession

set pLibName [file normalize {d:\random\Library.olb}]

foreach obj $selected {
set device [$obj GetDevice $lStatus]
set lPart [$obj GetPart $lStatus]
set lPage [$obj GetOwner]
$lPage ReplaceInst $obj $newPackageStr $lPart $device $lStatus 1 0 1 1
# ReplacePart "$pLibName" "$lPackage" "$lPackage.NORMAL" ""

}

Thanks again, this code changes the parts "Graphics" but it keep all other properties as the old part including value, part number, etc.. Also if I tried to move the part in the schematics, capture crashes. 

Hi , 

Please add the command "DboTclHelper_sEvalPage $lPage" after command "$lPage ReplaceInst $obj $newPackageStr $lPart $device $lStatus 1 0 1 1".

set selected [GetSelectedObjects]
# puts $selected
set newPackageStr [DboTclHelper_sMakeCString "C"] ;#that is the package name in the library
set lStatus [DboState]
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession

set pLibName [file normalize {d:\random\Library.olb}]

foreach obj $selected {
set device [$obj GetDevice $lStatus]
set lPart [$obj GetPart $lStatus]
set lPage [$obj GetOwner]
$lPage ReplaceInst $obj $newPackageStr $lPart $device $lStatus 1 0 1 1

DboTclHelper_sEvalPage $lPage

# ReplacePart "$pLibName" "$lPackage" "$lPackage.NORMAL" ""

}

This fixed the crash, but it preserved more than what it should. I only need to preserve refdes and update everything else.

Hi soliman1991,

Please use command with below arguments:

$lPage ReplaceInst $obj $newPackageStr $lPart $device $lStatus 0 0 1 1

This will preserve the refdes and rest values will be updated from the library.

Hi soliman1991,

Please use command with below arguments:

$lPage ReplaceInst $obj $newPackageStr $lPart $device $lStatus 0 0 1 1

This will preserve the refdes and rest values will be updated from the library.

Hello! Thank you so much for your help. I tried the change suggested, and it still only change "Graphic" property, it still preserves all other properties.

HI soliman1991

I believe you have take the dboLibPart and Dbodevice form the library from which you want to change it.

Please try the below code just replace the location C:/Users/test/Desktop/generateOlb/LIBRARY2.OLB with your .olb location.

At my end it changes all properties value except refdes.

set selected [GetSelectedObjects]

set package "C"
set newPackageStr [DboTclHelper_sMakeCString "$package"] ;#that is the package name in the library
set newPartStr "$package.Normal" ;#that is the package name in the library
set lStatus [DboState]
set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set pLibName [DboTclHelper_sMakeCString "[file normalize {C:/Users/test/Desktop/generateOlb/LIBRARY2.OLB}]"]

set lLib [$lSession GetLib $pLibName $lStatus]
set lnewpartIter [$lLib NewPartsIter $lStatus]

set lPart [$lnewpartIter NextPart $lStatus]

set nm [DboTclHelper_sMakeCString]
while {$lPart != "NULL"} {

set lDbopackg [$lPart GetPackagePtr]
set lDevice [$lDbopackg GetDevice 0 $lStatus]
# puts $lDevice
# puts $lPart
$lPart GetName $nm
set lPartname [DboTclHelper_sGetConstCharPtr $nm]
# puts [DboTclHelper_sGetConstCharPtr $nm]
if {$lPartname == "$newPartStr"} {
# puts "changing"
foreach obj $selected {
set lPage [$obj GetOwner]
$lPage ReplaceInst $obj $newPackageStr $lPart $lDevice $lStatus 0 0 1 1
DboTclHelper_sEvalPage $lPage

}

}
set lPart [$lnewpartIter NextPart $lStatus]
}

delete_DboLibPartsIter $lnewpartIter

Please try and let me know your fedback

This worked!! Thank you so much.

CAD AP you are a GEM for this TCL