;;; Poly-Pts (gile)
;;; Returns the vertices list of any type of polyline (WCS coordinates)
;;;
;;; Argument
;;; pl : a polyline (ename or vla-object)
;;;_gile
;;;http://forums.augi.com/showthread.php?83935-Creating-a-list-Polyline-vertices
(defun Poly-Pts (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))
  )
)
(defun c:RoomArea ( / AllSlctn pobj pobjArea pobjPoints RoomText RoomTextObj pnt loc cnt)
(setq AllSlctn (ssget  '((0 . "LWPOLYLINE"))))
(if AllSlctn
(progn
(setq pnt (getpoint "\nPick the point for table: "))
(setq loc  (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object))))
(setq table (vla-AddTable loc (vlax-3d-point pnt) 2 2 1 5))
(vla-settext table 0 0 "Area Table")
            (vla-settext table 1 0 "Room Label")
            (vla-settext table 1 1 "Area")
(setq cnt 0)
(repeat (sslength AllSlctn)
(setq pobj (ssname AllSlctn cnt))
(setq vlpobj (vlax-ename->vla-object pobj))
(setq pobjArea (vla-get-area vlpobj))
(setq pobjPoints (Poly-Pts pobj))
(setq RoomTextObj (ssget "_WP" pobjPoints '((0 . "*TEXT"))))
(if RoomTextObj
(progn
(setq RoomText (vlax-ename->vla-object(ssname RoomTextObj 0 )))
(vla-insertrows table (+ 2 cnt) 1 1)
(vla-settext table (+ 2 cnt) 0 (vla-get-TextString RoomText))
(vla-settext table (+ 2 cnt) 1 (rtos (/(vla-get-area vlpobj)10000.)2 3))
);progn
);if
(setq cnt ( + cnt 1))
);repeat
);progn
);if
);defun

(vla-settext table (+ 2 cnt) 1 (rtos (/(vla-get-area vlpobj)10000.)2 3))

(vla-settext table (+ 2 cnt) 1 (rtos (/(vla-get-area vlpobj)1.)2 3))

;;; alanlari,cevre uzunlugunu ve mahal isimlerini  tabloya yazdirir (mahal ismi manuel onceden verilecek )
;;; Poly-Pts (gile)
;;; Returns the vertices list of any type of polyline (WCS coordinates)
;;;
;;; Argument
;;; pl : a polyline (ename or vla-object)
;;;_gile
;;;http://forums.augi.com/showthread.php?83935-Creating-a-list-Polyline-vertices
(defun Poly-Pts (pl / pa pt lst)
        (setvar "dimzin" 0)
  (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))
  )
)
(defun c:RoomArea ( / AllSlctn pobj pobjArea pobjPoints RoomText RoomTextObj pnt loc cnt)
(setq AllSlctn (ssget  '((0 . "LWPOLYLINE"))))
(if AllSlctn
(progn
(setq pnt (getpoint "\nPick the point for table: "))
(setq loc  (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object))))
(setq table (vla-AddTable loc (vlax-3d-point pnt) 2 3 1 40))
(vla-settext table 0 0 "Area Table")             ; "Alan Tablosu"
            (vla-settext table 1 0 "Room Label") ; "Mahal No"
            (vla-settext table 1 1 "Area")       ; "Alan"
            (vla-settext table 1 2 "length")     ; "uzunluk"
(setq cnt 0)
(repeat (sslength AllSlctn)
(setq pobj (ssname AllSlctn cnt))
(setq vlpobj (vlax-ename->vla-object pobj))
(setq pobjArea (vla-get-area vlpobj))
(setq pobjPoints (Poly-Pts pobj))
(setq RoomTextObj (ssget "_WP" pobjPoints '((0 . "*TEXT"))))
(if RoomTextObj
(progn
(setq RoomText (vlax-ename->vla-object(ssname RoomTextObj 0 )))
(vla-insertrows table (+ 2 cnt) 1 1)
(vla-settext table (+ 2 cnt) 0 (vla-get-TextString RoomText))
(vla-settext table (+ 2 cnt) 1 (rtos (/(vla-get-area vlpobj)1.)2 3))
(vla-settext table (+ 2 cnt) 2 (rtos (/(vla-get-length vlpobj)1.)2 3))
);progn
);if
(setq cnt ( + cnt 1))
);repeat
);progn
);if
);defun

(setq table (vla-AddTable loc (vlax-3d-point pnt) 2 3 1 40))