29.03.2016 11:48

83233    

Arkadaşlar Aşağıdaki kod benim için ideal.

Ancak daire içine almadan yapamaz mıyım. Kodun üzerinde değişiklik yapılarak olabilir sanırım.

Birde açı eklense süper olurdu.

Teşekkürler.



;===============================================================
; Seçilen bir harf veya harf gurubuyla başlayan ve artarak
; devam eden sırada, dikdörtgen içine alınmış Poz numarası
; vermek için Hazırlayan: Mehmet Sahin Guvercin 17-04-2011
;===============================================================
(write-line "\nHazırlayan, M. Şahin Güvercin - www.cizimokulu.com")
(defun C:PsL (/ pre sayi yyuk ynok a1 p1 p2 ang dst p3 p4)
(setvar "cmdecho" 0) (command "undo" "group")
(setvar "modemacro" "Prepared by: M.S Güvercin")
(if esayi (setq sayi esayi) (setq esayi 1))
(if (= epre nil) (setq epre "P"))
(if (= eyuk nil) (setq eyuk (* (getvar "dimtxt") (getvar "dimscale"))))
(setq pre (getstring
(strcat "\Poz'ların başına gelecek Harf ya da Harf Gurubu <" epre ">: ")))
(if (= pre "") (setq pre epre)) (if (= pre "0") (setq pre ""))
(setq sayi (getint (strcat "\nBaslangic Poz Numarası <" (itoa esayi) "> :")))
(if (= sayi nil) (setq sayi esayi))
(setq yyuk (getreal (strcat "\nYazi yuksekligi <" (rtos eyuk) "> :")))
(if (= yyuk nil) (setq yyuk eyuk))
(while (setq ynok (getpoint
(strcat "\n<" pre (itoa sayi) "> Pozu için Yer seciniz...")))
(entmake (list (cons 0 "TEXT") (cons 1 (strcat pre (itoa sayi)))
(cons 10 ynok) (cons 11 ynok) (cons 40 yyuk) (cons 72 4)))
(setq a1 (entget (entlast)) p1 (car (textbox a1)) p2 (cadr (textbox a1))
ang (angle p1 p2) dst (/ (distance p1 p2) 1.25)
p1 (polar ynok (+ ang pi) dst) p2 (polar ynok ang dst)
p3 (list (car p2) (cadr p1) (caddr p1))
p4 (list (car p1) (cadr p2) (caddr p1)))
(entmake (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0)
(cons 100 "AcDbPolyline") (cons 90 4) (cons 70 1)
(cons 43 0.0) (cons 38 0.0) (cons 39 0.0)
(cons 10 p1) (cons 10 p3) (cons 10 p2) (cons 10 p4)))
(setq sayi (1+ sayi)))
(setq eyuk yyuk esayi sayi epre pre)
(setvar "modemacro" "") (command "undo" "e") (prin1)
)


Drawing dosyasından çıkılıncaya kadar,
-Poz Numarası
-Başa gelen Harf (veya Harf Gurubu)
-Yazı Yüksekliği
Unutulmaz... dosyadan çıkılınca hepsi unutulur

çizilen çember çapı sabit değildir. başa gelen harf ve poz numarasının uzunluğuna bağlı olarak çember çapı değiştirilir.

poz numaralarının başına bir harf veya seçeceğiniz karakter gurubunu girebilirsiniz.

eğer poz'un başına herhangi bir şey gelmesini istemiyorsanız bu soruya 0 (sıfır) girerek cevap veriniz.

kolay gelsin...

admin (17.12.2017 11:43 GMT)

29.03.2016 13:43

83236    

Sayın yönetici teşekkür ederim.

Ancak şöyle bir durum var. Mesela çizime yeni başladım. ve vereceğim kotlar bu şekilde soldan sağa yada yukarıdan aşağı olmayacak.

illa çizim içinde dağınık halde vermem gerekecek. Onun için kodları belirlerken yukarıda bahsettiğim lisp uygulaması benim için çok iyi. İstediğim şekilde sıralayabilmek için kullanmak istiyorum. Bahsettiğiniz komut bir yere kadar işime yarıyordu. Ancak şimdi çizim içi kalabalıklaştıkça kendim sıralı bir şekilde vermek istemiştim.

Ayrıca 2. sualim olarak antet içinde sayfa numarasını antedi kopyalarken artmasını beklemiştim.

Bu konuda da yardımlarınızı rica ederim.