AUTOLISP İÇİNDE BAŞKA BİR DOSYADAN VERİ OKUMAK
Aşağıdaki rutin gözat ile seçilebilecek txt uzantılı bir dosyadaki verileri okuyarak autolisp formatında bir listeye aktarır ve ekrana print eder.
(vl-load-com); Bu satır lisp rutininin visuallisp içeriğini çalıştırmaya olanak verir
(defun c:d1()
(defun veri-oku (/ veri dosyaadi metindosyasi liste)
(setq dosyaadi (getfiled "DATA DOSYASI ... ADRESİNDEDİR :"
(getvar "dwgprefix")
"txt"
16
); Bu bölümde .txt dosyasını gözat ile seçebilmek için popup menü açılır.
)
(setq metindosyasi (open dosyaadi "r")); dosya okumak amacı ile açılıyor.
(while
(setq liste (read-line metindosyasi)); satır satır okuma başlıyor
(setq veri (cons (read (strcat "(" liste ")")) veri)))
(close metindosyasi); dosya kapatılıyor
(reverse veri); liste tersten yeniden yazılıyor – duruma göre gerekmeyebilir
)
(setq lst (veri-oku))
(print lst)
(princ)
); Liste ekrana yazılıyor
(vl-load-com); Bu satır lisp rutininin visuallisp içeriğini çalıştırmaya olanak verir
(defun c:d1()
(defun veri-oku (/ veri dosyaadi metindosyasi liste)
(setq dosyaadi (getfiled "DATA DOSYASI ... ADRESİNDEDİR :"
(getvar "dwgprefix")
"txt"
16
); Bu bölümde .txt dosyasını gözat ile seçebilmek için popup menü açılır.
)
(setq metindosyasi (open dosyaadi "r")); dosya okumak amacı ile açılıyor.
(while
(setq liste (read-line metindosyasi)); satır satır okuma başlıyor
(setq veri (cons (read (strcat "(" liste ")")) veri)))
(close metindosyasi); dosya kapatılıyor
(reverse veri); liste tersten yeniden yazılıyor – duruma göre gerekmeyebilir
)
(setq lst (veri-oku))
(print lst)
(princ)
); Liste ekrana yazılıyor
Yorumlar
Yorum Gönder