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 风过 无痕 阅读(1782) 评论(0) 推荐(0) 编辑