Thanks Sir Got it////////////////////////////////////// its Work have another need to result in Square feet and Sides on liner Feet
; rlx 10-mrt-2019 - https://www.cadtutor.net/forum/topic/66987-auto-area-calculation-table/
(defun c:t1 ( / doc spc text-height polly polly-points polly-center polly-area)
(setq doc (vla-get-activedocument (vlax-get-acad-object)) spc (vla-get-block (vla-get-activelayout doc)))
(setq text-height 5) ; adjust to fit your situation
(if (and (setq polly (car (entsel))) (wcmatch (cdr (assoc 0 (entget polly))) "*POLYLINE"))
(progn
(setq polly-points (Get_Polly_Points polly) polly-center (Get_Polly_Center spc polly))
(Put_Polly_Sizes (Get_Polly_Sizes polly-points) polly-center spc text-height)
(Put_Polly_Area spc (Get_Polly_Area polly) (vlax-3d-point polly-center) text-height)
)
)
(vla-Regen doc acActiveViewport)
)
;;; Gile
(defun Get_Polly_Points (pl / pa pt lst)(vl-load-com)
(setq pa (if (vlax-curve-IsClosed pl)(vlax-curve-getEndParam pl)(+ (vlax-curve-getEndParam pl) 1)))
(while (setq pt (vlax-curve-getPointAtParam pl (setq pa (- pa 1))))(setq lst (cons pt lst))))
; s = space , e = polly (ent or obj)
(defun Get_Polly_Center ( s e / o r c )
(or (= (type e) 'VLA-OBJECT) (setq o (vlax-ename->vla-object e)))
(setq r (vlax-invoke s 'addRegion (list o)) c (vlax-get (car r) 'Centroid))
(vla-delete (car r))(trans c 1 (vlax-get o 'Normal)))
; l is point list , return list with angle , midpoint & length for each vertice
(defun Get_Polly_Sizes (l)
(mapcar '(lambda (a b) (list (angle a b) (mapcar '(lambda (x y) (/ (+ x y) 2)) a b)(distance a b)))
l (append (cdr l) (list (car l)))))
; l = vertice list ((ang midp length)...) c = center of gravity , s = space , th = text height
(defun Put_Polly_Sizes (l c s th / x o p)
(foreach x l
(setq p (vlax-3d-point (polar (cadr x) (angle (cadr x) c) th)) o (vla-addtext s (rtos (last x) 2 2) p th))
(mapcar
'(lambda (p v)(vl-catch-all-apply 'vlax-put-property (list o p v)))
(list 'alignment 'textalignmentpoint 'alignment 'rotation 'color)
(list acAlignmentRight p acAlignmentMiddle (car x) acMagenta)
)
)
)
(defun Get_Polly_Area (e) (rtos (vla-get-area (vlax-ename->vla-object e)) 2 5))
; used for single polyline (c:t1) : s = string (area) , cpt = center point of gravity , th = text height
(defun Put_Polly_Area (spc s cpt th / to)
(setq to (vla-addtext spc s cpt th))
(mapcar
'(lambda (p v)(vl-catch-all-apply 'vlax-put-property (list to p v)))
(list 'alignment 'textalignmentpoint 'alignment 'rotation 'color) (list acAlignmentRight cpt acAlignmentMiddle 0 acRed)
)
)
; used for multiple polylines (c:t2) : s = string (area) , cpt = centerpoint of gravity , th = text height , i = index
(defun Put_Polly_Area2 (spc s cpt th i / mto)
(setq mto (vla-AddMText spc cpt (* 5 th) (strcat (itoa i) "\n" s)))
(setq ip (vla-get-insertionpoint mto)) (vla-put-AttachmentPoint mto 5) (vla-put-insertionpoint mto ip)
(vl-catch-all-apply 'vlax-put-property (list mto 'color acRed))
)
; for multiple pollys
(defun c:t2 ( / doc spc i text-height ss to p)
(setq doc (vla-get-activedocument (vlax-get-acad-object)) spc (vla-get-block (vla-get-activelayout doc))
i 0 text-height 5)(setvar 'textsize text-height)
(prompt "\nSelect polylines :")
(if (and (setq ss (ssget ":L" '((0 . "LWPOLYLINE")))) (setq ss (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
(foreach polly ss
(setq polly-points (Get_Polly_Points polly) polly-center (Get_Polly_Center spc polly))
(Put_Polly_Sizes (Get_Polly_Sizes polly-points) polly-center spc text-height)
(Put_Polly_Area2 spc (Get_Polly_Area polly) (vlax-3d-point polly-center) text-height (setq i (1+ i)))
)
)
(vla-Regen doc acActiveViewport)
(princ)
)
