申明：内容来自用户上传，著作权归原作者所有，如涉及侵权问题，请点击此处联系，我们将及时处理！
0人已收藏
0人已打赏
免费0人已点赞
分享
阅读下一篇
杭州地铁事故，王梦恕院士的表现让人困惑在杭州地铁事故中，王院士的言论语出惊人，试举例如下：1.在2008年11月17日新闻1+1栏目中，白岩松、董倩电话采访王院士，王梦恕（中国工程院院士、北京交通大学教授）：这次事故原因大家意见很大。 第一个原因，整个方法，施工过程中，包括设计过程中，没有考虑到周边环境的影响，该拆迁的，该转移的东西没有转移，像高速公路就在基坑的表面上行走，造成了整个基坑垮失掉。。。。。。2.2008年11月19日
回帖成功
经验值 +10
全部回复（3 ）
只看楼主 我来说两句-
tongmingniao
沙发
a b c r四个参数都要用到，以下为自定义命令，只画出其中的三条红线。窗口不要太小，否则图形可能只有一条线或两条线。
2009-03-11 03:45:11
赞同0
-
wanggy
板凳
好象只有a.b.c用到,r用不到的吧??????
2008-11-22 22:05:22
赞同0
加载更多(defun C:ABCR()
(command "color" 1)
(setq basepnt (getpoint "\n指定基点：\n"))
(setq r (getreal "\n输入r："))
(setq a (getreal "\n输入a："))
(setq b (getreal "\n输入b："))
(setq c (getreal "\n输入c："))
(setq rr (rtos r))
(setq rrr (angtof rr))
(setq cc (rtos c))
(command "line"
(strcat (rtos (- (car basepnt) (* a (cos rrr)))) ","
(rtos (- (cadr basepnt) (* a (sin rrr)))))
(strcat "@" cc "<" (rtos (+ 270 r)))
(strcat "@" (rtos (+ a b)) "<" rr)
(strcat "@" cc "<" (rtos (+ 90 r))) ""
)
)
回复 举报
[ 本帖最后由 wanggy 于 2008-11-22 22:07 编辑 ]
回复 举报