Alıntı

---

calabar :

Alıntı

---

Travaci :

alumina

---

---

Kod:

(defun c:alumina (/ *error* tx ln)
(defun *error* (er) (if tx (redraw (car tx) 4)) (setq *error* nil))
(vl-load-com)
(if
(null (tblsearch "layer" "Metraj_Layer"))
(entmake (list (cons 0 "layer") (cons 100 "AcDbSymbolTableRecord") (cons 100 "AcDbLayerTableRecord") (cons 2 "Metraj_Layer") (cons 62 1) (cons 70 0))))
(while
(setq tx (entsel "\nSelect text:"))
(while
(/= (cdr (assoc 0 (entget (car tx)))) "TEXT")
(setq tx (entsel "\nSelect text:"))) (redraw (car tx) 3)
(setq ln (entsel "\nSelect line:"))
(while
(/= (cdr (assoc 0 (entget (car ln)))) "LINE")
(setq ln (entsel "\nSelect line:"))) (redraw (car tx) 4)
(vla-put-layer (vlax-ename->vla-object (car tx)) "Metraj_Layer")
(vla-put-layer (vlax-ename->vla-object (car ln)) "Metraj_Layer")
(setq dosya (open (strcat (getvar "dwgprefix") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)) "_Metraj.xls") "a"))
(write-line (strcat (vla-get-textstring (vlax-ename->vla-object (car tx))) "\t" (rtos (vla-get-length (vlax-ename->vla-object (car ln))) 2 2)) dosya)
(close dosya))
(princ))

---

çok çok teşekkür ederim arkadaşlar. Hepinizin ellerine sağlık

---