求教！使用lisp重定义复制命令无法连续执行怎么搞

kozmosovia

copy多次复制好像有copymode的系统变量控制。

xiaocainiao

kozmosovia 发表于 2025-5-5 23:26
copy多次复制好像有copymode的系统变量控制。

搞不懂了、重定义的命令和直接执行copy的命令提示都不一样、直接执行会提示当前的复制模式、是单个还是多个、重定义的不提示、而且重定义的命令是执行一次后强制中断的、不是正常结束

guosheyang

不用ssget的话这样好像可以试下呗
; 连续复制
(defun c:ccc()
(setvar "copymode" 0)
(initcommandversion)
(command "COPY" )
)

xiaocainiao

kozmosovia 发表于 2025-5-5 23:26
copy多次复制好像有copymode的系统变量控制。

2. (defun c:CCC ()
   
3.         (vl-load-com)
   
4.         (vla-sendcommand
   
5.                 (vla-get-ActiveDocument (vlax-get-acad-object))
   
6.                 "COPY "
   
7.         )
   
8.         (princ)
   
9. )

(defun c:CCC ()<br />         (vl-load-com)<br />         (vla-sendcommand<br />                 (vla-get-ActiveDocument (vlax-get-acad-object))<br />                 "COPY "<br />         )<br />         (princ)<br /> )

搞定了、用这种方式就可以了