Ottenere area in mq da disegno in mm

Buon pomeriggio,
con questo lisp (allegato) ottengo l'area di tutte le polilinee chiuse (in testo) con una sola selezione. Essendo le aree es. lato 1000, 2000, 3000 4000 unità, l'area espressa risulta 1000000, 4000000, 16000000 ecc.. (vedere prima figura)
Chi mi aiuta a inserire nel listato un coefficiente "x 0,000001" o "/1000000" in modo che il testo risulti 1, 4, 16? (v. fig. 2)



Inoltre il testo viene rappresentato al centro. Si può ottenere come in figura 3 o, ancora meglio, come in figura 4?

Grazie a tutte le buone anime!

Accontentati del coefficiente, sostituisci
areaobj (vla-get-area entnamevla)
con
areaobj (/ (vla-get-area entnamevla) 1000000.)

...perfetto come sempre!
Rifacendomi al coefficiente: 1000000 di grazie!
Per avere 2 decimali separati da un punto (es. 20.25) chiedo troppo? (senza alcuna fretta, naturalmente)

...scusa GP, questa mattina non mi sono ancora svegliato! Il mio messaggio di poco fa non ha senso. Ho corretto le impostazioni.
Grazie