Seçim döngüsü | Forumlar - Çizim Okulu


Forum	Download	Galeri	AboneOl

Üye Ol veya Giriş Yap

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 573, Üye: 1
emin-dogan

Forumlar > AutoLISP > Seçim döngüsü

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
02.10.2022 12:13 89805	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
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 89807	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Başka bir yöntem kullanılarak ; * Bu Konu Çözülmüştür. *

04.10.2022 06:57 89808	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
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) )
k005
04.10.2022 07:01 89809	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
@Travaci Teşekkür ederim arkadaşım.

> 1 <

Copyright © 2004-2022 | Tüm Hakları Saklıdır | 2490 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim
SQL: 1.103 saniye - Sorgu: 55 - Ortalama: 0.02005 saniye