12.09.2008 10:01

41144    

Alıntı

---

ehya :
miyatu yukarıda verdiğim kod seçim setine göreydi. Az düşünseydin secilen nesnenin çıkarılmasını da yapabilirdin.

Neyse, örnek kod aşağıdadır.
Verdiğim kod seçim setinden tek nesne çıkarmak içindir. Çoklusu lazım ise yapabilirsin sanırım...

Kod:

(setq ss (ssget))
(setq ent (entsel))
(setq ss (ssdel (car ent) ss))

---

yardımların ve önerilerin için teşekkürler...

benim silmeye daha doğrusu sildirtmeye çalıştığım nesne ssget ile oluşturulmuş bir seçim seti içinde işlem gören elemanı tekrar işlem görmesin diye listeden silmek...

ilk verdiğin örnekte sıra numarası vererek silmeyle ilgiliydi...
ya ben yanlış bişey yaptım yada fonksiyon bu şekilde çalışmıyor...
sıra numarasını verdiğimde hata oluştu...
biraz araştırdım silmek istediğin nesnenin adını verirsen listeden silindiğini öğrendim...

son verdiğin yukardaki örnekte listeden çıkarılması istenen nesne kullanıcı tarafından belirlenip seçilmesi gerekiyor...
yazmaya çalıştığım projede yapı bir ağaca benzediği için ve çok sayıda nesne olduğundan dolayı ilgili nesneyi bulup seçmek bira zaman alacaktır...

tekrar yardımların ve desteğin için teşekkür ederim...

12.09.2008 11:11

41150    

(defun c:dd ()
(prompt "\nnesneleri seç:")
(setq set1 (ssget (list (cons 0 "LINE"))))
(setq set2 set1)
(setq ref_nkt (getpoint "\nbaşlangıç noktasını seç:"))
(setq sıra (list ref_nkt))
(princ sıra)
(setq index (sslength set1))
(setq n 0)
(setq sn 0)
(while (/= index nil)
(setq list1 (entget (ssname set1 n)))
(setq str_nkt (cdr (assoc 10 list1)))
(terpri)
(princ str_nkt)
(setq fns_nkt (cdr (assoc 11 list1)))
(terpri)
(princ fns_nkt)
(if (/= (equal str_nkt ref_nkt) nil)
(progn
(setq kd 1)
(setq isim (ssname set1 n))
(setq set1 (ssdel isim set1))
(setq sıra (cons fns_nkt sıra))
(setq sn (+ sn 1))
(command "text" str_nkt "50" "0" sn)
(setq n -1)
(terpri)
(princ sıra)
)
)
(if (/= (equal fns_nkt ref_nkt) nil)
(progn
(setq kd 2)
(setq isim (ssname set1 n))
(setq set1 (ssdel isim set1))
(setq sıra (cons str_nkt sıra))
(setq sn (+ sn 1))
(command "text" str_nkt "50" "0" sn)
(setq n -1)
(terpri)
(princ sıra)
)
)
(cond
((= kd 1)
(setq ref_nkt fns_nkt)
(setq kd 0)
)
((= kd 2)
(setq ref_nkt str_nkt)
(setq kd 0)
)
)
(if (= index n)
(progn
(setq kd 0)
(setq fd 0)
(setq n1 0)
(setq n -1)
(setq ref_ger_nkt (nth fd sıra))
(princ ref_ger_nkt)
(setq index (sslength set1))
(while (/= ref_ger_nkt nil)
(setq fd (+ fd 1))
(while (/= n1 index)
(setq list1 (entget (ssname set1 n1)))
(setq str_nkt (cdr (assoc 10 list1)))
(setq fns_nkt (cdr (assoc 11 list1)))
(if (/= (equal str_nkt ref_ger_nkt) nil)
(progn
(setq kd 1)
)
)
(if (/= (equal fns_nkt ref_ger_nkt) nil)
(progn
(setq kd 2)
)
)
(cond
((= kd 1)
(setq ref_nkt str_nkt)
(setq kd 0)
(setq n1 index)
(setq fd index)
)
((= kd 2)
(setq ref_nkt fns_nkt)
(setq kd 0)
(setq n1 index)
(setq fd index)
)
)
(setq n1 (+ n1 1))
)
(setq n1 0)
(setq ref_ger_nkt (nth fd sıra))
)
)
)


(setq n (+ n 1))
(princ)
)
)

kırmızı kısımda isim değişkenini kullanmadan sıra numarası vererek nasıl yapabilirim...

not:
kodlar son hali değil

13.09.2008 10:06

41189    

Alıntı

---

fatih107 :

Birde bu while döngüsünün mantğını tam olarak anlmakta (daha doğrusu uygulamakta) zorluk çekiyorum.While döngüsünü kullanarak sürekli (kullanıcı bitirine kadar) su hattı seçip bunları seçim setine atmaya çalıştım malesef beceremedim. Bir tane seçebiliyorum ondan sonra command satırında error: bad argument type: yazıyor .

(setq ent 1)

(while (/= ent nil)
(setq ent (entsel)
secim (ssadd)
secim (ssadd ent secim)
)

---

while döngüsü sart sağlandığı sürece aynı işlemleri yapma mantığı ile çalışır...

senin sorunun sanırım while ile değilde ssadd ile ilgili...

entsel ile seçim yapılmadığı için ssadd yorumlanamıyor olabilir...

tavsiyem

(setq ent (entsel))
(while (/= ent nil)
(setq secim (ssadd)
secim (ssadd ent secim) )
(setq ent (entsel))

seklinde bir dene çözüm olacağını umuyorum...

kolay gelsin...

14.09.2008 15:09

41224    

Miyatu ve ehya ilgilendiğiniz için çok teşekür ederim.

Miyatu senin verdiği kodu denedim hatta sadece onu yazıp denedim lakin ne zaman ilk spline seceyim

; error: bad argument type: lentityp (<Entity name: 7efa1400>
(1443.85 1324.56 0.0))

bu hatayı veriyor.


Bu arada bir şey daha sormak istiyorum polyline, rectangular ve çokgenler(5 gen 6gen) bunların hepsinin Entity lerinde lwpolyline olarak tanıyor. Acaba bunların farklı çizim oluğunu bildiren farklı bir kodu varmı Entity listesi içinde.

14.09.2008 16:49

41227    

bunu nasıl yapacaksın?
fikir beyan edersen üzerinde yorumlayabiliriz...

15.09.2008 15:58

41243    

ARkadaşlar kusura bakmayın devamlı bu konuda rahatsız ediyorum ama malesef bi yürlü hepsini seçmeyi başaramadım. Kodları açık şekilde yazayım buraya





BUnunla seçim yapmaya çalıştığımda

Command: gvtx
Select object: ; error: bad argument type: lentityp (<Entity name: 7efa1428>
(1323.43 1301.3 0.0))

Bu Hatayla karşılaşıyorum

2))





bunu yazdığım zaman 3 tene deneme için yaptığım polyline secebiliyorum (enson boş entere bastığımzaman yine ; error: bad argument type: lentityp nil hatası veriyor gerçi). Lakin bu seferde l1 l2 l3 nil olarak gösteriyor.


Belki benim düşünce tarzım yanlıştır o yüzden size yapmak istediğimi anlatayım. Kullanıcının seçeceği polyline ları (sayısı belli olmayan) ayrı bir değişkene atamak istiyorum.

Yardımlarınız vede ilgilendiğiiz için tekrar teşekkür ederim.

ehya (02.02.2012 14:27 GMT)

17.09.2008 12:10

41311    

Mrb arkadaslar bi listenin icindeki elemanlari sirayla nasil alabiliriz.
sadece car cadr ile mi? Bu isin baska bi yolu varmi? Ben ilk bes elemani almaya calistim ama sacma bi sey oldu.
Repeat ile otomatige baglama yolunu denedim olmuyor.
Kisaca lispden bahsedeyim; önceden tanimlanmis bir layerdaki,belli bir isimdeki bloklari seciyor. O secim setinden insertpoint kordinatlari alip bi liste yapiyor. Sonra bu listeyi kücükten büyüge diziyo. En son olarak da listenin 1.elemaninin x si ve y si ile 2. elemanin x ve y si,2.ile 3.,3. ile 4. ile islem yapip sartlara göre 1 ekliyor veya eklemiyor. Ama 1. ve 2. den sonra yapmiyor.
Yardimlariniz icin tesekkürler. Ben sadece döngünün oldugu yeri yaziyorum.

ehya (17.09.2008 13:01 GMT)

17.09.2008 13:35

41325    

İleride düzelirsin merak etme :D

17.09.2008 13:46

41327    

estf. ustalık ne haddime..
sadece dikkatimi çekti.. hem car, cadr haricinde varmı demisşin hemde kodlarda nth görünce,dikkatimi çekti..
tavsiyem, lispi yazarken visuallisp editöründe yaz. Mavi renkli olanlara değer vermezsin. Bir daha sıkıntı çekmezsin...

17.09.2008 17:03

41331    

Yazılımda bir yerde hata veriyor. Ancak bu lispin ne işe yaradığını anlamadım. Sanırım daha geliştirme aşamasındasın..

Hatalı satır : (setq lnth1 (+ nth1 1))

Düzgün hali : (setq lnth1 (+ lnth1 1))