大虾们，帮我完善程序——更新的

tukuitk

;;;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)
)


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

gzy

我的LISP很烂，始终不知道你到底要（CEN+CEN）/2怎么样？或者说你的CEN到底是什么东西，虽然你的窗体比较简单，但还是建议你把程序窗口图截下来（那样免得别人去看你的DCL而伤脑筋），然后要实现什么功能就告诉大家，那样或许大家可以帮你，

meflying

你是指输入出错时的处理吗？

tukuitk

我不知能否上传成功，请别骂我。

gzy

没有人会骂你的，你的东西好象是一个什么表达式计算器。你的意思是要处理字符串吗？到底想实现什么功能呢？

tukuitk

我始终上传不上来，好着急……

不是输入出错，不过也算是出错。我想若输入(cen+int)/2， 等等。能否把计算得来的点坐标显示在第二个框中？

tukuitk

D:\Downloads\10.13\funjs.JPG

对的，就是个表达式计算器。
我要计算任意的数学表达式和CAD中的点坐标及矢量计算！

请帮我！谢谢！！！

meflying

你想计算点坐标，可能就不能用cal了，你得自己编一个坐标计算函数了。然后在计算时判断表达式是一般计算还是点计算，然后决定用cal还是你自己编的函数了

tukuitk

这样出可实现。
但cal中计算如(cen+cen)/2之类时，可以返回点坐标。
我们能借此之便来实现吗？

meflying

cal计算怎么返回坐标？
如果都可以了，那就用它啊，还有什么问题呢？
你或许应该说明白些，那个cen是什么，怎么来的，你又遇到什么问题