※ 引述《sjgau (sjgau)》之銘言:
: 我有收藏一些PDF,
: 內容是 AutoLISP 和 VBA 的教學資料
: 有興趣的朋友可以透過 e-mail 索取
: 學習上面的問題也可以跟我討論
: [email protected]
--
e-mail: [email protected]
我的課程介紹網頁:
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台灣地區菁英講師獲選
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.193.194.149
※ 文章網址: https://www.ptt.cc/bbs/Cad_Cae/M.1451710561.A.474.html
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)