(setq pnt (getpoint)) ;;;bahsedilen belirli noktanın pnt olarak tanımlı olduğunu kabul ettim.
(command "text" (polar pnt 0 50) 1 0 (strcat "=" (rtos temelbt)))
Burada polar fonksiyonu (Polar Point Angle Distance) şeklinde kullanılıyor. Angle değişkeninin temsil ettiği açıyı radian cinsinden girmelisiniz. kolay gelsin...
İlk aklıma geliveren polar komutu olduğu için yazıvermişim. Aslına bakarsanız, bu tür noktadan yeni nokta türetme işlemlerinde ben daha çok mapcar ve lambda fonksiyonlarının kombinasyonunu kullanıyorum. Sizin veya başka arkadaşların işine yarayabilir düşüncesiyle paylaşmak istedim. Aynı örneği ele alırsak.
Bu şekilde n1 ve n2 noktalarının orta noktası mp olarak elde edilir.
örnekte görüldüğü gibi bir (veya daha fazla) liste alınır, yeni bir liste üretilir.
mapcar lambda kullanımı bununla da sınırlı değil, bir veya birden fazla nokta listesi için de pek çok işlemler yapılabilir.