如何让ODCL里的按钮执行过命令后 再按空格继续执行按钮的命令？
(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) ;;;保存创建备份关闭
)
页:
[1]