禁止命令执行的代码

Lisphk

1. (vl-load-com) ;_vla支持
   
2. (setq app (vlax-get-acad-object)
   
3.       doc (vla-get-ActiveDocument app)
   
4. )
   
5. 
   
6. ;;回调函数
   
7. (defun abc (a b)
   
8.   (princ (nth 4 b)) ;_即将执行的命令名
   
9.   (vla-sendcommand doc (chr 3))
   
10. )
    
11. ;;反应器
    
12. (setq vlrobj (vlr-docmanager-reactor
    
13.                nil
    
14.                '((:VLR-documentLockModeWillChange . abc))
    
15.              )
    
16. )
    

(vl-load-com) ;_vla支持<br /> (setq app (vlax-get-acad-object)<br />       doc (vla-get-ActiveDocument app)<br /> )<br /> <br /> ;;回调函数<br /> (defun abc (a b)<br />   (princ (nth 4 b)) ;_即将执行的命令名<br />   (vla-sendcommand doc (chr 3))<br /> )<br /> ;;反应器<br /> (setq vlrobj (vlr-docmanager-reactor<br />                nil<br />                '((:VLR-documentLockModeWillChange . abc))<br />              )<br /> )<br />

qqqincccken

谢谢提供,试试看好不好用

kqqt6236

谢谢分享。