[求助]：剪切的时候怎样实现关闭和打开捕捉 ?

su69 · 发表于 2006-3-23 16:21:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

问大家一个问题,我把trim 和f 简化了, 我的问题是:

怎样实现在输入f 前关闭捕捉, 在剪切完成之后在恢复原先的捕捉 ?

因为有捕捉的时候输入f 很不方便,

(defun c:tf() (setq ss1 (ssget)) (command "trim" ss1 "" "f"))

xyp1964 · 发表于 2006-3-23 17:58:06

(defun c:tf ()
  (setq ss1 (ssget))
  (setvar"osmode"0)
  (command "trim" ss1 "" "f")
)

su69 · 发表于 2006-3-24 09:24:56

谢谢斑竹, 可是还有个问题, 就是在剪切完成之后, 还要把捕捉恢复到
原来的设置,该怎么做 ? 我是这么认为的, 但是好象不行

(defun c:tf ()
(setq ss1 (ssget))
(setvar"osmode"0)
(command "trim" ss1 "" "f")
(setvar"osmode"1)
)

Underway · 发表于 2006-3-24 10:09:09

(defun c:tf ()
(setq ss1 (ssget))
(setvar"osmode"0)
(command "trim" ss1 "" "f")
;; add this line
(while (= (logand (getvar "CmdActive") 1) 1) (command pause)) (setvar"osmode"1)
)

whfdchst · 发表于 2006-3-24 18:42:16

这样比较好
(defun c:tf()
(setq os (getvar "osmode"))
.......
(setvar "osmode" 0)
(command "trim" ss1 "" "f")
........
(setvar "osmode" os)
(princ)

ljpnb · 发表于 2006-3-24 19:02:35

最初由 Underway 发布
[B](defun c:tf ()
(setq ss1 (ssget))
(setvar"osmode"0)
(command "trim" ss1 "" "f")
;; add this line
(while (= (logand (getvar "CmdActive") 1) 1) (command pause)) (setvar"osmode"1)
) [/B]

while这句用得好，向你学习。。。

doubao · 发表于 2006-3-24 20:48:49

嗯，从4 楼的程序学会了CmdActive 变量和 command 的巧妙用法。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：剪切的时候怎样实现关闭和打开捕捉 ?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子