03.10.2013 09:52

74751    

yazan kisinin affina siginarak ucs de de calisan hale getirmeye calistim.

(defun c:hz ( / obje2 obje n i hizanok10 yazinok10 hizanok11 yazinok11 ename elist yon)

(command "_.undo" "begin")
(princ "\nreferans nesneyi seçiniz :")
(setq obje2 (ssget '((0 . "INSERT,*text"))))
(setq refxy (cdr (assoc 10 (entget obje2 ))))

(setq hizanok10 (trans refxy 0 1 ));;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ekleme

(princ "\nHizalanacak Yazýlarý Seçiniz :")

(setq obje (ssget '((0 . "INSERT,*text"))))

(setq n (sslength obje))



(initget 1 "X Y")
(setq yon (getkword "Richtung [X / Y]:"))



(setq i 0)
(repeat n
(setq ename (ssname obje i))
(setq elist (entget ename))
(setq yazixy (cdr (assoc 10 elist)))


(setq yazinok10 (trans yazixy 0 1));;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ekleme


(if (= yon "X")
(progn
(setq hizanxy (list (car hizanok10) (cadr yazinok10) 0 )) ;;; x yönünde hizalama



)
(progn
(setq hizanxy (list (car yazinok10) (cadr hizanok10) 0 )) ;;; y yönünde hizalama


)
);_if

(setq hizanxy (trans hizanxy 1 0));;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ekleme

(setq elist (subst (cons 10 hizanxy) (assoc 10 elist) elist))
(entmod elist)
(setq i (+ i 1))
);repeat
(command "undo" "end")
(princ (strcat "\n" (itoa i) " nesne hizalandý."))
(princ)

);defun

özkan-wien (04.10.2013 15:00 GMT)

15.10.2013 08:52

74826    

Arkadaslar bayraminiz mübarek olsun öncelikle.
asagida görüldügü üzere bir liste hazirladim ve listenin elemanlarini secim setinde kullanmak istiyorum ancak hata veriyor. yardimlariniz icin tesekkürle.

(defun c:test (/ eleman)
(setq r2a_LayerList '(

(BETON 8 layer1)
(BETON 25 layer2) ))

(setq eleman (nth 0 r2a_Layerlist))
(setq eleman1 (nth 0 eleman))
(setq eleman2 (nth 1 eleman))
(setq eleman2 (nth 2 eleman))
(setq sec (ssget "x" '((2 . eleman1)) ))
)

özkan-wien (15.10.2013 09:11 GMT)

16.10.2013 11:54

74831    

Alıntı

---

Travaci :

Alıntı

---

özkan-wien :

---

İyi bayramlar.
Listedeki elemanlar string deil, seçim setine yazabilmek için string olmalı.
Birde cons 2 diyip bırakmışsın ! Bunun bi türü olmucak mı ? Shape, tag, block ?

Kod:

(defun c:test (/)
  (sssetfirst nil (ssget "x" (list (cons 0 "insert")
   (cons 2 (nth 0 (nth 0 '(("BETON" "8" "layer1")("BETON" "25" "layer2"))))))))
  (princ)
)

---

sagol travaci sorun stringdenmis. cözdüm ama cok Garip bi sey.

böyle cagirinca taniyor
(setq sec (sslength (ssget "_X" (list(cons 2 eleman1)))))
bäyle cagirinca almiyor
(setq sec (sslength (ssget "_X" '((cons 2 eleman1)))))

23.10.2013 07:58

74856    

arkadaslar bana bi kod lazim. dwg icindeki acik ve kilitli olmayan layerlarin listesi.
nasil yazilir bu kod, 70 in flag 4 ü denedim ama olmadi. simdiden tesekkürler.

23.10.2013 08:49

74859    

Alıntı

---

pulp fiction :
herkese merhaba;

üstadlar kullandığım metraj lispine formül eklediğimden dolayı yanlış bir şey yaptığımda bazen #-##-###-#### gibi karakterler çıkıyor. bunları find ile arattığımda bulamıyorum. kontrolü çok zor oluyor. bu karakterleri kısa yoldan bulabileceğim bir lisp olabilir mi? ekte örnek gönderdim. yardımcı olursanız işimiz çok çok ama çok kolaylaştırmış olacaksınız. teşekkürler...

115597-new block.dwg

---

arkadaşlar merhaba;

bu konuda yardımcı olabilecek kimse yok mu?

23.10.2013 11:13

74863    

Merhaba.
Benim çok basit bir isteğim olacak.
bir polyline ı ya da polyline grubunu seçtiğimde bu polylineları aralıkları ve boylarını kendim belirleyebileceğim kesiklik çizgilere çeviren ya da ayrı bir layerda polylinelar üzerine kesikli çizgiler atabileceğim bir lisp ricasında bulunabilir miyim?

Örnek olarak: 10birim uzunluğunda bir polyline ın üzerine 1 er birim uzunluğunda ve belirli aralıklarda line lar atıp bu line nesnelerinin seçtiğim layerın altında olmasını sağlamak istiyorum.

Yardım edebilecek arkadaşlarımıza şimdiden teşekkür ediyorum.

23.10.2013 15:11

74866    

özkan-wien

---

işlem doğru. döngüye sokuyormusunuz bu işlemi?
while yada repeat döngüsüne...
normal bir işlemde ikinci nth değerini alamazsınız.

24.10.2013 06:59

74872    

Değerli Üstatlarım,

Delta Y'si ve Delta Z'si sıfır olan lineları seçebilecek bir lisp mümkünmüdür acaba?

Saygılarımla.

29.10.2013 10:55

74923    

arkadaslar 10 cm kalinligindaki bir duvari (polyline) tek bir cizgiyle ikiye bölmek mümkün mü? yani islem sonunda iki tane polyline duvar kalacak.

31.10.2013 07:25

74953    

zkursatt

---

---

Tam istediğin gibi olmasada Erase <┘ Wp <┘ komutunu kullanabilirsin.