[求助]：[求助]：[求助]：[求助]：怎么将CAD2000的COPY命令改为连续复制?

ilymyx

怎么将CAD2000的COPY命令改为连续复制?谢谢!

查尔斯

在指定基点之前，键入“M”并回车，就可以实现了。
试试吧！

qjcpj

2. 
   
3. (defun c:test (/ ent)
   
4.   (setq os (getvar "osmode"))
   
5.   (setvar "osmode" 33)
   
6.   (setq ent (ssget))
   
7.   (command "copy" ent "" "m")
   
8.   (setvar "osmode" os)
   
9. )

<br /> (defun c:test (/ ent)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 33)<br />   (setq ent (ssget))<br />   (command "copy" ent "" "m")<br />   (setvar "osmode" os)<br /> )

jarchy

用记事本打开support下的acad2000.lsp，把下面的代码拷贝到末尾里保存就好了

(DEFUN C:CC(/ ent) (setq ent (ssget)) (COMMAND "COPY" ent "" "m")(princ))

调用多重复制命令为CC

ilymyx

OK了!谢谢了!