我这个lsp哪里不对啊?请指教

denvercool

我的目的是编一个copy的程序,当输入命令c以后,对象捕捉关闭.当我复制完了以后,对象捕捉再全部打开.但是我的这个程序运行的时候,在复制之前,对象捕捉功能就全部打开了,我不知道问题在哪里,请高手指教

(defun C:c ()
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "copy")
(setvar "osmode" 15359)
(setvar "cmdecho" 1)
(princ))

Andyhon

(command "copy")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))   ; add this line

LIL5E

Andyhon 发表于 2012-12-3 21:38
(command "copy")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))   ; add this line

可以解释下添加这句啥意思吗~顺便告诉下小弟怎么查询全局变量

denvercool

Andyhon 发表于 2012-12-3 21:38
(command "copy")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))   ; add this line

可以了,谢谢,能不能解释下原理?

denvercool

(defun C:c ()
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "copy")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))
(setvar "osmode" 15359)
(setvar "cmdecho" 1)
(princ))

经过楼上提醒以后,加了一句话,确实能用了,但是还有一个问题,就是copy的时候只能一个一个选,不能框选,有没有办法解决啊?