08.09.2018 21:22

86640    

Poz numaralandırmak için kullanmış olduğum bir lisp var, bu numaralandırmayı dimaligned ile beraber kullanmak istiyorum.

Yani istediğim şey Da ile ölçü aldığımda, ölçünün üzerine atıyorum 50 birim ofset atıp D1 diye başlayarak, ölçülendirmeye numara verecek. İkinci birimi ölçtüğümde yine ölçüyü yazıp üzerine D2 diye devam edecek.

Kısacası ölçülendirmelerimi ön eki ile beraber numaralandırmasını istiyorum. Hatta ikisinide yani hem ölçüyü hem numarayı aynı textin içinde yazabilirse şahane olur.

Bu iki komutu birleştirebilirmiyiz yada bunu yapabilmek için önerebileceğiniz bir kaynak var mı?

Kullanmış olduğum lisp;

(defun c:numara ()
(setq om (getvar "osmode"))
(setvar "cmdecho" 0)
(setq T1 "\n yazi yuksekligi <"
T2 "> ? "
T3 (getvar "textsize")
)
(terpri)
(setq TH (getreal (strcat T1 (rtos T3 2 2) T2)))
(if (= TH nil)
(setq TH t3)
)
(setq h1 (getstring "\n açiklama olarak bas ek ? "))
(setq n (getint "\n etiket numarasi kaçtan baslasin ? ")) ; 1
(initget 1 "d k") ; 2
(setq z (getkword "\n daireli mi koseli mi olsun ? ")) ; 3
(if
(= z "d")
(progn
(while
(setq p1 (getpoint "\n ilk noktayi giriniz"))
(setvar "osmode" 0)
(setq p2 (getpoint p1 "\n ikinci noktayi giriniz"))
(command "line" p1 p2 "") ; 4
(command "circle" p1 (* 0.5 th)) ; 5
(command "circle" p2 (* 1.5 th))
(command "trim" "l" "" p2 "")
(setq nn (strcat h1 (itoa n)))
(command "text" "j" "mc" p2 th "0" nn "")
(setq n (1+ n)) ; 6
(setvar "osmode" om)
)
)
)
(if ; 7
(= z "k")
(progn
(setq ko (getint "\n kac koseli olsun ")) ; 8
(while ; 9
(setq p1 (getpoint "\n ilk noktayi giriniz"))
(setvar "osmode" 0)
(setq p2 (getpoint p1 "\n ikinci noktayi giriniz"))
(command "line" p1 p2 "")
(command "circle" p1 (* 0.5 th))
(command "polygon" ko p2 "c" (* 1.5 th))
(command "trim" "l" "" p2 "")
(setq nn (strcat h1 (itoa n)))
(command "text" "j" "mc" p2 th "0" nn "")
(setq n (1+ n))
(setvar "osmode" om)
)
)
)
)

admin (14.09.2018 21:21 GMT)

09.09.2018 20:31

86646    

Çok teşekkürler emeğiniz için ancak bir türlü tam anlamıyla çalıştıramadım. Kodda devam sağlamıyor D1 ise D1 olarak atıp kodu tekrar ettiğimde yeniden ön ek soruyor ve 1 ekliyor tekrar yani D2 desemde D21 oluyor.

Benim istediğim ise kodu tekrar girmeden direkt d1 d2 d3 olarak devam edebilmek.

Yine de çok teşekkür ederim uğraşınız için

09.09.2018 20:52

86648    

Malesef çalıştıramadım ilk ölçüye numarayı atıyor ancak devamında komuttan çıkıyor tekrar dediğimde de yeniden ön ek soruyor. Dco ile devam ettiğimde de numarayı yazmıyor.

Sanırım yanlış yaptığım bişeyler var :/

09.09.2018 22:47

86653    

Kod 2013 surumunde normal calisirken, 2018 surumunde, (setvar 'clayer ly) calismiyor. Bu nedenle, dim nesnesi "Dim_Pose_Num" layerinde create edilemiyor. Boyle olunca da surekli olarak harfin onune 1 atiyor. Daha da ilginci, son olusturulan nesnenin layerini entmod yada vla-put la da degistirmiyor... Anlayan varsa anlatsin bana..

11.09.2018 17:08

86658    

Layerda kalması sorun değil çok teşekkür ederim emeğiniz için herhalde bir while döngüsü ile kodun devam etmesini sağlayabilirim diye düşünüyorum. Biraz kurcalayacağım. Tekrar teşekkürler