画PL线时双击进行撤销（U）

永不言弃

画PL线时双击进行撤销（U），U输入到命令那儿不会执行，要怎么处理？谢谢

(vl-load-reactors)
(if (not mouse_reactor)
  (setq        mouse_reactor
         (vlr-mouse-reactor
           nil
           '((:vlr-beginDoubleClick . testtt))
         )
  )
)

(defun testtt (a b)
  (print "U")
)

edata

双击也会画一根线，所以应该回退两步，

1. (defun testtt (a b)
   
2.   ;(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "u ");回退一步,
   
3.   (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "u u ");回退两步,
   
4. )

(defun testtt (a b)<br />   ;(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "u ");回退一步,<br />   (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "u u ");回退两步,<br /> )

edata

1. (vl-load-reactors)
   
2. (if (not mouse_reactor)
   
3.   (progn
   
4.   (setq        mouse_reactor
   
5.          (vlr-mouse-reactor
   
6.            nil
   
7.            '((:vlr-beginDoubleClick . testtt))
   
8.          )
   
9.   )
   
10.   (vlr-remove mouse_reactor)
    
11.   )
    
12. )
    
13. (if (not pl_reactor)
    
14.   (setq        pl_reactor
    
15.          (vlr-command-reactor
    
16.            nil
    
17.            '((:vlr-commandWillStart . pl_testtt)
    
18.              (:vlr-commandEnded . pl_end)
    
19.              (:vlr-commandCancelled . pl_end)
    
20.              (:vlr-commandFailed . pl_end)
    
21.              )
    
22.          )
    
23.   )
    
24. )
    
25. (defun pl_testtt(a b)
    
26.   (if(and(= (car b) "PLINE")(not(vlr-added-p mouse_reactor))) (vlr-add mouse_reactor))
    
27.   )
    
28. (defun pl_end(a b)
    
29.   (vlr-remove mouse_reactor)
    
30. 
    
31.   )
    
32. (defun testtt (a b)
    
33.   ;(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "u ")
    
34.   (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "u u ")
    
35. )

(vl-load-reactors)<br /> (if (not mouse_reactor)<br />   (progn<br />   (setq        mouse_reactor<br />          (vlr-mouse-reactor<br />            nil<br />            '((:vlr-beginDoubleClick . testtt))<br />          )<br />   )<br />   (vlr-remove mouse_reactor)<br />   )<br /> )<br /> (if (not pl_reactor)<br />   (setq        pl_reactor<br />          (vlr-command-reactor<br />            nil<br />            '((:vlr-commandWillStart . pl_testtt)<br />              (:vlr-commandEnded . pl_end)<br />              (:vlr-commandCancelled . pl_end)<br />              (:vlr-commandFailed . pl_end)<br />              )<br />          )<br />   )<br /> )<br /> (defun pl_testtt(a b)<br />   (if(and(= (car b) "PLINE")(not(vlr-added-p mouse_reactor))) (vlr-add mouse_reactor))<br />   )<br /> (defun pl_end(a b)<br />   (vlr-remove mouse_reactor)<br /> <br />   )<br /> (defun testtt (a b)<br />   ;(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "u ")<br />   (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "u u ")<br /> )

永不言弃

非常感谢edata