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))1112 (setq x (+ x dx))13 ... 阅读全文
posted @ 2005-07-29 09:04 风过 无痕 阅读(1800) 评论(0) 推荐(0) 编辑
