Aşağıdaki lisp programı gösterilen bir txt dosyası içindeki X Y datasını bileşikçizgi olarak çizer. Bilgisayarınızın bölgesel ayarlarında ondalık ayıracınızın nokta veya virgül olarak tanıtılmasına bağlı olarak program hatalı çalışabilir. Böye bir durumda metin dosyasındaki tüm noktaları (veya virgülleri) diğeri ile değiştirin.
Tablo 602Tab (veya excel) dosyası ise kopyala&yapıştır ile bir metin dosyasına aktarın (mesela notepad ile). Sonuçta elinizde şöyle bir metin oluşmalı:
<b>MESELA.TXT:</b>
5.0 2.0
8.0 4.0
12.0 8.0
23.0 12.0
55.0 5.0
78.0 25.0
79.0 23.0
85.0 6.0
93.0 23.0
95.0 78.0
102.0 34.0
120.0 -6.0
<b>GRAF.LSP</b>
<pre id=code><font face=courier size=2 id=code>(defun c:graf (/ cmdmode file f arow)
(setq cmdmode (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq file (getfiled "XY Data Dosyasını Gösterin" "" "txt" 6)) <font color=green>; kullanıcıdan dosyayı iste</font id=green>
(setq f (open file "r")) <font color=green>; dosyayı okumak için aç</font id=green>
(command "_.PLINE") <font color=green>; bileşikçizgi komutunu başlat</font id=green>
(while (setq arow (read-line f)) <font color=green>; dosyadan sıradaki satırı oku, başka satır kalmadıysa döngüden çık</font id=green>
(setq arow (read (strcat "(" arow ")"))) <font color=green>; satırı parantez içine al.</font id=green><font color=red> Can alıcı satır burası</font id=red>
(if (and (member (type (car arow)) '(REAL INT)) <font color=green>; X bir sayı ve dahi</font id=green>
(member (type (cadr arow)) '(REAL INT)) <font color=green>; Y de bir sayı ise</font id=green>
)
(command arow) <font color=green>; bileşikÇizgi'ye noktayı gönder</font id=green>
)
) <font color=green>; while'a dön</font id=green>
(command "") <font color=green>; bileşikÇizgi komunutunu bitir</font id=green>
(close f) <font color=green>; dosyayı kapat</font id=green>
(setvar "CMDECHO" cmdmode)
(command "_.ZOOM" "_E") <font color=green>; tüm çizimi zumla</font id=green>
(princ (strcat "\n" file " dosyası grafiği çizildi.")) <font color=green>; kullanıcıyı bilgilendir</font id=green>
(princ) <font color=green>; efendi gibi çık</font id=green>
)
</font id=code></pre id=code>
Destek/Support tarafından 26/12/2002 13:08:25 tarihinde değiştirildi
