24h購物| | PChome| 登入
2006-05-25 09:37:50| 人氣1,661| 回應2 | 上一篇 | 下一篇

a AutoCAD LISP 程式

推薦 0 收藏 0 轉貼0 訂閱站台

以下，畫 y= sin(x) 的函數圖形

; file: test06.lsp

; for theta=0 to 360 step dt
(setq t1 0.0 t2 360.0 no 16)
(setq dt (/ (- t2 t1) no))
(setq t2 (+ t2 (/ dt 10.0)))

(setq tt t1)
(command "pline" "0,0")
(while (<= tt t2)
(setq x (* (/ tt 180.0) pi))
(setq y (sin x))
(command (list x y))

(setq tt (+ tt dt))
)

(command "")
(princ)

我要檢舉
台長： sjgau

您可能對以下文章有興趣

人氣(1,661) | 回應(2)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: AutoLISP程式設計 |
此分類下一篇:AutoLISP 的 Hello, world!\n

我要回應
SUN
想學3D跟LISP
因為公司CAD圖檔被惡意LISP
造成很大問題
想研究並解決它
因為隨工程跑
不建的會呆再某的地方很久
若有資料可否MAIL先給我研究
有課程若為假日可否也通知我
2006-06-07 17:39:23
sjgau
樓上，還是樓下的：
你留的 e-mail 無法使用。

我在台北，你呢？
請使用 e-mail 連絡。
2006-06-27 14:57:31
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文