(if (setq EntNam (car (entsel "\n请选择块:" "" '((0 . "INSERT"))))) 你倒是厉害,把entsel 和 ssget 合并了 rename是哪里的函数 我在程序中设了 (setvar "cmdecho" 0) (setvar "osmode" 0) 先储存系统变量值,然后恢复,如: (defun c:test (/ a) (setq a (getvar "osmode" 0)) (command "_.line" "0,0" "100,0" "") (setvar "osmode" a) ) |