12 Eylül 2007 Çarşamba

Harita ve pafta koordinatları için karelaj yapan lisp




örnek :Harita ve pafta koordinatları için karelaj yapan lisp
Bu yazılımı denemek için önce bir dikdörtgen çiziniz.
Sonra yazılımı calıştırınız.

(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 (<>
(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 (<>
(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 (<>
(While (<>
(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 " --> 'http://cadlisp.blogspot.com/' Çizim yardımları yüklendi !")
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
Mevcut kodlardan lisp dosyası oluşturmak
konusunu inceleyiniz.

Hiç yorum yok: