How to get pin position and location?

I didnt get this one. Could you please elaborate. 

KD202502275710 

whish part you didn't understand?

Morgan 

Please find below code for getting pin position(Left, Right, Top, Bottom):

proc lGetPinPos {lPin} {
set lStatus [DboState]
set lPinName [DboTclHelper_sMakeCString]
$lPin GetPinName $lPinName
set PinName [DboTclHelper_sGetConstCharPtr $lPinName]
# set lSelObj [GetSelectedObjects]
# set lSelloc []
set lPinHOtSpotCP [$lPin GetHotSpot $lStatus]

set lPinHOtSpotCPx [DboTclHelper_sGetCPointX $lPinHOtSpotCP]
set lPinHOtSpotCPy [DboTclHelper_sGetCPointY $lPinHOtSpotCP]

#get the location point
set lStartCP [$lPin GetStartPoint $lStatus]

set lStartCPx [DboTclHelper_sGetCPointX $lStartCP]
set lStartCPy [DboTclHelper_sGetCPointY $lStartCP]

if {[expr {$lStartCPx - $lPinHOtSpotCPx}] > 0} {

puts "Pin $PinName is Left Pointed"

} elseif {[expr {$lStartCPx - $lPinHOtSpotCPx}] < 0} {

puts "Pin $PinName is Right Pointed"

} elseif {[expr {$lStartCPy - $lPinHOtSpotCPy}] > 0} {

puts "Pin $PinName is Top Pointed"

} elseif {[expr {$lStartCPy - $lPinHOtSpotCPy}] < 0} {

puts "Pin $PinName is Bottom Pointed"

}

}

set lStatus [DboState]
set lSelObj [GetSelectedObjects]

set lIter [$lSelObj NewPinsIter $lStatus]
set lNullObj NULL
#get the first pin of the part
set lPin [$lIter NextPin $lStatus]
while {$lPin !=$lNullObj } {
#placeholder: do your processing on $lPin
lGetPinPos $lPin
#get the next pin of the part
set lPin [$lIter NextPin $lStatus]
}
delete_DboPartInstPinsIter $lIter