(setq deg (getint "\nkaçıncı satır:"))
(setq ac (open "d:\\1.txt" "r"))
(repeat deg
  (setq sonuc (read-line ac)))

(setq p1 (getpoint "\n1. nokta:")
      p2 (getcorner p1 "\n2. nokta:")
      secim (ssget "w" p1 p2))

(setq solust (list (car p1)(cadr p2))
      sagalt (list (car p2)(cadr p1))
      x-uzunluk (distance p1 sagalt)
      y-uzunluk (distance p1 solust))   

(defun C:WAr (/ cLr cTr ipT Lyr Lob)
  (setvar "cmdecho" 0) (command "undo" "group")
  (vl-load-com) (if (not ocL) (setq ocL 256)) (if (not oLn) (setq oLn "0"))
  (if (not (tblsearch "Layer" (if (= (setq Lyr (getstring (strcat
      "\nLayer Adı <" oLn ">: "))) "") (setq Lyr oLn) (setq oLn Lyr))))
    (entmake (list (cons 0 "Layer") (cons 100 "AcDbSymbolTableRecord")
      (cons 100 "AcDbLayerTableRecord") (cons 2 Lyr) (cons 70 0))))
  (if (setq cLr (getint (strcat "\rRenk Numarası <"
    (cond ((= ocL 0) "Byblock")((= ocL 256) "Bylayer")(T (itoa ocL))) ">: ")))
      (setq ocL cLr) (setq cLr ocL))
  (while (setq ipT (getpoint "\rPick internal point: "))
    (command "_.Boundary" "a" "o" "r" "" ipT "")
    (setq cTr (vlax-safearray->list (vlax-variant-value (vlax-get-property
        (vlax-ename->vla-object (entlast)) 'Centroid))))
    (entdel (entlast)) (command "_.Boundary" "a" "o" "p" "" ipT "")
    (vlax-put-property (setq Lob (vlax-ename->vla-object(entlast))) 'Color cLr)
    (vlax-put-property Lob 'Layer Lyr)
    (entmake (list (cons 0 "Text") (cons 8 Lyr) (cons 40 2) (cons 50 0)
      (cons 10 cTr) (cons 1 (strcat "%<\\AcObjProp Object(%<\\_ObjId "
        (itoa (vla-get-ObjectID Lob)) ">%).Area \\f \"%lu2%pr2%ps[, m²]\">%"))
      (cons 62 cLr))) (command "_.UpdateField" "l" ""))
  (command "undo" "e") (prin1))