分享一個 好玩的 AutoCAD LISP 程式
用來模擬 產生圓的內擺線
小圓套在 大圓的裡面旋轉。
r3 是筆的位置，距離小圓 圓心的距離。
轉動的圈數，可以是 0.5圈。
每轉動 繞大圓一圈 所產生的曲線，要分成幾個 直線段。
分的段數越多，越平滑。
有輸入資料的範例可以參考
; file: flower.lsp
(defun c:flower( / )
(setq r1 (getreal "\n 請輸入 大圓半徑(ex.: 50)"))
(setq r2 (getreal "\n 請輸入 小圓半徑(ex.: 16.6667)"))
(setq r3 (getreal "\n 請輸入 筆的偏心距離(ex.: 20)"))
(setq no (getreal "\n 請輸入 轉動的圈數(ex.: 1.0)"))
(setq n1 (getreal "\n 請輸入 每一圈的 step 數目(ex.: 100)"))
(setq r1a (- r1 r2)
t1 (* no (* 2.0 pi))
dt (/ (* 2.0 pi) n1))
; for t2= 0.0 to t1 step dt do ...
(setq t2 0.0)
(command "pline")
(while (<= t2 (+ t1 (* 0.1 dt)))
;
(setq s (* r1 t2))
(setq t3 (* -1.0 (/ s r2)))
(setq x1 (* r1a (cos t2))
y1 (* r1a (sin t2)))
(setq x2 (* r3 (cos t3))
y2 (* r3 (sin t3)))
(setq x3 (+ x2 x1)
y3 (+ y2 y1))
; (command "point" (list x3 y3))
(command (list x3 y3))
(setq t2 (+ t2 dt))
); end of while
(command "")
(princ)
); end of flower()
; end of file
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.231.54.130
→
05/13 12:13, , 1F
05/13 12:13, 1F
推
05/13 14:32, , 2F
05/13 14:32, 2F
→
05/13 15:26, , 3F
05/13 15:26, 3F
Cad_Cae 近期熱門文章
PTT數位生活區 即時熱門文章