Macro problem with area

hey,

i want to insert a text with the total area of objects i've selected.

the problem is i can't seem to get out of the area command to start the text command. i've created a button for it wich runs the command.

this is how it looks:

^C^Carea;a;o;\Text;\;$m=$(/,$(fix,$(/,$(getvar,area),10000)),100)m²;

seperate the command seems to do the trick though.

first:

^C^Carea;a;o;

second

\Text;\;$m=$(/,$(fix,$(/,$(getvar,area),10000)),100)m²;

it works then.

can someone please help me...

grtzz Pat

I can get it to end the area command, but now its not registering an area...

^C^Carea;a;o;\;;Text;\;$m=$(/,$(fix,$(/,$(getvar,area),10000)),100)m²;

I now remember why I hate LT...

jep the command ends, but it only shows 1 area.

try the macro ^C^Carea;a;o; it accumulates the area's to 1, that's the nice part.

I can get it to end the area command, but now its not registering an area...

 

^C^Carea;a;o;\;;Text;\;$m=$(/,$(fix,$(/,$(getvar,area),10000)),100)m²;

 

I now remember why I hate LT...

I am using this macro to insert areas of closed polyline shapes.

It works very well except that it uses the default text style and height.

Please tell me how to include a text height instruction into the macro.

I have tried a number of things but none of them work.

A text height is asked if the current text style is not set to a fixed height ie 0.0. So you need to set the correct style to be used, Style S textstyle. In lisp I check for this and use correct style.

Lee a question o;\;; or o;;\; you have to cancel the pick object select before moving on.

Try this macro,

^C^Carea;a;o;\;;Text;\;$m=$(/,$(fix,$(/,$(getvar,area),10000)),100)m²;scaletext;l;;e;