(defun c:pfr (/ ob tk j en el pn pv pz ad ca bo cr) (vl-load-com)
  (setq ob (ssget (list (cons 0 "insert") (cons 8 "poz"))) j -1)
  (if ob
    (progn
      (setq tk (open (getfiled "" "Metraj" "xls" 9) "w"))
      (write-line (strcat "Poz" "\t" "Adet" "\t" "Cap" "\t" "Boy") tk)
      (repeat (sslength ob)
        (setq j (1+ j) en (ssname ob j)
          en (entnext en) el (entget en))
        (while (/= (cdr (assoc 0 el)) "SEQEND")
          (setq pn (cdr (assoc 2 el)) pv (cdr (assoc 1 el)))
          (if (= pn "POZ") (setq pz pv))
          (if (= pn "ADET") (setq ad pv))
          (if (= pn "CAP") (setq ca pv))
          (if (= pn "BOY") (setq bo (substr pv 3)))
          (if (= pn "CARPAN") (setq cr pv))
          (setq en (entnext en) el (entget en))
         )
        (if (> (atof cr) 0)
          (progn
            (if (vl-string-search "x" ad)
              (setq ad (rtos (* (atof (substr ad 1 (vl-string-search "x" ad)))
                (atof (substr ad (+ 2 (vl-string-search "x" ad))))
                (atof cr)) 2 0))
              (setq ad (rtos (* (atof ad) (atof cr)) 2 0)))
            (if (vl-string-search "~" bo)
              (setq bo (rtos (/ (+ (atof (substr bo 1
                (vl-string-search "~" bo))) (atof (substr bo (+ 2
                (vl-string-search "~" bo))))) 2) 2 0)))
            (write-line (strcat pz "\t" ad "\t" ca "\t" bo) tk)
          )
        )
      )
      (close tk)
    )
  ) (princ)
) (terpri) (write-line "Hazırlayan: Erkan Travaci")