How to use ReplaceCache ?

I am working on a Tcl script to automate the process of replacing a .OLB file via File Explorer → Design Cache → Replace Cache.

proc read_ini : Utlize to fetch the .olb path at Capture.ini [ Capture.ini => Part Library Directories => Dir0 ]

proc showCacheEntries:Change Part Library path

My question is why the ReplaceCache has no effect? [ Version : 17.2.0]

ReplaceCache(OldPackageOrSymbolName, OldLibName, NewName, NewLibName, bUpdateCache = 0, bPreserverefDes = 0)

proc showCacheEntries { pDesign } {
set lCacheNameCStr [DboTclHelper_sMakeCString]
set lCacheLibNameCStr [DboTclHelper_sMakeCString]
set lStatus [DboState]
set lCacheObjectsIter [$pDesign NewCachesIter $lStatus $::IterDefs_ALL]
set lCachedObject [$lCacheObjectsIter NextCachedObject $lStatus]

# ==================================
# Get Capture.ini to fetch location
# ==================================
set root [pwd]
set input [GetProductVersion]
if {[regexp {(\d+\.\d+)-\d+} $input match version]} {
puts "Version: $version"
} else {
puts "Version not found."
}
set lLibLocation [read_ini "$root/cdssetup/OrCAD_Capture/${version}.0/capture.ini" "Part Library Directories" "Dir0"]
set lLibLocation [string toupper $lLibLocation]
puts $lLibLocation

while { $lCachedObject!= "NULL" } {
set lCachedLibObject [DboBaseObjectToDboLibObject $lCachedObject]
$lCachedObject GetName $lCacheNameCStr
$pDesign GetSourceLibName $lCacheNameCStr $lCachedLibObject $lCacheLibNameCStr

# ==============================
# Get Design Cache Library Name
# ==============================
set lKey [DboTclHelper_sGetConstCharPtr $lCacheNameCStr]
set lLibrary [DboTclHelper_sGetConstCharPtr $lCacheLibNameCStr]
set lPartNameCStr [DboTclHelper_sMakeCString $lKey]
regexp {[^\\]+$} $lLibrary match
regexp {[^.]+$} $match extension

set NewLibrary "$lLibLocation$match"
set lNewLibNameCStr [DboTclHelper_sMakeCString $NewLibrary]

# ==============================
# Update Library Location
# ==============================

if {$extension == "OLB" && $lLibrary != $NewLibrary} {
puts "### UPDATE ### $lKey : $lLibrary -> $NewLibrary"
# ReplaceCache(OldPackageOrSymbolName, OldLibName, NewName, NewLibName, bUpdateCache = 0, bPreserverefDes = 0)
$pDesign ReplaceCache $lPartNameCStr $lCacheLibNameCStr $lPartNameCStr $lNewLibNameCStr 1 0
}
set lCachedObject [$lCacheObjectsIter NextCachedObject $lStatus]
}
delete_DboDesignCachesIter $lCacheObjectsIter
$lStatus -delete
}