作者juihua (漱石)
看板Cad_Cae
標題Re: [問題] 請問要怎麼畫出愛心的圖案?
時間Thu Nov 3 09:18:13 2005
※ 引述《sjgau (sjgau)》之銘言：
: http://myblog.pchome.com.tw/_/myblog/?blog_id=sjgau&y=2005&m=09&an=11726&acn=3247
: (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)
:
那麼請問該如何呼叫出 AutoCAD自動畫函數圖形的程式?
3D圖案是否也是用函數建立會比較好看呢?
謝謝指教!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.164.1.3
1F：推 sjgau:case by case, 屬於上帝的歸上帝，屬於魔鬼的歸魔鬼 11/03 10:03
2F：→ sjgau:(load "test.lsp") 11/03 10:04