作者sjgau (sjgau)
看板Cad_Cae
標題Re: [問題] 請問這圖該如何繪製
時間Fri Jun 24 16:52:58 2011
(defun c:add2( / x y z)
(setq x (getreal "\n x= ")
y (getreal "\n y= ")
z (/ (+ x y) 2.0))
(princ (strcat "\n z= " (rtos z 2 2) "\n"))
(princ)
); end of c:add2()
和原po 討論過，R50是隨便想的，
也無法要求邊邊的 R= ?
所以，如果加上一個條件，
三個 R 要相等，等於多少，不知道？
寫了上面的 AutoLISP 程式，
方便做 加起來，除以二的 動作。
50, --> 60.65
兩個相加，除以二 --> 55.33
55.33, --> 54.35
54.84, --> 54.91
54.88, --> 54.87
OK
try and error, 四次 OK,
大家以為 如何？
※ 引述《DaDaHelpme (華陽初上)》之銘言：
: http://imageshack.us/photo/my-images/706/41177391.png/
: 這張手繪圖，我想把他繪成cad檔 (我爸畫的)
: http://imageshack.us/photo/my-images/231/10909712.png/
: 這張是目前進度狀況
: 問題:
: 卡在那50R的弧，不知該怎下手，似乎用真正的50R去繪製會不太合比例?
: 假設50R比例不正確，可以不管，就分成五等分按照原圖繪出也沒關係
: 所以想請教各位該如何去繪製出這五個弧?謝謝
--
e-mail:
[email protected]
我的課程介紹網頁：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台灣地區菁英講師獲選
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 42.73.108.45
1F：→ johnhmj:…直接畫比較快吧？！ (￣□￣|||)a 06/25 23:44
2F：→ sjgau:你先畫畫看，畫出來之後，說說 你的方法 06/26 07:12
3F：→ sjgau:54.87, --> 54.88 06/26 09:33
4F：→ johnhmj:我是不使用AutoLISP的…用計算機先算數值結果再繪出。 06/26 14:24