26.12.2014 15:07

79874    

Arkadaşlar merhaba;
Demir metrajlarımda kullandığım ve Sn. Erkan TRAVACI arkadaşımızın yazdığı bir lisp i kullanıyordum. Başka bir proje firmasından gelen yeni projelerde eski lisp im işe yaramadı 3 gündür sürekli lisp i düzeltmeye çalıştıysamda bir netice alamadım. ekli dosyada yeni proje dosyası ve eski lisp dosyam var . attribute lerin icindeki tag isimleri değişmiş görünüyor. bunları düzeltmiş olmama ragmet metraj sonucu alamıyorum bır turlu excel e tag value lerı aktaramıyorum bu konuda bana yardımcı olabılecek arkadaslarıma sımdıden tesekkur ederım.

asagıdakı lınkte yenı tıp blokları ıceren projelerımden bırer dosya ornek var demır pozlarını excel e aktarmak ıstıyorum.



Linkleri görebilmek için Üye Ol veya Giriş Yap




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ESKİ LİSP
(defun c:doseme (/ ob tk j en el pn pv pz ad ca bo cr) (vl-load-com)

(command "layer" "new" "metraj_layer" "c" "3" "metraj_layer" "")

(setq ob (ssget (list (cons 0 "insert") (cons 8 "poz"))) j -1)

(if ob
(progn
(setq dad (strcat (getvar "dwgprefix") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4 )) ))
(setq tk (open (getfiled "" dad "xls" 9) "w"))

(write-line (strcat "Poz" "\t" "Cap" "\t" "Boy" "\t" "Adet") 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 (strcat pv " Nolu Poz")))
(if (= pn "CAP") (setq ca pv))
(if (= pn "BOY") (setq bo (substr pv 3)))
(if (= pn "ADET") (setq ad pv))
(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) 1) 2 0)));;(atof cr) 1 yerine carpan
(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" ca "\t" bo "\t" ad) tk)
)
)
)
(close tk)
)
) (princ)
) (terpri) (write-line "Hazırlayan: Erkan Travaci Komut : doseme")

;;;;;;;;;;;;;;;;;;;;;ESKİ LİSP SON












Alpay ELMAS