各位：我這裡有一圖檔，是用CAD編程實現的，但兄弟我不知道如何實現，特向各位高手請教!個點在一方向上是等差變化，另一方向上不變。間距也不變(類似array命令)。哪位高手知道，請賜教!要圖檔聯繫我：qq:39458333lane-liu@163.com
各位：
我這裡有一圖檔，是用CAD編程實現的，但兄弟我不知道如何實現，特向各位高手請教!
個點在一方向上是等差變化，另一方向上不變。間距也不變(類似array命令)。
哪位高手知道，請賜教!
要圖檔聯繫我：
qq:39458333
lane-liu@163.com
2楼
不明白,请说清楚一点.
回复
3楼
我要畫X*Y=20*30(或200*300)個donut，內徑都為0，外經在x方向上不變，在y方向是等差變化的。
個中心間距不變。
曾麼實現？
謝謝。
回复
4楼
台湾人？怎么用繁体字那？
回复
5楼
台灣人領導下的大陸人!
簡體繁體不影響問題!
回复
6楼
老兄你还是说清楚一点吧？
回复
7楼
;;;我要畫X*Y=20*30(或200*300)個donut，內徑都為0，外經在x方向上不變，在y方向是等差變化的。
;;;個中心間距不。
(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 xur (car donutpo)
yur (cadr donutpo)
)
(repeat xod
(setvar "donutod" donutodini)
(repeat yod
(command "donut" "" "" (list xur yur) "")
(setvar "donutod" (+ (getvar "donutod") donutpu))
(setq yur (+ arraydist yur))
)
(setq yur (cadr donutpo)
xur (+ arraydist xur)
)
)
(princ)
)
回复
8楼
建议做如下修改,根据实际情况自行输入所需的数据.
(setq xod (getint "圆环个数x："))
(setq yod (getint "圆环个数y："))
(setq donutodini (getreal "\n输入圆环起始外径："))
(setq donutpu (getreal "\n输入圆环外径等差数值："))
(setq arraydist (getdist "\n输入圆环间距："))
(setq donutpo (getpoint "\n输入圆环起始点："))
回复
9楼
;;;我要畫X*Y=20*30(或200*300)個donut，內徑都為0，外經在x方向上不變，在y方向是等差變化的。
;;;個中心間距不。
(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)
)
回复
10楼
呵呵，高人不少阿！
回复
