Set BindKey to get Area of selected path or a polygon

I see you've appended the post that I was going to point you at:

Andrew

Thank you Andrew , ya i found your post for area :-)

/*** Skill For Area of an Object With Popup Results ***/


procedure(LAYareaSize()
let(
(object objType
)

object = geGetSelectedSet()
objT = car(object~>objType)
println("s1")
printf("objT is %s.\n" objT)

if( objT == "polygon"
then
LAYpolyarea(object)
else
if( objT == "rect"
then
LAYrectarea(object)
else
printf("wrong shape.\n")

hiDisplayAppDBox(
?name 'EMdbox
?dboxBanner "AREA"
?dialogType hicWarningDialog
?dialogStyle 'modeless
?buttonLayout 'Close
?dboxText sprintf(nil "Wrong shape Selected")
)
);;;**if**
);;;**polygon**

);;;

);;;**procedure**



procedure(LAYpolyarea(object)
let(
(object crdList sum firstPt lastPt dx sum
)
object=geGetSelectedSet()
crdList = object~>points
printf("the crdList is %L." crdList)
sum = 0
firstPt = lastPt = caar(crdList)
crdList = cdar(crdList)
printf("the firstPt is %L \n." firstPt)
printf("the crdList is %L.\n" crdList)

(foreach crd crdList
dx = difference((xCoord crd) (xCoord lastPt))
sum = (plus sum (times dx (plus (yCoord crd)(yCoord lastPt))))
lastPt = crd
);;;**foreach**

sum = (plus sum (times (difference (xCoord firstPt) (xCoord lastPt))(plus (yCoord firstPt)(yCoord lastPt))))
area = (times 0.5 (abs sum))/1000000
printf("Area in mmSq is %f.\n" area)
i=area
hiDisplayAppDBox(
?name 'EMdbox
?dboxBanner "AREA"
?dialogType hicWarningDialog
?dialogStyle 'modeless
?buttonLayout 'Close
?dboxText sprintf(nil "Area of Polygon = %L mmSq" i)

)

);;;*let*
);;;*procedure(LAYpolyarea)**



procedure(LAYrectarea(object)
let(
(object ll ur dx corners
)
object=geGetSelectedSet()
corners = object~>bBox
ll = caar(corners)
ur = car(cdar(corners))
dx = (difference (xCoord ll) (xCoord ur))
dy = (difference (yCoord ll) (yCoord ur))
area = (abs (times dx dy))/1000000
printf("Area in mmSq is %f.\n" area)

i=area

hiDisplayAppDBox(
?name 'EMdbox
?dboxBanner "AREA"
?dialogType hicWarningDialog
?dialogStyle 'modeless
?buttonLayout 'Close
?dboxText sprintf(nil "Area Of Rectangle = %L mmSq" i)

)
)
);;;**procedure(LAYrectarea)**
hiSetBindKey("Layout" "shift<key>a" "LAYareaSize()")