[求助]：剪切时的默认边界模式

chen10jing

如何程序实现正常情况下边界模式edgemode值为1，而执行剪切命令时的默认边界模式为edgemode值为0，剪切命令执行完成后边界模式恢复至edgemode值为1。

carrot1983

最初由 chen10jing 发布
[B]如何程序实现正常情况下边界模式edgemode值为1，而执行剪切命令时的默认边界模式为edgemode值为0，剪切命令执行完成后边界模式恢复至edgemode值为1。 [/B]

2. 
   
3. (defun c:tt ()
   
4.   (setq edgemode (getvar "edgemode"))
   
5.   (vl-catch-all-error-p
   
6.     (vl-catch-all-apply
   
7.       '(lambda ()
   
8.          (setvar "edgemode" 1)
   
9.          ;;...调用剪切命令
   
10.          (while        (/= (getvar "CMDACTIVE") 0)
    
11.            (command "")
    
12.          )
    
13.        )
    
14.     )
    
15.   )
    
16.   (setvar "edgemode" edgemode)
    
17.   (princ)
    
18. )
    

<br /> (defun c:tt ()<br />   (setq edgemode (getvar "edgemode"))<br />   (vl-catch-all-error-p<br />     (vl-catch-all-apply<br />       '(lambda ()<br />          (setvar "edgemode" 1)<br />          ;;...调用剪切命令<br />          (while        (/= (getvar "CMDACTIVE") 0)<br />            (command "")<br />          )<br />        )<br />     )<br />   )<br />   (setvar "edgemode" edgemode)<br />   (princ)<br /> )<br />

chenyizhen28

学习中，这个太少用了。直接安一次右键就得了。