|
29.06.2008 10:17
 Harbi65
|
|
arkadaşlar bu fonksiyon yanlış mı?
son oluşan çizginin kodunu neden vermiyor?
(setq gg1 (entlast))
(setq L1 (entget (car gg1))
L10 (cdr (assoc 10 L1 ))
L11 (cdr (assoc 11 L1 )))
(setq Laci (angle L10 L11 ))
|
|
29.06.2008 10:50
 ehya
|
|
(setq L1 (entget gg1))
olmalı... cdr fonksiyonu fazla..
|
|
29.06.2008 10:52
Harbi65
|
|
Teşekkür ederim...
bunlar hep kafamı karıştırıyo...
car
cdr
cadr vs.....
|
|
29.06.2008 18:07
Harbi65
|
|
eyvallah wolf. sağol....
boncuk gibi dizmişsin... bu kadar D nin arasında gel de huzur bul....:D: bu da d :D
|
|
29.06.2008 18:18
ehya
|
|
proje??
o ne olaki :)
dediği gibi öyle dizmişsin ama bana örneğin 25nci lazım... hadi diz bakalım :)
|
|
29.06.2008 19:29
ehya
|
|
sben seçilen nesnelerin 25ncisini istememiştim.
sen öyle yapmışsın peki dediğin gibi olsun :)
listenin sonuncu elemanını istemişsin. o zaman bende şöyle bi kod yazayım.. istediğin olsun :)
(setq liste '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)) ;; 16 basamaklı bi liste
(setq adet (length liste)) ;; listeki nesnelerin sayısı
(setq sonuncu (nth (- adet 1) liste)) ;; adet sayısından bir çıkartarak son elemanın ne olduğu.
oldu mu wolf? :)
böyle soru soracaksan bende kısas yaparım.. sanırım bi daha cevap vermezsin :)
|
|
30.06.2008 06:04
ehya
|
|
yukarıda söylediğin car,cadr,caddr..... v.s.
bunlar seçim elemanını vermez. liste elemanını verir. o yüzden seçim elamanı dememiştim.
neyse
bende bi soru sorayım cevapla bakalım..
bi lisp yaz, ekrana her tıkladığında farklı bir sayı versin ancak bu sayıların arasında bi bağlantı olmasın. yani aritmetik gitmesin.
bekliyorum cevabını :)
|
|
30.06.2008 06:30
ehya
|
|
sana kalmış.. nasıl üretirsen üret.. ben sayı istiyorum.. neyi nasıl üreteceğini ben bilmez.
sonucu görmek istiyorum :)
|
|
30.06.2008 06:48
ehya
|
|
eywallah güzel olmuş tebrik ederim de, neden bu kadar karmaşık oldu. onu anlamadım.
onu ona bölmüşsün onu onla çarpıp ortak bölenini almışsın..
hepsi tamam da bu ortak bölen nerden çıktı onu anlamadım..
neyse eline sağlık ;)
|
|
30.06.2008 07:13
ehya
|
Kod:
(defun c:sayi ()
(setq aa (rtos (getvar "cdate") 2 17))
(setq bb (substr aa (- (strlen aa) 1))))
senin için çok kısa ve öz anlattım.. :)
|
|
30.06.2008 07:42
Harbi65
|
|
Her yiğitin yoğurt yiyişinin farklı olduğunu biliyorduk zaten... :D:D
Lakin; konu car cdr caddr vs... den açıldı... bu yazdığınız örneklerle bunların bağlantılarınıda anlatsanız güzel olurdu...
|
|
30.06.2008 08:06
ehya
|
|
aralarındaki farkı şöyle açıklayayım.
yukarıdaki listeyi aynen kullanıyorum.
car, cadr, caddr kullanımı
(setq liste '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))
(car liste).....................Sonuç : 0
(cadr liste)...................Sonuç : 1
(caddr liste)...................Sonuç : 2
(cadddr liste)...................Sonuç : 3
cdr, cddr, cddr, cdddr kullanımı
(setq liste '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))
(cdr liste)...............Sonuç : (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)
(cddr liste)...............Sonuç : (2 3 4 5 6 7 8 9 10 11 12 13 14 15)
(cdddr liste)...............Sonuç : (3 4 5 6 7 8 9 10 11 12 13 14 15)
(cddddr liste)...............Sonuç : (4 5 6 7 8 9 10 11 12 13 14 15)
Sanırım anlaşılmıştır...
|
|
30.06.2008 08:07
Harbi65
|
Alıntı
wolf :
ehya date ve kordinatla ile yapmayayım dedim basite kaçar diye :D
Harbi65 alakayı sen kuracaksın artık bizden bu kadar :D
wolf;
Alaka bu örneklerle kurulursa başka örnek lisplerle daha iyi kurulurdu... ve ilk başta sormazdım...
-----------------------------------
Ehya sağol da... bunlar kafamı karıştırıyor derken ben yanlış anlattım galiba.
(setq liste '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))
(cadddr liste)...................Sonuç : 3
Burda mesela listenin üçüncü elemanını mı alıyor?
(setq liste '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))
(cdddr liste)...............Sonuç : (3 4 5 6 7 8 9 10 11 12 13 14 15)
Burada ise listenin üçüncü elemanından sonrasını mı alıyor?
örneğin şöyle bir nesnelerimiz olsun A, B, B, B, C, C, D, D, D, D
bu nesnelerin seçim setinden liste oluşturduğumuzu düşünürsek... hangi eleman nerde? hangi elemandan kaç tane? bunları sonuçları nasıl alırız...?
Harbi65 (30.06.2008 08:34 GMT)
|
|
30.06.2008 09:00
ehya
|
|
ilk örnekte verdiğin 4ncü elemanı alır.
ikinci örneğinde ise 4ncü elemanından sonrasını alır. 4ncü eleman dahil.
soruna gelince, böyle bi listeye bakarak neyin nerde olduğunu anlayamam..
ne yapmak istediğini daha detaylı söylemelisin.
yukarıdaki örnekler liste içinden eleman(lar) çekmek için kullanılır.
senin sorduğun soru ile benzerlik taşımayabilir.
|
|
30.06.2008 09:50
Harbi65
|
|
(setq liste '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))
(cdddr liste)...............Sonuç : (3 4 5 6 7 8 9 10 11 12 13 14 15)
bu mantığa göre burdan sekizinci elemanı almak istesek 7 tane d mi koymak lazım?
Belki bu liste mantığını anlamadım ben... bu nedenle gerekli soruyu soramıyorum belki...
şu an yapmak istediğim belli bir şey yok... Konu bu car cdr vs.. den açıldığı için soruyorum...
yukarda da verdiğim gibi;
A, B, B, B, C, C, D, D, D, D
A= line
B= blok
C= circle
D= donut
nesnelerimiz olsun mesela.. bunlardan bir liste oluştursak ve bu listemizden elemanları alacak olsak nasıl alacayız? neye göre nasıl alırız?
böyle bi durumda car, cdr, cadr vs kullanımı nasıl olacak...?
anlatabildim mi bilmiyorum... belkide bu liste konusunu temelden ele almak lazım...
|
|
30.06.2008 10:41
ehya
|
|
harbi65 yukarıdaki mesajları hiç okumuyorsun.
8nci eleman lazım ise sekiz tane d koyamazsın. öyle bi fonksiyon yok.
yukarıdaki örnekleri incele... benim ilk kod yazdığım örnekte sorunun cevabı var.
|
|
04.07.2008 08:30
Harbi65
|
|
yine aynı konuya döner gibi olacak ama;
(setq duvarlar (ssget (list (cons 0 "LINE"))))
ssget ile seçtiğimiz bir çizgi grubunu, mesela soldan sağa doğru sıralatmak mümkün mü?
mümkünse nasıl yaparız?
|
|
04.07.2008 08:33
ehya
|
|
buna benzer bi işlemi daha önceki konularda bahsetmiştim..
ssname ile seçimi yapılacak nesneleri 0 dan değil.. nesne sayısının bir eksiğindan itibaren eksilterek seçebilirsin.
|
Harbi65
|
|
rakam sıralamasıyla ilgili lispden bahsediyorsun sanırım...
tamam deneyeyim bakalım....
sağol..
|
