AutoCAD visual lisp实例：函数绘制

 1(defun c:mysin ()
 2  (setq    x  0
 3    dx (/ pi 100)
 4  )
 5  (setq y 0)
 6  (command "line")
 7
 8  (while (<= x (* 2 pi))
 9    (setq y (sin x))
10    (command (list x y))
11
12    (setq x (+ x dx))
13  )
14
15  (command "")
16  (command "line"
17       (list 0 0)
18       (list (* 2 pi) 0)
19       ""
20  )
21  (command "line"
22       (list 0 -1)
23       (list 0 1)
24       ""
25  )
26  (command "zoom" "e")
27)
28