AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Seçim döngüsü
02.10.2022 12:13    
k005
Herkese Merhaba.
bir döngü oluşturmak istiyorum. şu noktada takıldım :
5 defa dönen bir döngü olacak. 5 seçim yada 1 seçim yaptığımda ( sağ klik veya enter ) döngüden çıkıp program kaldığı noktadan devam edecek.
1 seçim yaptığımda diğer dört değişkene boş "" değeri yüklenecek.
1. değişken layer1
2. değişken layer2
3. değişken layer3
4. değişken layer4
5. değişken layer5
*boş bir noktaya tıklayıp komuttan çıkmamalıdır.
Kod:

(Princ "Seçilmesi istenen 1. layer ? ")
(setq sse (entget(car (entsel))))
(setq layer1 (cdr (assoc 8 sse)))

yardımcı arkadaşa şimdiden teşekkürler.

k005 (26.12.2022 16:42 GMT)

03.10.2022 10:35    
k005
Başka bir yöntem kullanılarak ;

*** Bu Konu Çözülmüştür. ***

04.10.2022 06:57    
Travaci
Kod:

(defun c:test (/ dn ss n ly ls)
  (while (= dn nil)
    (if (setq ss (ssget))
      (progn
        (repeat (setq n (sslength ss))
          (setq n  (1- n)
                ly (cdr (assoc 8 (entget (ssname ss n)))))
          (if (not (member ly ls)) (setq ls (cons ly ls)))
        )
      ) (if (= (getvar "errno") 0) (setq dn T))
    )
  ) (if (> (length ls) 0) (princ ls)) (princ)
)
04.10.2022 07:01    
k005
@Travaci


Teşekkür ederim arkadaşım.

> 1 <
Copyright © 2004-2022 SQL: 1.612 saniye - Sorgu: 53 - Ortalama: 0.03041 saniye