26.04.2009 20:55    

ehya
herhangi bi yerde "atoi" fonksiyonunu kullanıyosan bunu kullanmaktan vazgeç..
Onun haricinde aklıma birşey gelmiyor.

26.04.2009 21:00    

Harbi65
ş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:11    

ehya
lispi görmeden hiçbirşey söylememem.

26.04.2009 21:34    

Harbi65
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:25    

zigach
sadece polyline, dikdörtgen ya da daire ile kapatılan bölgedeki nesneleri seçen bir lisp yada bir komut varmı. yani çizimde ben bir dikdörgen çizecem ve sadece diktörgen içinde kalan nesneleri seçtirecem.

27.04.2009 08:34    

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

27.04.2009 11:50    

Harbi65
Kapalı dörtgen bir alanı picklediğimizde bu alanın sınırlarında LINE olup olmadığını ve varsa bunları seçmesini nasıl sağlarız?

27.04.2009 12:10    

ehya
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.

Kod:

(setq liste '((1 1)(3 1)(5 2)(2 4)))
(ssget "_WP" liste '((0 . "LINE")))


"_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 17:14    

miyatu
Alıntı
ehya :
Burada bi yanlışın olmalı.
Read-line komutu ile bir dosyadaki değeri okuduğunda buradaki değer dizgi şeklinde gelecek ve kaç satır olduğunu bulabilirsin.

Örnek olarak bir dosya oluşturdum. Bu dosyanın içine 125142.2552 sayısını yazdım.
Kod olarak ise;

(setq a (open "c:\\1.txt" "r"))
#<file "c:\\1.txt">

(setq b (read-line a))
"125142.2552"

(setq c (strlen b))
11

Burada görüldüğü gibi değerin basamaklarını strlen ile rahatlıkla bulabiliyorum. Farklı bir yol izlediysen o yolu söylersen bi yol bulmaya çalışırız.



derdimi söle anlatmaya çalışayım

H1 HEAD 11.18 51.8 -197.8 -340.9 33.1 64.3
H2 HEAD 11.18 51.8 -197.8 -355.1 27.8 59.0
H3 HEAD 11.18 51.8 -208.1 -310.9 22.9 53.6
H4 HEAD 11.18 51.8 -208.1 -322.8 15.3 43.7
H5 HEAD 11.18 51.8 -208.1 -333.0 14.2 42.1

yukardaki listeden her bir sayıyı cakip almam gerekiyor ama herzaman bukadar düzenli olmuyor bu sayılar basmak sayısı azalıp artabiliyor

ben bu sayıların aralarına başka sayılar ekleyerek tablo yapmam gerekiyor yani herbir sayıyı ayrı ayrı ele almam gerekiyor.

read-line komutu ile okudugum satırdan read ile bu sayıları almak istiyorum...

karakter sayılarına bakmaya çalıştığımda hata veriyor...

bunu nasıl aşabilirim...

27.04.2009 21:45    

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

28.04.2009 06:07    

ehya
miyatu.

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




Harbi65

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

29.04.2009 09:51    

miyatu
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))

04.05.2009 11:23    

fox
lispte mevcut bir çizginin üzerinden başka bir çizgi çizilemiyormu???

gerek kalmadı osnaplar açıkmış.

fox (04.05.2009 11:55 GMT)

19.06.2009 12:29    

Harbi65
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 12:37    

ehya
dcl'de list_box bölümünde height bölümüne değer vermek yerine, buraya değişken atayabilirsin. Lisp dosyasında kaç satır ise, buna göre uygun değeri atama yapabilirsin. örneği height = 25; yerine height = "satir_sayisi";

radio_button konusunda, birşey söylemiyorum. Hiç böyle birşey denemedim.

ehya (19.06.2009 12:42 GMT)

19.06.2009 13:40    

Harbi65
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:25    

ehya
peki bu fonksiyon için action_tile ekledin mi?

19.06.2009 15:38    

Harbi65
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....

19.06.2009 16:18    

ehya
bu aralar çok yoğunum. Müsait olduğumda bununla ilgili bir örnek kod yazarım.

22.06.2009 08:00    

Harbi65
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...?

Önceki Sayfa [1] [2] [3] [4] [5] [6] [7] > 8 < [9] [10] [15] [20] [25] [30] [35] [40] [43] Sonraki Sayfa
Copyright © 2004-2022 SQL: 1.426 saniye - Sorgu: 101 - Ortalama: 0.01412 saniye