Örnek bir lisp hazırladım bir bakın derim arkadaşlar. Çizgi başlangıç ve bitiş noktalarını seçirerek boy değerini hesaplıyor ve istenilen yere yazdırıyor..
Kod:
; Çizgiyi boyunu ölçtürüp
; yazı yazdırma lispi
(defun c:yz2 (/ nokta1 nokta2 yazi_yeri )
(setq nokta1 (getpoint "\n Çizgi başlangıç noktası :"))
(setq nokta2 (getpoint "\n Çizgi bitiş noktası :"))
(setq yazi_yeri (getpoint "\n Yazı nerede olsun ? :"))
(setq boy_degeri (distance nokta1 nokta2))
(command "._text" "_j" "_middle" yazi_yeri (/ boy_degeri 5) boy_degeri)
(princ)
)
(Princ "Lispi çalıştırmak için > yz2 < yazınız! ")
******** ****** ******* ******* ******* **** ****** ****** *****
(setq boy_degeri (distance nokta1 nokta2)
Distance komutu ile çizgi boyunu hesaplayıp
boy_degeri değişkenine atadık..
(command "._text" "_j" "_middle" yazi_yeri
(/ boy_degeri 5) boy_degeri)
satırındaki kırmızı renkli yer yazımızın yüksekliğidir.Yazı yüksekliği için çizgi boyunun 5 te biri kadar olsun dedik.
Kodları böyle yazdık ama aslında seçim seti oluşturmak bence daha iyi olur.Kastettiğim
ssget kullanmak.. Herneyse metin kullanmak konusunda basit bir örnek yapmış olduk.
