peterlange 发表于 2012-8-13 20:21:34

CAD 在位克隆求完善

(defun c:c1()
(setq k (getint "输入复制次数："))
(if (null k) (setq k 1))
(setq ss (ssget))
(repeat k
   (command "copy" ss "" "d" "")
   (prin1)
)
)
以上插件有一个问题，如果前面有操作COPY "" D "100，0，0"操作，再调用C1 命令，克隆的对象都会偏移在X方向位移100, 请高手帮忙完善。谢谢！

xyh 发表于 2012-8-14 14:58:32

主要是位移变量保存着。
(defun c:c11()
(setq k (getint "输入复制次数："))
(if (null k) (setq k 1))
(setq ss (ssget))
(repeat k
;   (command "copy" ss "" "d" "")
   (command "copy" ss "" "0,0,0" "")
   (prin1)
)
)
将(command "copy" ss "" "d" "")
修改为(command "copy" ss "" "d" "0,0,0")
也可以

longer1000 发表于 2012-8-14 17:47:36

好像不行啊

peterlange 发表于 2012-8-14 21:06:44

xyh 发表于 2012-8-14 14:58 static/image/common/back.gif
主要是位移变量保存着。
(defun c:c11()
(setq k (getint "输入复制次数："))


可以奇怪了 我也这么写过啊
页: [1]
查看完整版本: CAD 在位克隆求完善