以下，畫 y= sin(x) 的函數圖形

; file: test06.lsp

; for theta=0 to 360 step dt
(setq t1 0.0 t2 360.0 no 16)
(setq dt (/ (- t2 t1) no))
(setq t2 (+ t2 (/ dt 10.0)))

(setq tt t1)
(command "pline" "0,0")
(while (<= tt t2)
(setq x (* (/ tt 180.0) pi))
(setq y (sin x))
(command (list x y))

(setq tt (+ tt dt))
)

(command "")
(princ)