Resizing Graphical Line in Part

Hi,

Im trying to align pins in part i can able to relocate and I can able to resize the bounding box.

but i dont know how to resize graphical line same as bounding box can anyone plz help me out that would be really helpful.

Current Output I'm getting:

Expected Output:

Program:

SetOptionBool Journaling True
namespace eval Library_AutoModification {} {

variable dirName [file dirname [info script]]
}

proc Library_AutoModification::Library_AutoModificationFunc {} {

set Inpdt [open "input2.txt" r]
set InpPinList [list]
while { [gets $Inpdt data] >= 0 } {
lappend InpPinList $data
}
close $Inpdt

set lNullObj NULL
set lStatus [DboState]
set lLib [GetSelectedPMItems]
foreach lObject $lLib {
set SplitNo 0
set plIter [$lObject NewPartsIter $lStatus]
set lPart [$plIter NextPart $lStatus]
while {$lPart != $lNullObj} {
set SplitNo [expr $SplitNo + 1]

foreach ModListlp $InpPinList {
set ModSplitName [lindex [split $ModListlp ","] 0]
set ModPinName [lindex [split $ModListlp ","] 1]
set ModPinLoc [lindex [split $ModListlp ","] 2]
set ModPinVis [lindex [split $ModListlp ","] 3]
set ModPinTxt [lindex [split $ModListlp ","] 4]
if {$ModSplitName == $SplitNo} {
set lIter [$lPart NewPinsIter $lStatus]
set lPin [$lIter NextPin $lStatus]
while {$lPin !=$lNullObj } {

set lPinName [DboTclHelper_sMakeCString]
$lPin GetPinName $lPinName
set lPinName [DboTclHelper_sGetConstCharPtr $lPinName]

set lPinName [string toupper $lPinName]
set ModPinName [string toupper $ModPinName]

if {$lPinName == $ModPinName} {
set lHotSpotPoint [$lPin GetHotSpot $lStatus]
set lHotSpotPointX [expr [DboTclHelper_sGetCPointX $lHotSpotPoint]]
set lHotSpotPointY [expr [DboTclHelper_sGetCPointY $lHotSpotPoint]]

set lStartPoint [$lPin GetStartPoint $lStatus]
set lStartPointX [expr [DboTclHelper_sGetCPointX $lStartPoint]]
set lStartPointY [expr [DboTclHelper_sGetCPointY $lStartPoint]]


set displocation1 [DboTclHelper_sMakeCPoint [expr $lStartPointX] [expr $ModPinLoc]]
set displocation2 [DboTclHelper_sMakeCPoint [expr $lHotSpotPointX] [expr $ModPinLoc]]

$lPin SetStartPoint $displocation1
$lPin SetHotSpot $displocation2

set BBLastVal $ModPinLoc

}

set lPin [$lIter NextPin $lStatus]
}

}
}

set newBBox [DboTclHelper_sMakeCRect 0 0 100 [expr $BBLastVal + 10]]
$lPart SetBoundingBox $newBBox

set lPart [$plIter NextPart $lStatus]
}
}

}
Library_AutoModification::Library_AutoModificationFunc