TCl script to replace selected parts with a component from library

Question

Hello, 
 I need to replace components in a schematic page with parts from the library, I tried DboPage_ReplaceInst, but the documentation is very vague. 
 Here is my attempt for reference:

set selected [ GetSelectedObjects ] 
 puts $selected 
 set newPackageStr {CAP CER 0. 1UF 10V X8M 0201 } #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}] 
 set lLibName [ DboTclHelper _ sMakeCString $pLibName ] 
 set lLib [ $lSession GetLib $lLibName $lStatus ] 
 
 set LibraryName [ DboTclHelper _ sMakeCString ] 
 
 $lLib GetName $LibraryName 
 set newPackageName [ DboTclHelper _ sMakeCString newPackageStr ] 
 set newPackage [ $lLib GetPackage $newPackageName $lStatus ] 
 
 foreach obj $selected { 
 set device [ $obj GetDevice $lStatus ] 
 DboPage_ReplaceInst $obj $newPackageName $newPackage $device $lStatus 0 0 1 1 
 }

CadAP · Accepted Answer

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

Stats

TCl script to replace selected parts with a component from library

Community Guidelines