正在加载...
0人已收藏
0人已打赏
0人已点赞
分享
全部回复（9 ）
主题
回复
粉丝
CAD下载及教程
52.07 万条内容 · 656 人订阅
阅读下一篇
我在我的台式机上安装了CAD2002，可是不知什么原因却在我的手提上安装不了，我的是XP系统，请问是什么原因？
遇到了一点小问题
内容不能包含下列词语
回帖成功
经验值 +10
全部回复（9 ）
只看楼主 我来说两句-
yunguiming
沙发
呵呵，高人不少阿！
2004-02-06 20:18:06
赞同0
-
波
板凳
;;;我要畫X*Y=20*30(或200*300)個donut，內徑都為0，外經在x方向上不變，在y方向是等差變化的。
-
1f0b104574a25ea246bb.zip
文件大小 737 KB
2004-01-31 13:47:31
赞同0
加载更多回复 举报
;;;個中心間距不。
(defun c:od ()
(setvar "cmdecho" 0)
(setvar "donutid" 0)
(setq xod 20 ;(getint "圆环个数x：")
yod 30 ;(getint "圆环个数y：")
donutodini 1 ;(getreal "\n输入圆环起始外径：")
donutpu 0.1 ;(getreal "\n输入圆环外径等差数值：")
arraydist 10 ;(getdist "\n输入圆环间距：")
donutpo (getpoint "\n输入圆环起始点：")
)
(setq sadd nil)
(setq xur (car donutpo)
yur (cadr donutpo)
)
(setq sadd (ssadd))
(setvar "donutod" donutodini)
(repeat yod
(command "donut" "" "" (list xur yur) "")
(ssadd (entlast) sadd)
(setvar "donutod" (+ (getvar "donutod") donutpu))
(setq yur (+ arraydist yur))
)
(command "-array" sadd "" "r" "1" xod arraydist)
(princ)
)
回复 举报