大虾们，帮我完善程序——

tukuitk

该程序用funjs运行。
表达式若是(cen+cen)/2时，怎样解决？？？？？

tukuitk

啊，我上传文件没成功！
怎么上传的呀？

meflying

浏览文件后，点击上传，成功后再发表

tukuitk

谢谢meflying大哥。

tukuitk

怎么还是没有呢？

tukuitk

算了，我把内容COPY下来了：

;;;DCL文件
dcl_settings : default_dcl_settings { audit_level = 0; }

kr_cal : dialog{
label="表达式计算器 v1.0               *奎容CAD*   tukuitk制作";
      :column{
          :edit_box{label="请输入表达式:";  key="biaodashi"; edit_width=50;  fixed_width=true;}
          spacer;
          :edit_box{label="计 算 结 果 为:";  key="jieguo"; edit_width=50;  fixed_width=true;}
            }
      spacer;
      :column{
      : row{
      fixed_width = true;
      alignment = centered;
      :button{ label=/*MSG*/"  计算  "; key = "accept" ;is_default = true;}
      :spacer{ width = 5; }
      :button{ label=/*MSG*/"  取消  "; key= "cancel";}
          }
       }      
    }


;;;LSP文件
(defun c:funjs ( / dcl_id dd bds jg)
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (arxload "geomcal" nil)
  (setq dcl_id (load_dialog "js.dcl"))
  (if (not (new_dialog "kr_cal" dcl_id))
    (exit)
  )
  (action_tile
    "accept"
    "(strcat
    (setq jg (rtos (c:cal bds)))
    (set_tile \"jieguo\" jg)
    )"
  )
  (action_tile "cancel" "(done_dialog 0)")
  (action_tile
    "biaodashi"
    "(setq bds (get_tile \"biaodashi\"))"
  )
  (setq dd (start_dialog))
  (unload_dialog dcl_id)
  (princ)
)