找到一个旋转复制的函数，有没有办法让它能多次复制？

xstlf · 发表于 2004-12-20 15:48:00

(defun c:rc ()
(setvar "cmdecho" 0)
(setq ss (ssget))
(setq p1 (getpoint "\n请选择基准点:"))
(setvar "osmode" 0)
(command "copy" ss "" p1 "@")
(command "rotate" "P" "" p1)
(setvar "cmdecho" 1)
(princ)
) 应该采用哪种思考方法能让它多次复制再旋转起来呀？

BDYCAD · 发表于 2004-12-20 16:02:00

我先这样做一个, 先运行你的RC 完成再运看下面的RCD 仿造你的. 但不太好. 我覺的好象用處不大. 不知道樓主的用意呢. (defun c:rcD ()
(setvar "cmdecho" 0)
(setq ss (ssget "P"))
(setq p1 (getvar "LASTPOINT"))
(setvar "osmode" 0)
(command "copy" ss "" p1 "@")
(command "rotate" "P" "" p1)
(setvar "cmdecho" 1)
(princ))

xstlf · 发表于 2004-12-20 16:48:00

呵呵，你的也是只能旋转一次的，但把我的那个加上你的那个，然后再循环就行了。有点眉目。呵呵。

BDYCAD · 发表于 2004-12-20 16:50:00

用while循環好點.

xstlf · 发表于 2004-12-20 17:04:00

不行呀，用while老是出错。可能主要是一些点没解决好。我再去想想，实在不行的话再请教你，呵呵，谢谢了。

pwf · 发表于 2004-12-29 10:39:00

哈哈，这个程序可能是我写的，我也没有想出好的办法，如果大家想出来了，也共享一下

wltools · 发表于 2005-1-7 12:59:00

功能可以实现，但只能用esc结束。 (defun c:rc ()
(setvar "cmdecho" 0)
(setq ss (ssget))
(setq p1 (getpoint "\n请选择基准点:"))
(setq lastobj (entlast))
(command "copy" ss "" p1 "@")
(setq ss1 (ssadd))
(while (setq lastobj (entnext lastobj))(setq ss1 (ssadd lastobj ss1)))
(command "rotate" ss1 "" p1 pause)
(while (= 0 0)
(setq lastobj (entlast))
(command "copy" ss "" "none" p1 "none" p1)
(setq ss1 (ssadd))
(while (setq lastobj (entnext lastobj))(setq ss1 (ssadd lastobj ss1)))
(command "rotate" ss1 "" "none" p1 pause)
)
(princ)
)

gtxj8193 · 发表于 2005-1-9 16:42:00

可不可以用一下"COPY"里的"M"

多次复制功能呢?

账号		自动登录	找回密码
密码			注册

找到一个旋转复制的函数，有没有办法让它能多次复制？

回复：（xstlf）找到一个旋转复制的函数，有没有办法让...