(defun att-oku (nesne)
  (setq att (vlax-invoke (vlax-ename->vla-object nesne) 'getattributes))
  (foreach aa att
    (cond
      ((eq (vla-get-TagString aa) "DAD")
       (setq dad (vlax-get-property aa 'TextString)))
      ((eq (vla-get-TagString aa) "CAP")
       (setq cap (vlax-get-property aa 'TextString)))
      ((eq (vla-get-TagString aa) "ARA")
       (setq ara (vlax-get-property aa 'TextString)))
      ((eq (vla-get-TagString aa) "BOY1")
       (setq boy1 (vlax-get-property aa 'TextString))))
    )
  (setq pp (strcat dad " " cap "/" ara " L=" boy1))
  )
(defun c:metraj ()
  (if (setq ss (ssget '((-4 . "<OR")
                        (0 . "*TEXT")
                        (-4 . "<AND")
                        (0 . "INSERT")
                        (66 . 1)
                        (-4 . "AND>")
                        (-4 . "OR>"))))
    (progn
      (command "layer" "new" "metraj_layer" "c" "3" "metraj_layer" "")
      (setq exel (open (strcat (getvar "dwgprefix")
                               (vl-filename-base (getvar "dwgname"))
                               ".xls")
                       "a"))
      (setq c 0
            say (sslength ss))
      (while (< c say)
        (setq tek (ssname ss c)
              tur (cdr (assoc 0 (entget tek))))
        (if (or (= tur "TEXT") (= tur "MTEXT"))
          (progn
            (setq ic (cdr (assoc 1 (entget tek))))
            (write-line ic exel)))
        (if (= tur "INSERT")
          (progn
            (att-oku tek)
            (write-line pp exel)))
        (vla-put-layer (vlax-ename->vla-object tek) "metraj_layer")
        (vla-put-color (vlax-ename->vla-object tek) acgreen)
        (setq c (1+ c)))
      (close exel)
      )
    )
  (princ))