Re: [問題] 請問這圖該如何繪製

[sjgau (sjgau)]

(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: [e-mail]

我的課程介紹網頁：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18

AutoCAD 台灣地區菁英講師獲選

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 42.73.108.45
→ johnhmj:…直接畫比較快吧？！  (￣□￣|||)a
→ sjgau:你先畫畫看，畫出來之後，說說 你的方法
→ sjgau:54.87, --> 54.88
→ johnhmj:我是不使用AutoLISP的…用計算機先算數值結果再繪出。