社区 › AutoLISP/Visual LISP 编程技术 › 求教！使用lisp重定义复制命令无法连续执行怎么搞

kozmosovia 发表于 2025-5-5 23:26:13

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

xiaocainiao 发表于 2025-5-6 07:53:41

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

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

guosheyang 发表于 2025-5-6 08:40:08

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

xiaocainiao 发表于 2025-5-6 09:21:39

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

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

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

197761308 发表于 2025-5-7 15:32:37

已学习，处处皆学问

查看完整版本: 求教！使用lisp重定义复制命令无法连续执行怎么搞