Kot İşareti
Tanım
Bu komut girilen noktaya kot üçgeni çizer ve üzerine girilen kot değerini yazar.
(setq osm (getvar "osmode"))
(terpri)
(setq yy (getreal "kot değerinin yazı yüksekliğini giriniz :")) ; 1
(terpri)
(setq kotyazı (getstring "kot değerini giriniz :")) ; 2
(terpri)
(setq kotn (getpoint "kot işareti noktasını giriniz :")) ; 3
(terpri)
(setq n1 (polar kotn (* pi 0.25) yy)) ; 4
(setq n2 (polar kotn (* pi 0.75) yy))
(setq yn (polar kotn (* pi 0.5)(* 1.5 yy))) ; 5
(command "osmode" 0)
(command "text" "j" "mc" yn yy "0" kotyazı "") ; 6
(command "pline" n1 kotn n2 "close") ; 7
(setvar "osmode" osm)
)
Açıklamalar
1 Kot değerinin yüksekliği olarak kullanılacak yy değişkenine getreal fonksiyonu ile bir değerin atanması sağlanmıştır.
2 getstring fonksiyonu ile kotyazı değişkenine bir değer girilmesi sağlanmıştır.
3 kotn değişkenine getpoint fonksiyonu ile nokta girilmiştir.
4 kot üçgeni için polar fonksiyonu ile n1 noktası tanımlanmıştır.
5 yazı noktası olarak yn değişkeni tanımlanmıştır.
6 text komutu ile kotyazı değeri yn noktasına yy yazı yüksekliğin de yazı yazılmıştır.
7 pline komutu ile n1 kotn n2 noktalarına çizgi çizilmiştir.
Örnek Lisp Dosyasını İndirin
008-kot.lsp