17.04.2015 15:26    

(setq kat_yuk 2,7)
(setq kat_y (getstring (strcat "
kat yüksekliği:< " (rtos kat_yuk) ">:")))
(if (= kat_y nil)
(setq kat_y kat_yuk))
(setq kat_yuk kat_y)

herkese merhaba yukarıdaki lispte nasıl bir değişiklik yapmam gerekir çözemedim.ben default da en son girdiğim değerin gelmesini istiyorum fakat bir türlü beceremedim.nerde hata yapıyorum yardım ederseniz çok sevinirim.

örneğin yukardaki yükseklik 2,7 ben komutu çalıştırdığım zaman kat yüksekliği 3,45 girdim.komutu tekrar çalıştırdığımda yükseklik değerinin 2,7 değil 3,45 gelsin istiyorum.umarım anlatabilmişimdir.

herkese saygılarımla...

17.04.2015 16:03    

(defun c:y()
(setvar "cmdecho" 0)
(setq fname "D:\\VERi.dat")
(setq fno (open fname "a"))

(SETQ BB (GETSTRING "\n AÇIKLAMA: \n"))

(setq kat_yuk 2.7)
(setq kat_y (getreal (strcat "
kat yüksekliği:< " (rtos kat_yuk) ">:")))
(if (= kat_y nil)
(setq kat_y kat_yuk))
(setq kat_yuk kat_y)

(setq xx "/")


(setq satir (strcat BB " "xx" " kat_y))

(write-line satir fno)

(close fno)

ehya hocam öncelikle merhaba. bu lispteki amacım kat yüksekliğini ve açıklamayı data dosyasına yazdırma
açıklamayı yazdırabiliyorum fakat kat yüksekliğini yazdırmaya kalktığımda şu şekilde hata veriyor.

bad argument type: stringp 3,45


tekrardan yardımınız için çok teşekkür ederim hocam.

17.04.2015 21:50    

yani bu şekildemi hocam

(setq kat_yuk 2.7)
(setq kat_y (getreal (strcat "
kat yüksekliği:< " (rtos kat_yuk 2 2) ">:")))
(if (= kat_y nil)
(setq kat_y kat_yuk))
(setq kat_yuk kat_y)

17.04.2015 22:33    

belki kızacaksın ama valla anlamadım hocam ya. :)

27.04.2015 20:44    

sonunda çözdümmmmmm getstring istiyordu ama ben hala ısrar ediyordum rakam girmekte.sayın hocalarım sağolun valla ya.siz olmasanız biz hiçbirşey ögrenemezdik yeminle:))