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

13826031454

(defun c:test_Form1_LSP8_OnClicked (/);;;CASS配置
(vla-Sendcommand (vla-get-activedocument (vlax-get-acad-object)) "casspz ")
)

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