Dikdörtgen Çizimi
Tanım
Bu komutla çizim alanının istenilen noktasına eni, boyu ve yatayla yaptığı açısı verilen dikdörtgenin çizilmesi sağlanır.
(terpri)
(setq en (getreal "dikdörtgenin enini giriniz :")) ; 1
(terpri)
(setq boy (getreal "dikdörtgenin boyunu giriniz :"))
(terpri)
(setq deg (getstring "dikdörtgenin açısını giriniz :")) ; 2
(setq rad (angtof deg )) ; 3
(terpri)
(setq kn1 (getpoint "dikdörtgenin köşe noktasını giriniz")) ; 4
(setq kn2 (polar kn1 rad en)) ; 5
(setq kn3 (polar kn2 (+ rad (/ pi 2)) boy)) ; 6
(setq kn4 (polar kn3 (+ rad pi) en)) ; 7
(command "pline" kn1 kn2 kn3 kn4 "close") ; 8
)
Açıklamalar
1 Dikdörtgenin eni olarak kullanılacak en değişkenine getreal fonksiyonu ile bir değerin atanması sağlanmıştır.
2 getstring fonksiyonu kullanıcıdan metinsel bir değer girilmesini ister. Burada deg değişkenine dikdörtgenin açısı olarak kullanılacak değer atanmıştır.
3 angtof fonksiyonu açısal değerlerin birim çevrimlerinde kullanılır. Burada derece cinsindeki değer radyan cinsinde çevrilip rad değişkenine atanmıştır.
4 kn1 değişkenine atanmak için getpoint fonksiyonu ile dikdörtgenin köşe noktası istenmiştir.
5 kn2 değişkenine atanmak için polar fonksiyonu ile kn1 noktasından rad açısında en mesafesindeki nokta bilgisi hesaplanmıştır.
6 kn3 değişkeni içinde kn2 noktasından pi değerinin yarısı ile rad açısının toplamı olan açısında boy kadar mesafedeki nokta bilgisi bulunmuştur.
7 kn3 noktasından rad değeri ile pi değerlerinin toplamı kadar açıda en mesafedeki nokta bilgisi kn4 değişkenine atanmıştır.
8 command fonksiyonu ile AutoCAD komutlarından pline komutu kullanılarak kn1 kn2 kn3 kn4 noktaları arasında sürekli çizgi çizilmiş, close ile kn4 kn1 noktaları arasının kapatılması sağlanmıştır.
Örnek Lisp Dosyasını İndirin
006-dg.lsp