Is it possible to create a macro that would add up areas of polyline shapes?

[powellk00]

Hi All,

What I am trying to do is write an AutoCAD macro that will work in AutoCAD lt that will allow me to click on two or more poly lined shapes and add the areas and then once i am finished clicking on shapes, it will perform a division operation and then insert the solution in mtext format.  

I already have thanks to this forum, a macro that will allow me to click on a single shape and enter text of the square feet of a polylined shape.  Is it possible to add something to the existing macro to accomplish what i am looking for?

Here is a copy of the macro that i currently use:

*^C^C_area;_o;\_-mtext;$M=$(getvar,viewctr);@;$m=$(rtos,$(/,$(getvar,area),144),2,2)';;_move;_l;;@;\

Thanks in advance for any help in coming up with a solution to this need.

Kevin Powell

[Kent1Cooper]

---

@powellk00 wrote:

.... 

What I am trying to do is write an AutoCAD macro that will work in AutoCAD lt that will allow me to click on two or more poly lined shapes and add the areas and then once i am finished clicking on shapes, it will perform a division operation and then insert the solution in mtext format.  

....

---

Can you use AutoLISP functions?  [That is, are you in a "full" version of AutoCAD, rather than a "Lite" version?]  I can imagine a couple of ways to allow selection of any indeterminate number of Polylines using Lisp functions, but I'm not sure whether it can be done without them.  You could still have a menu button to call the Lisp routine.

[powellk00]

I do have the full version of AutoCAD but my co workers only have the LT version, so that is why i am trying to figure out macros to use.

Thanks for the reply.

Kevin

[dbroad]

I really don't like the asterisk at the beginning of the macro and the lack of true prompting with these kind of macros but this would work for two objects.  The problem is that with these macros you can't include the logic for varying numbers of objects selected.  It would probably be better to have two macros, one to start the area command with the add option and another to report the last area.

*^C^C_area;_a;_o;\\;;_-mtext;$M=$(getvar,viewctr);@;$m=$(rtos,$(/,$(getvar,area),144),2,2)';;_move;_l;;@;\

[powellk00]

Thank you for posting the macro.

I see the autocad function with using the area command and add mode.  Is there a way to put the "\" for multiple user input but tell it that your finished inputting?  For example if i put in there 100 "\" but i only need 30 for example how do i put it in there to stop asking for more and returning the total area?

Thanks,

Kevin

[dbroad]

You can't.  If you need more functionality, you need to upgrade from LT to full and write a new command.