大家看看哪错了，不显示对话框【已解决】
本帖最后由 taocitc 于 2011-10-14 17:21 编辑(defun c:KS (/ bFlag)
(setvar "osmode" 15359)
(command "OPENDCL") ; 以下命名将确保加载适合的 OpenDCL ARX 文件
(dcl_Project_Load "KSteel" T)
(dcl_Form_Show KSteel_KForm)
(setq bFlag t)
(princ)
)
(defun c:KSteel_KForm_TextButton1_OnClicked (/ pt1)
(dcl_Form_close KSteel_KForm)
(setq bFlag t)
(setq pt1 (getpoint "选取插入点:"))
;;;这个地方如果加 (dcl_Form_Show KSteel_KForm)，对话框会闪一下，然后又没了，哪错了呢？
)
(defun c:KSteel_KForm_TextButton3_OnClicked (/)
(dcl_form_close KSteel_KForm)
)
(while bFlag
(setq bFlag nil)
(dcl_Form_Show KSteel_KForm)
)
页:
[1]