主题: 画五环
查看单个帖子
旧 2009-04-27, 11:18 AM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 画五环

画五环
www.dimcax.com
画五环
图片:

画五环的原程序.见下:
.(defun c:eywh ()
(setq d (getreal "内环直径:") d1 (getreal "外环直径:"))
(setq p1 (getpoint "第一环的位置:") p2 (polar p1 0 (* d 1.2)) p3 (polar p2 0 (* d 1.2)))
(setq p4 (polar p1 (* pi 1.75) (* d 0.8)) p5 (polar p4 0 (* d 1.2)))
(command "donut" d d1 p2 "")
(setq en (ssget "l"))
(command "copy" en ""p2 p1)
(setq en1 (ssget "l"))
(command "change" en1 """p" "c" "3" "")
(command "copy" en ""p2 p3)
(setq en2 (ssget "l"))
(command "change" en2 """p" "c" "4" "")
(command "copy" en1 ""p1 p4)
(setq en3 (ssget "l"))
(command "change" en3 """p" "c" "1" "")
(command "copy" en3 ""p4 p5)
(setq en4 (ssget "l"))
(command "change" en4 """p" "c" "2" "")
)
gbg

这位大哥还能分解一下吗??现在我从照片看,此图中五环的位置好像是不太好,红色和黄色不对称,是不是哪里出现问题了??
我也正在考虑,但是我不知道怎么出来的阿阿!!

我到现在都无看到真五环,我只是用list的编程方法画五环,颜色是"c" 后的数字可改变,1是红 2是黄 3是绿 4是青 5是兰 6是品红 7是白 程序你看得到你改一下。
gbg

老顾,高人啦,能不能交个朋友啊,我cad是自学的,只知道一些皮毛,以后还希望你能多指教.

sheng_tou 你有问题我们可讨论,我的邮箱771310007
gbg

我想用cad2007模拟一个机构的速度特性,能行吗?

什么东东,下下看我想用cad2007模拟一个机构的速度特性,能行吗?看
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)