Areas Displayed for Multiple Polylines Selected at Once

[reception]

Hi guys,

I really need someone to help me modify an existing LISP file (see attachment). As I need to show individual area on each enclosed polyline. The current LISP was a file I downloaded from another forum but they use 'square feet' instead of 'square meter'. Besides, I don't need a white background mask on the text. Preferably the area text would look exactly like the left image. 

Appreciate all your kind help!

Kind Regards

Ashley  

[ВeekeeCZ]

Possibly this 

(vl-load-com)

(defun c:PlArea  (/ ados acsp ss e ptList Str txt p)
  
  (setq  acsp (vla-get-modelspace (setq adoc (vla-get-activedocument (vlax-get-acad-object)))))
  (vla-startundomark adoc)
  (if (setq ss (ssget ":L" '((0 . "*POLYLINE")
			     ;(8 . "A-AREA-BDRY")
			     (-4 . "&")
			     (70 . 1)(410 . "Model"))))
    (repeat (sslength ss)
      (setq e     (ssname ss 0)
	    sum   '(0 0)
	    verts (cdr (assoc 90 (entget e))))
      (setq ptList (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e))))
      (foreach x ptList (setq sum (mapcar '+ x sum)))
      (setq Str (strcat (rtos (vlax-curve-getarea e) 2 0) "m2"))
      (vla-put-AttachmentPoint
	(setq txt (vla-addMText
		    acsp
		    (setq p (vlax-3d-point (mapcar '/ sum (list verts verts))))
		    0
		    Str))
	acAttachmentPointMiddleCenter)
      (vla-put-InsertionPoint txt p)
      (vla-put-Height txt 2.5)
      (ssdel e ss)
      )(princ "\0 Objects found:"))
  (vla-endundomark adoc)
  (princ)
  )

[braudpat · Accepted solution]

Hello @reception 

You can also try this beautiful routine "PolyArea_B" from Gilles (gile)

"PolyArea_B" runs on ARC,CIRCLE,ELLIPSE,POLYLINE 2D,SPLINE,MPOLYGON,REGION

The Health, Bye, Patrice (The Old French EE Froggy)

[Kent1Cooper]

---

@ВeekeeCZ wrote:

....
      (setq Str (strcat (rtos (vlax-curve-getarea e) 2 0) "m2"))
....

---

You can get it in superscript [the "Squared" option in the Symbol pull-down list in the Mtext editor]:

  (setq Str (strcat (rtos (vlax-curve-getarea e) 2 0) "m\U+00B2"))

[reception]

Brilliant! Works perfect! Thank you!

[reception]

Thanks BeekeeCZ! works well on most of the polylines. Seems didn't work on some irregular shaped polylines.

[reception]

Thanks for the updates!!

[yousef-aboelala]

Please, Can you edit this code to make the area value divided by 1000 ? and thanks in advance.

[Kent1Cooper]

---

@yousef-aboelala wrote:

Please, Can you edit this code to make the area value divided by 1000 ? and thanks in advance.

---

In your other post, you say your drawing unit is a millimeter and you want the area in square meters.  Would that not mean dividing by 1000000 instead?  There are 1000000 square millimeters in a square meter.

....

  (setq Str (strcat (rtos (/ (vlax-curve-getarea e) 1e6) 2 0) "m2"))

....

Change the 0 if you want decimal places in the result, not just whole square meters.

[yousef-aboelala]

Yes i mean that you are right.
But i can't edit the lisp code i dont have any experience rly 🙂 can you edit it for me please ?

[yousef-aboelala]

Perfect ! Thank you so much !

[Kent1Cooper]

---

@yousef-aboelala wrote:

... i can't edit the lisp code .... can you edit it for me please ?

---

[Oops -- now I see you already did...] See my previous message, edited to include the one line that should be changed.

[pedromiguel3891]

this is very good but can't get to change "precision 0.00 and m²"

[Moshe-A]

@pedromiguel3891  hi,

try setting DIMZIN to 0

Moshe

[pedromiguel3891]

@Moshe-A hey,

The problem is that within the lisp this area is sq ft. I am Portugal!