[求助]：问一个objectdcl的问题?

yjrun

在我设计的对话框中我有2个控件,1个确定键执行关闭对话框.另外一个键要求先关闭对话框,后选择对象,最后恢复对话框.

这时如果点确定键就没有反映,点X强行关闭就提示出错.不知道是什么地方出了问题.

打开和关闭对话框我都使用的是下面的函数:

(Odcl_Form_Show "zhongxian" "DclForm1")
   (Odcl_Form_Close "zhongxian" "DclForm1")

我写得2个控件的代码:

;;;;;;;;; "选取中线" 键的函数代码
(defun c:DclForm1_GraphicButton1_onClicked (/ ss loop vla_line ed)

  (Odcl_Form_Close "zhongxian" "DclForm1") ;关闭对话框来进行选择
  (setq loop t)
  (while loop
    (setq ss (entsel)   ;获得中线对象
   ss (car ss)   ;ss为图元名
    )
    (setq ed (entget (setq e ss))) ;ed为对象信息
    (if (/= (cdr (assoc 0 ed)) "LWPOLYLINE") ;判断中线是否是pline
      (progn
(prompt "\n")

(Odcl_MessageBox "Entity selected is not a pline,retry")

(setq loop t)
      )
      (setq loop nil)
    )
  )     ;end while

(Odcl_Form_show zhongxian_DclForm1) ;显示对话框
  

)

;;;;;;;;; "确定" 键的函数代码
(defun c:DclForm1_TextButton2_onClicked ()
  (Odcl_Form_Close "zhongxian" "DclForm1")      )