PTT數位生活區 / Cad_Cae (電腦輔助設計)

[心得] 叫AutoCAD畫 極座標函數的LISP函數

看板Cad_Cae (電腦輔助設計)作者 (sjgau)時間19年前 (2005/09/26 21:45), 編輯推噓1(1推 0噓 3→)
留言4則, 2人參與, 最新討論串1/2 (看更多)
(setvar "cmdecho" 0) ; plot r= G(theta) ; ｒ＝ａ（１－ｓｉｎθ） (setq a 2.5) (setq no (getint "Please input no= ")) (setq t1 (* -1 pi) t2 (* +1 pi) dt (/ (- t2 t1) no) t2 (+ t2 (* 0.1 dt))) ; for theta= t1 to t2 step dt do ... ; dt= (t2 - t1)/no ; no= ? (command "PLINE") (setq theta t1) (while (< theta t2) ; // ｒ＝ａ（１－ｓｉｎθ） (setq r (* a (- 1.0 (sin theta)))) (setq x (* r (cos theta)) y (* r (sin theta))) (setq p1 (list x y)) (command p1) (setq theta (+ theta dt)) ) (command "") (princ) 只要改 r= G(theta)的那幾行，就可以畫出任何你想要的圖形 no= 100 到 30 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.104.48.208
→
09/27 08:50, , 1F
sorry, no= 100 到 300 為適當，a= ? 調整大小
09/27 08:50, 1F
→
09/27 08:51, , 2F
此為 迪卡爾發現的 心臟線
09/27 08:51, 2F
推
11/28 22:35, , 3F
好可怕，看到這個發文日期，十年前s大已經寫成這樣
11/28 22:35, 3F
→
11/28 22:36, , 4F
我現在才剛會載入.lsp哈
11/28 22:36, 4F
‣ 更多 sjgau 的文章
文章代碼(AID): #13D_jvO5 (Cad_Cae)
Cad_Cae 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 sjgau 的文章
文章代碼(AID): #13D_jvO5 (Cad_Cae)