lisp小例子（画正线曲线）

(Defun C:Dsin(/ x n z s dx cm bl x0 y0)
(SetQ x 0
P (GetPoint "\n基点：") x0 (Car p) y0 (Cadr p)
n (GetInt "\n精度（全线上直线片段数）：")
z (GetReal "\n周期数：")
s (GetReal "\n波高系数：")
dx (/ (* z 2 Pi) n)
)
(SetQ cm (GetVar "cmdecho") bl (GetVar "blipmode")
os (GetVar "osmode")
)
(SetVar "cmdecho" 0) (SetVar "blipmode" 0) (SetVar "osmode" 0)
(Command "pline" p)
(Repeat n
(SetQ x (+ x dx))
(Command (List (+ x0 x) (+ y0 (* s (Sin x)))))
)
(Command "")
(SetVar "cmdecho" cm)
(setvar "blipmode" bl)
(setvar "osmode" os)
(PrinC)
)