作者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