如何让ODCL里的按钮执行过命令后 再按空格继续执行按钮的命令？

范建威

2. <div class="blockcode"><blockquote>(defun c:CASSPZ()
   
3. (setq opobj (vla-get-Preferences (vlax-get-acad-object)))
   
4. (vla-put-CursorSize (vla-get-Display opobj) 35)             ;;;十字光标显示
   
5. (vla-put-DockedVisibleLines (vla-get-Display opobj) 3)      ;;;命令行行数
   
6. (vla-put-AutoSaveInterval (vla-get-opensave opobj) 10)     ;;;自动保存时间
   
7. (vla-put-ShortCutMenuDisplay (vla-get-user opobj) 0)      ;;;快捷菜单配置
   
8. (vla-put-PickBoxSize (vla-get-selection opobj) 7)           ;;;拾取框大小
   
9. (vla-put-AutoSnapApertureSize (vla-get-drafting opobj) 10) ;;;靶框大小
   
10. (vla-put-CreateBackup (vla-get-opensave opobj) 0)         ;;;保存创建备份关闭
    
11. )

<div class="blockcode"><blockquote>(defun c:CASSPZ()<br /> (setq opobj (vla-get-Preferences (vlax-get-acad-object)))<br /> (vla-put-CursorSize (vla-get-Display opobj) 35)             ;;;十字光标显示<br /> (vla-put-DockedVisibleLines (vla-get-Display opobj) 3)      ;;;命令行行数<br /> (vla-put-AutoSaveInterval (vla-get-opensave opobj) 10)     ;;;自动保存时间<br /> (vla-put-ShortCutMenuDisplay (vla-get-user opobj) 0)      ;;;快捷菜单配置<br /> (vla-put-PickBoxSize (vla-get-selection opobj) 7)           ;;;拾取框大小<br /> (vla-put-AutoSnapApertureSize (vla-get-drafting opobj) 10) ;;;靶框大小<br /> (vla-put-CreateBackup (vla-get-opensave opobj) 0)         ;;;保存创建备份关闭<br /> )

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

newer

就前两天的帖子说这个了，你去找找，应该就在首页。