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