AutoLISP 画抛物线
(setq x1 -3 x2 +1 no 8 dx (/ (- x2 x1) 8.0))
(setq x2 (+ x2 (/ dx 10.0)))
; for x= x1 to x2 step dx do
(setq x x1)
(command "spline")
(while (<= x x2)
(setq y (+ (* x x) (* 2 x) 3))
(command (list x y))
(setq x (+ x dx))
); end while
(command "" "" "")
(null)
※ 引述《sjgau (sjgau)》之铭言：
: 我有收藏一些PDF,
: 内容是 AutoLISP 和 VBA 的教学资料
: 有兴趣的朋友可以透过 e-mail 索取
: 学习上面的问题也可以跟我讨论
: sjgau4311@gmail.com