Area measure Lisp

[kubastan89]

Hi,

I am looking for a lisp to measure hatch area in AutoCAD. I`ve found these two lisps:

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/a-lisp-file-that-can-read-the-total-...

https://forums.autodesk.com/t5/autocad-land-desktop/how-do-calculate-the-area-of-a-hatch/td-p/157511...

but I am looking for a lisp that will insert the area value in each hatch like it does on this video:

https://www.youtube.com/watch?v=h-UoQ7SPjs0&t=269s

Of course I could buy the plugin from that video but I am looking for something that is free of charge.

I will be obliged for any help.

[Anonymous]

Got it working.

I did not select objects after the TABLE was placed

Ron

[Anonymous]

please send me  Area measure Lisp free of cast

[Alfred.NESWADBA]

Hi,

@Anonymous

welcome @forums.autodesk.com!

>> please send me

Why should anyone send you anything when you can just click here to the (free) files to download it?

- alfred -

[Anonymous]

hi sir how i can download this area lisp.

can you send me on this email.

tazeem224@gmail.com

[gotphish001]

It's in the solution. Just click on it there and it takes you to where you can download it.

[maramuresul]

Hi, 

It's possible to get area in meter square ( I work with mm),  round off  1 or 2 digits (0,00) 

and have the text a certain size.

One more thing would be, if I can have a text before generated area something like "A:"  , "area=" etc

Thanks

Andrei C.

[Anonymous]

Hello Vinay

how can I add text before area?

thank you

[Anonymous]

Dear guy @Vinayv4v 

Can you modify this lisp "A2 modify " area/1000000 and put m2 at end. Change font to

larger than .

Thanks

[Anonymous]

hi,

anyone can help me? thanks!

[Kent1Cooper]

---

@Anonymous wrote:

....

Can you modify this lisp "A2 modify " area/1000000 and put m2 at end. Change font to

larger than ....

---

Try changing these parts:

....

  (cons 11 P_center)
  (cons 40 (getvar "textsize"))
  (cons 72 1)
  (cons 73 2)
  (cons 1 (strcat (rtos (vlax-curve-getArea e1))))
)

....

like this:

....

  (cons 11 P_center)
  (cons 40 YourDesiredHeight); <-- put in a number in drawing units
  (cons 72 1)
  (cons 73 2)
  (cons 1 (strcat (rtos (/ (vlax-curve-getArea e1) 1000000)) " m2"))
)

....

[Anonymous]

Dear @Kent1Cooper 

It is very clear,

Thank you very much,

Best regards

[daya94civil]

how to enter the command in command line to use this lisp?

[Kent1Cooper]

The name for an AutoLisp custom-defined command is always the part that immediately follows the C and colon in this part of the code:

(defun c:TheCommandName ..... [the C can be upper- or lower-case]

in the case of the routine at Message 11, A2.  If you're talking about the other accepted solution, the link tells you the command names to use.