Lisp hakkında ; kullanıcının tıkladığı noktalara göre spline çizilmesini sağlayan autolisp programı.
Bu örnek kodlamayı yazacağınız herhangi bir lispte kaynak kod olarak kullanabilirsiniz.. Kaynak kod olarak kastettiğim >> (command "_spline" pt1pt2pt3pt4 pt5 pt6 "" "" "" ) satırındaki noktaların kordinatlarını car, cadr kullanarak kordinat hesabı yapabilirsiniz..
(setq pt1 (getpoint "\n Spline başlangıç noktasi ?! :"))
(setq pt2 (getpoint "\n İkinci nokta ?! :"))
(setq pt3 (getpoint "\n Üçüncü nokta ?! :"))
(setq pt4 (getpoint "\n Dördüncü nokta ?! :"))
(setq pt5 (getpoint "\n Beşinci nokta ?! :"))
(setq pt6 (getpoint "\n Spline Son nokta ?! :"))