26.04.2009 21:00    

şimdi emin olmak için tekrar kontrol ettim o tip değişkenlerin hiç birinde atoi şelinde geçmiyor...
ve rakamlardan bir tanesi seçerek değiştirmemede izin vermiyor....

26.04.2009 21:34    

sorunu çözdüm...
DCL de edit_limit kullanmıştım dize sayısına göre bir hane eksik tanımladığımdan kaynaklanıyormuş...

27.04.2009 08:34    

Bu bölüm lisp isteme değil, lisp ile ilgili soru bölümüdür.

27.04.2009 12:10    

Kapalı bir alan seçimi ne yazık ki lisp içinde yok.
Bunun için BOUNDARY komutunu kullan. Oluşan pline'ın vertex koordinatlarını liste halinde çıkar.
Daha sonra yazman gereken kod aşağıda.




"_WP" anlamı Windowpolygon demek. Yani seçili alanın içine tamamen giren nesneler seçilir.
Eğer bir kısmı da dahil girenlerin seçilmesini istiyorsan "_CP" yaz.

27.04.2009 21:45    

Entmake ile Extrude uygulanabilir mi? ve örneğin Box vs. oluşturulabilir mi?
uygulanırsa nasıl?

29.04.2009 09:51    

Alıntı

---

ehya :
miyatu.

bu tek satır içinde çoklu kelimeyi araştırmam lazım.

---

Harbi65

Entmake fonksiyonu ile katı model oluşturamazsın.

---

ben coklu kelimeli satirlari read fonksiyonu ile amayi deniyorum ama dedigim gibi sayilar isin icine girince birsuru problem ile karsilasiliyor...

mesela satirinizin icinde tire isareti varsa bunlarin donusumu problem oluyor...

ben yazmaya calistigim lispi assagiya kopyaliyorum...

sorunlu yerleri nasil asabilecegim konusunda fikri olan varsa yardimi icin simdiden tesekkur ederim...

deneme yapmak isterseniz bir onceki mesajimda verdigim ornek satirlari kopyalayim c altin 1.txt diye kaydetmeniz yeterli...

(defun c:head ()
(setq ref_head (getstring "\n head kodunu giriniz:"))
(setq ref_head (strcase ref_head))
(setq uz (strlen ref_head))
(setq f (open "C:\\1.txt" "r"))
(setq satir (read-line f))
(setq head (substr satir 1 uz))
(while (/= head ref_head)
(setq satir (read-line f))
(setq head (substr satir 1 uz)))
(setq y_satir (substr satir 9))
(setq z (rtos(read y_satir)2 2))
(setq z_b (strlen z))
(setq y_satir (substr y_satir (+ z_b 2)))
(setq x (rtos (read y_satir)2 1 ))
(if (= x "00")
(progn
(setq y_satir (substr y_satir 4))
(setq x (rtos (read y_satir)2 1))
(setq z (strcat z ".00"))))
(setq x_b (strlen x))
(setq y_satir (substr y_satir (+ x_b 2)))
(setq y (rtos (read y_satir)2 1))
(if (= y "0")
(progn
(setq y_satir (substr y_satir 3))
(setq y (rtos (read y_satir)2 1))
(setq x (strcat x ".0"))))
(setq y_b (strlen y))
(setq y_satir (substr y_satir (+ y_b 2)))
(setq res (rtos (read y_satir)2 1))
(if (= res "0")
(progn
(setq y_satir (substr y_satir 3))
(setq res (rtos (read y_satir)2 1))
(setq y (strcat y ".0"))))
(setq res_b (strlen res))
(setq y_satir (substr y_satir (+ res_b 2)))
(setq pres (rtos (read y_satir)2 1))
(if (= pres "0")
(progn
(setq y_satir (substr y_satir 3))
(setq pres (rtos (read y_satir)2 1))
(setq res (strcat res ".0"))))
(setq pres_b (strlen pres))
(setq dis (rtos (read y_satir)2 1))
(if (= dis "0")
(progn
(setq y_satir (substr y_satir 3))
(setq dis (rtos (read y_satir)2 1))
(setq pres (strcat pres ".0"))))
(princ z)
(terpri)
(princ x)
(terpri)
(princ y)
(terpri)
(princ res)
(terpri)
(princ pres)
(terpri)
(princ dis))

19.06.2009 12:29    

DCL dosyasında uyguladığımız List_box 'ın satır uzunluğunu listeleyeceğimiz satırlara göre azaltmasını veya artmasını sağlayabilir miyiz?
Ya da mesela radio_button adedi listeye göre ayarlanabilir mi?

19.06.2009 13:40    

Ehya;
olmuyo bu ben mi hata yapıyorum...
Lisp de: (set_tile "hig" (itoa 5)) yapıyorum mesela...
Dcl de: height = "hig" ;

Lisp de ki değer değiştiğinde DCL de bir değişiklik olmuyor....

19.06.2009 15:38    

Bu fonksiyon için tabi ki action_tile var...
ama ayrıca bu değer için bişey ekliyceksek onu bilmiyorum...

Fonksiyon çalışıyor sorun yok. Ama Height değerini değişkenle görmüyor....

22.06.2009 08:00    

Lisp içinde bir bloğu insert ettirecem. insert ettirmeden önce bu bloğun attribute blok olup olmadığını nasıl öğrenirim.?
(setq Blk (tblsearch "BLOCK" "blokadı"))
şeklinde yazdığımda aşağıda ki sonucu veriyor. attribute olup olmadığını nasıl öğrenirim?
((0 . "BLOCK") (2 . "blokadı") (70 . 2) (4 . "") (10 0.0 0.0 0.0) (-2 . <Entity name: 7ed28460>))

Burda ki (4 . "") neyi ifade ediyor bunuda anlamadım...?