Change Area Label lisp code from mm2 to m2

[asyraf_msuhaimi]

Hi. I excited to use the lisp from Lee Mac which is Area Label but I want to change the code from using area mm2 to m2.  I did change the line below but when I load into the cad, nothing happen, its still appear as mm2. How eh?

(setq h1 "Area Table" ;; Heading
t1 "Number" ;; Number Title
t2 "Area" ;; Area Title
pf "" ;; Number Prefix (optional, "" if none)
sf "" ;; Number Suffix (optional, "" if none)
ap "" ;; Area Prefix (optional, "" if none)
as "m2" ;; Area Suffix (optional, "" if none)
cf 0.000001 ;; Area Conversion Factor (e.g. 1e-6 = mm2->m2)
fd t ;; Use fields to link numbers/objects to table (t=yes, nil=no)
fo "%lu6%qf1" ;; Area field formatting

[paullimapa]

works for me:

[asyraf_msuhaimi]

How? i am okay with the unit to appear or not but my consern is more on the area number. In my cad, its appear 1234567 and not 1.23. I want it to be 1.23 m2.

[paullimapa]

Looks like the problem is when you select the object it does not honor the suffix value or the conversion factor when using the AT command:

You may want to contact Lee Mac to see if he can update this code.

Contact | Lee Mac Programming

[cadffm · Accepted solution]

Hi,

the PICK mode creates a stupid Text, the OBJECT mode creates a (linked) Field.

So if possible, the object mode is prefered.

For pickmode, it uses the cf option and your current luprec (and dimzin) setting

For objectmode, it uses the fo (format) option!

Check out what the right fieldcode is, for your needs, and change the fo value.

SAMPLE

[paullimapa]

Good catch on changing fo to get the correct Area field vs “stupid Text” lol

[paullimapa · Accepted solution]

in addtion to @cadffm if you want to also include suffix m2:

fo "%lu6%qf1%ps[, m2]%ct8[1.000000000000000E-006]"    ;; Area field formatting 

[asyraf_msuhaimi]

Thanks bro! its worked now.

[asyraf_msuhaimi]

Thank you! all good now. I just need to figure out how to round off the number to 2 decimal place. 

[paullimapa]

"I just need to figure out how to round off the number to 2 decimal place. "

Just follow @cadffm example.

Double click on the Field to see what the Field expression window at the bottom shows now...

specifically the section in between \f and >%

Then under Format: select Decimal 

And under Precision: change Current precision to two decimal places ie: 0.00

Now copy the section in between \f and >%:

"%lu2%pr2%ps[, m2]%ct8[1.000000000000000E-006]"

Finally paste this next to fo as the area format:

...cheers!!!