; Ebatlı Dörtgen Çizim Lispi v.1.0
; ( kullanıcıdan verdiği ebat değerlerine göre )
; ( ölçülü dörgen çizme )
; ( 30 mm x 60 mm saç platina gibi .. )
;
; yazgunesi02@gmail.com
; www.autocadokulu.com
(defun c:kt1 () ; komut ismi kt1 olsun dedik..
; kullanıcıdan gerekli bilgileri alalım
(setq by (getreal "\n Kutu Boyu ? :" )
en (getreal "\n Kutu Eni ? :" )
yr (getpoint "\n Yerlestirme yeri [TıKLa] :")
; dörtgenin yükseklik ayarı // çizim doktasının yeri
a1(list (car yr) (+ (cadr yr) en))
; çizim objesindeki noktaların kordinat hesabı
a2(list (- (car yr) (/ by 2)) (cadr yr))
a3(list (car a2) (cadr a1))
a4(list (+ (car yr) (/ by 2)) (cadr yr))
a5(list (car a4) (cadr a3))
)
; şimdi dörtgeni çizdirme zamanı
(command "color" "2" "" ; renkli çizim yapma özelliği
"line" a2 a3 ""
; üstteki satırda dedik ki
; a2 noktasından a3 noktasına çizgi çiz
"line" a3 a5 ""
"line" a5 a4 ""
"line" a4 a2 ""
)
)
(Princ "Lisp'i çalıştırmak için > kt1 < yazınız! [www.autocadokulu.com] ")
; Renk Değiştirme Testi Sonuçları
; (command "color" "5" "" <<< satırındaki rakam
;
; değiştirildiğinde
;
; 1 >> kırmızı
; 2 >> sarı
; 3 >> yeşil
; 4 >> açık mavi
; 5 >> mavi
; 6 >> pembe
; 7 >> beyaz oluyor.
Bu lisp kullanıcıdan aldığı ölçülere göre dörtgen çiziyor, renkli olarak ...
Bu lispi autocad dizini altında support klasörü içine atıp ,
load yaparak (appload komutu) çalıştırabilirsiniz.
Klavyeden çalıştırmak için kt1 yazınız.
Yukarıdaki lispin aynısını rar dosya olarak dosya deposuna atmıştım.. İle de dowload etmeniz şart değil, lispin kendisini görüyorsunuz zaten.. Lispi çalıştırmak yada yüklemek için lisp kodlarını notepada kopyalayıp save as ile ornek_isim.lsp olarak kaydedin ve Autocad dizini altında support klasörüne kopyalayın... Sonrada appload komutu ile yükleyip çalıştırın...