解决让ODCL里的按钮执行过命令后 再按空格继续执行按钮的命令

范建威

2. (defun c:test_Form1_LSP8_OnClicked (/);;;;调用c:CASSPZ程序
   
3. (vla-Sendcommand (vla-get-activedocument (vlax-get-acad-object)) "casspz ");;;;是程序用完后，右键再次使用.
   
4. )
   
5. 
   
6. (defun c:CASSPZ()
   
7. (setq opobj (vla-get-Preferences (vlax-get-acad-object)))
   
8. )
   
9. 
   
10. 
    

(defun c:test_Form1_LSP8_OnClicked (/);;;;调用c:CASSPZ程序<br /> (vla-Sendcommand (vla-get-activedocument (vlax-get-acad-object)) "casspz ");;;;是程序用完后，右键再次使用.<br /> )<br /> <br /> (defun c:CASSPZ()<br /> (setq opobj (vla-get-Preferences (vlax-get-acad-object)))<br /> )<br /> <br /> <br />

qq564837358

收藏了，谢谢