Harita ve pafta koordinatları için karelaj yapan lisp
Harita ve pafta koordinatları için istenilen karelajın yapılması
msucullu - 03.03.2006 13:34
msucullu - 03.03.2006 13:34
Bu yazılımı denemek için önce bir dikdörtgen çiziniz.
Sonra yazılımı calıştırınız.
Çalıştırmak için komut: kare
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.
Sonra yazılımı calıştırınız.
Çalıştırmak için komut: kare
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Kod:
(DEFUN C:kare ( )
;;;;;;;;;;;;;;;;;;;;;;;AYARLAR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq a 2) ;koordinat yazısı büyüklüğü
(setq ax (* 2 a))
(setq ay (* 4 a))
(setq b 1) ;koordinat yazısının karelaj cizgisinden uzaklığı
(setq c 0) ;yazılacak yazının acısı
(setq d "red") ;renk
(setq e 5) ;karelaj cizgi uzunluğu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
(setq f (getdist "n karelaj yapılacak pafta boyutlarını (x yonün deki uzunlugu yazınız): "))
(setq g (getdist "n karelaj yapılacak pafta boyutlarını (y yonün deki uzunlugu yazınız): "))
(setq h (getdist "n karelaj aralığını yazınız: "))
(setq xyz (getpoint "cizimin sol alt köşesini tıklayınız"))
(setq x (car xyz))
(setq y (cadr xyz))
(setq z (caddr xyz))
(command "zoom" "w" (list (- x 10) (- y 10) 0) (list (+ x 10) (+ y 10) 0))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "layer" "m" "koordinat" "c" d "" "")
(setq i 0)
(setq j 0)
;;;;;;y yonu yazı;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(While (< i (+ 1 g))
(setq xay (- x ay))
(setq xyzyyonu (list xay (+ y i) 0))
(setq ykoor (cadr xyzyyonu))
(setq yazıy (rtos ykoor))
(command "text" "j" "mc" xyzyyonu a c yazıy)
(setq i (+ i h))
)
;;;;;;x yonu yazı;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(While (< j (+ 1 f))
(setq yax (- y ax))
(setq xyzxyonu (list (+ x j) yax 0))
(setq xkoor (car xyzxyonu))
(setq yazıx (rtos xkoor))
(command "text" "j" "mc" xyzxyonu a c yazıx)
(setq j (+ j h))
)
;;;;;;karelaj;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "layer" "m" "karelaj" "c" d "" "")
(setq i 0)
(setq j 0)
(While (< i (+ 1 g))
(While (< j (+ 1 f))
(setq karx (+ x j))
(setq kary (+ y i))
(setq karxy1 (list (- karx (/ e 2)) kary 0))
(setq karxy2 (list (+ karx (/ e 2)) kary 0))
(setq karxy3 (list karx (- kary (/ e 2)) 0))
(setq karxy4 (list karx (+ kary (/ e 2)) 0))
(command "line" karxy1 karxy2 "")
(command "line" karxy3 karxy4 "")
(setq j (+ j h))
)
(setq i (+ i h))
(setq j 0)
)
(command "layer" "m" "0" "")
(command "zoom" "p")
)
(PRINC " --> 'cizimokulu.com' Çizim yardımları yüklendi !")
;;;;;;;;;;;;;;;;;;;;;;;AYARLAR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq a 2) ;koordinat yazısı büyüklüğü
(setq ax (* 2 a))
(setq ay (* 4 a))
(setq b 1) ;koordinat yazısının karelaj cizgisinden uzaklığı
(setq c 0) ;yazılacak yazının acısı
(setq d "red") ;renk
(setq e 5) ;karelaj cizgi uzunluğu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
(setq f (getdist "n karelaj yapılacak pafta boyutlarını (x yonün deki uzunlugu yazınız): "))
(setq g (getdist "n karelaj yapılacak pafta boyutlarını (y yonün deki uzunlugu yazınız): "))
(setq h (getdist "n karelaj aralığını yazınız: "))
(setq xyz (getpoint "cizimin sol alt köşesini tıklayınız"))
(setq x (car xyz))
(setq y (cadr xyz))
(setq z (caddr xyz))
(command "zoom" "w" (list (- x 10) (- y 10) 0) (list (+ x 10) (+ y 10) 0))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "layer" "m" "koordinat" "c" d "" "")
(setq i 0)
(setq j 0)
;;;;;;y yonu yazı;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(While (< i (+ 1 g))
(setq xay (- x ay))
(setq xyzyyonu (list xay (+ y i) 0))
(setq ykoor (cadr xyzyyonu))
(setq yazıy (rtos ykoor))
(command "text" "j" "mc" xyzyyonu a c yazıy)
(setq i (+ i h))
)
;;;;;;x yonu yazı;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(While (< j (+ 1 f))
(setq yax (- y ax))
(setq xyzxyonu (list (+ x j) yax 0))
(setq xkoor (car xyzxyonu))
(setq yazıx (rtos xkoor))
(command "text" "j" "mc" xyzxyonu a c yazıx)
(setq j (+ j h))
)
;;;;;;karelaj;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "layer" "m" "karelaj" "c" d "" "")
(setq i 0)
(setq j 0)
(While (< i (+ 1 g))
(While (< j (+ 1 f))
(setq karx (+ x j))
(setq kary (+ y i))
(setq karxy1 (list (- karx (/ e 2)) kary 0))
(setq karxy2 (list (+ karx (/ e 2)) kary 0))
(setq karxy3 (list karx (- kary (/ e 2)) 0))
(setq karxy4 (list karx (+ kary (/ e 2)) 0))
(command "line" karxy1 karxy2 "")
(command "line" karxy3 karxy4 "")
(setq j (+ j h))
)
(setq i (+ i h))
(setq j 0)
)
(command "layer" "m" "0" "")
(command "zoom" "p")
)
(PRINC " --> 'cizimokulu.com' Çizim yardımları yüklendi !")
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.
Yazar: msucullu
İçerik:
Tag:
Yorumlar :
ademnba 30.09.2022 09:06 #16131
çok teşekkürler ellerinize sağlık
ozerluleci 13.05.2016 06:52 #15672
teşekkürler süper olmuş.
ongino 01.01.2015 17:23 #15487
ne ise yarar bu ?
lutfi02 12.11.2013 14:55 #15200
teşekürler
baba23100 19.11.2009 16:13 #12060
çok guzel olmuş
spiderXxX 02.10.2009 19:58 #11805
off baba coşmuşsun yaa bravo tebrik ediyorum sizi...
yoruk1919 17.09.2007 11:00 #5570
Haritacılara kolaylık sağlayacak iyi bir çalışma
buseokuyucu 17.07.2007 16:45 #4968
güzel bi konuya benziyo ama ben hiçbirşey anlamadım. sanırsam bu lisp olayı kendi ayarlarımızdan oluşan bir dosya şeklimi. ve biz çizimlerimizi bu ayarlar içimdemi yapıyoruz.............!
:blush
konaknaim 10.07.2007 19:16 #4899
cok guzel bırsey yapmmısın ellerıne saglık teşekkür