How to get a symbol from sch and paste it into a specified OLB library file with tcl script?

Hi Jaydstone,

Please use the below code to copy the cache lib to a new library.

Make sure you have provided your library location for copy the packages.

set lDestnLibPath [file normalize {C:\Users\Desktop\LIBRARY2.OLB}] this line need to modify according to your OLB loaction.

set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lStatus [DboState]
set lNullObj NULL
set lDesign [$lSession GetActiveDesign]
set lNameCString [DboTclHelper_sMakeCString ]
set lSrcLibPathCS [DboTclHelper_sMakeCString]
set lDesignCacheIter [$lDesign NewCachesIter $lStatus]
set lCachedObject [$lDesignCacheIter NextCachedObject $lStatus]
set lPartName [DboTclHelper_sMakeCString]

#Provide the loaction of OLB in which package should be copied.
set lDestnLibPath [file normalize {C:\Users\Desktop\LIBRARY2.OLB}]

set lDsctnLibPathCstring [DboTclHelper_sMakeCString $lDestnLibPath]
set lDestnLib [$lSession GetLib $lDsctnLibPathCstring $lStatus]
# set lContLib [$lCachedLibObject GetContainingLib]
# # set llibname [$lSession GetLib $lContLib $lStatus ]
while {$lCachedObject != $lNullObj} {
set lCachedLibObject [DboBaseObjectToDboLibObject $lCachedObject]
set lContLib [$lCachedLibObject GetContainingLib]
$lCachedLibObject GetSourceLibName $lSrcLibPathCS
set lLib [$lSession GetLib $lSrcLibPathCS $lStatus]
# puts $lLib
if {$lLib != $lNullObj} {
set obj1 [$lCachedObject GetName $lNameCString]
set obj [$lLib GetPackage $lNameCString $lStatus]
# set obj [$lContLib GetPart $lNameCString $lStatus]
# set lGetPartName [DboTclHelper_sGetConstCharPtr $lNameCString]
if {$obj != $lNullObj} {
# puts $lGetPartName
# $obj GetName $lPartName
$lDestnLib CopyPackageAll $obj $lNameCString $lStatus
# puts [DboTclHelper_sGetConstCharPtr $lPartName]

}
}


set lCachedObject [$lDesignCacheIter NextCachedObject $lStatus]
}
# $lDestnLib MarkModified
$lSession MarkAllLibForSave $lDestnLib
$lSession SaveLib $lDestnLib
$lSession RemoveLib $lDestnLib

delete_DboDesignCachesIter $lDesignCacheIter

Please let me your feedback how it goes at your end.

I execute  the code. But run to the next step. It gets a NULL obj. SO it fail to continue the script.

Capture> set obj [$lLib GetPackage $lNameCString $lStatus]
NULL

I am sure that the $lNameCstring is NOT null.

Capture> set lGetName [DboTclHelper_sGetConstCharPtr $lNameCString]
AG2KSL100C.Normal
Capture>

I use regexp to get the prefix name AG2KSL100C (not include .normal) and re-execute the code. It fails to get a NON-NULL obj as well.

I think the problem is that the source  $lLib  does not exist. So it fails  at "set obj [$lLib GetPackage $lNameCString $lStatus]"

So we can not use this method.

I change the $lLib to $lContLib.

set obj [$lContLib GetPart $lNameCString $lStatus]

it get a NULL again

HI Jadystone,

Please use below tcl code:

set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lStatus [DboState]
set lNullObj NULL
set lDesign [$lSession GetActiveDesign]
set lNameCString [DboTclHelper_sMakeCString ]
set lSrcLibPathCS [DboTclHelper_sMakeCString]
set lDesignCacheIter [$lDesign NewCachesIter $lStatus]
set lCachedObject [$lDesignCacheIter NextCachedObject $lStatus]
set lPartName [DboTclHelper_sMakeCString]

#Provide the loaction of OLB in which package should be copied.
set lDestnLibPath [file normalize {C:\Users\LIBRARY2.OLB}]
set lDsctnLibPathCstring [DboTclHelper_sMakeCString $lDestnLibPath]
set lDestnLib [$lSession GetLib $lDsctnLibPathCstring $lStatus]
# set lContLib [$lCachedLibObject GetContainingLib]
# # set llibname [$lSession GetLib $lContLib $lStatus ]
while {$lCachedObject != $lNullObj} {
set lCachedLibObject [DboBaseObjectToDboLibObject $lCachedObject]
set pkg [DboLibObjectToDboPackage $lCachedLibObject ]

if {$pkg != $lNullObj} {

$pkg GetName $lNameCString
$lDestnLib CopyPackageAll $pkg $lNameCString $lStatus
# puts [DboTclHelper_sGetConstCharPtr $lPartName]

}

set lCachedObject [$lDesignCacheIter NextCachedObject $lStatus]
}
# $lDestnLib MarkModified
$lSession MarkAllLibForSave $lDestnLib
$lSession SaveLib $lDestnLib
$lSession RemoveLib $lDestnLib

delete_DboDesignCachesIter $lDesignCacheIter

Hope this will address your issue. Please let me know feedback.

Thank you very much. It works!