CAD 在位克隆求完善

peterlange

(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

主要是位移变量保存着。
(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

好像不行啊

peterlange

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

可以奇怪了 我也这么写过啊