lisp修改天正标高值_表达式计算修改版本，增加计算函数选择按钮[2019年1月23日更新]...

本帖最后由 wayne_myles 于 2019-1-22 11:30 编辑

这个计算器不错 我输入9999*9999直接提示表达式不正确 6666

http://bbs.mjtd.com/thread-111059-1-1.html

我们一起学习 一下

;阿甘CAD计算器 命令ad

;结果自动复制到剪贴板，支持天正文字、天正标高

(setq GL-precision 3)  ;3为计算结果保留位数 自己根据需要修改

(setq GL-text "D:/历史记录.txt" ) ;历史记录文件路径，注意路径为反斜杠“/”，可根据需要修改位置

;不出现对话框，直接计算 命令：y1=加法 y2=减法 y3=乘法 y4=除法

(defun c:y1() (GL:jiafa))

(defun c:y2() (GL:jianfa))

(defun c:y3() (GL:chengfa))

(defun c:y4() (GL:chufa))

;阿甘CAD计算器

(vl-load-com)

(command "cal")(command)     ;先调用cal，否则后面cal函数无法使用

(setq GL-result "")          ;计算结果，全局变量

(setq GL-lst (list ""))

(defun c:ad(/ file)

(if (not (setq file (open GL-text "r")))

(progn

(setq file (open GL-text "w" ))

(close file)

)

(close file)

)

(GL-xxjsq)

)

(defun GL-xxjsq (/ fname fn x dclid lin re file txt value reason)

(if (not GL-result)

(setq GL-result "")

)

(setq fname (vl-filename-mktemp nil nil ".dcl" ))

(setq fn (open fname "w" ))

(foreach x '(

"  xxjsq : dialog{"

"  label=\"阿甘CAD计算器V1.1\";"

"  :boxed_column{"

"  label=\"自动计算\";"

"  :row {"

"      :button{key=\"1\";label=\"+\";width=4;}"

"      :button{key=\"2\";label=\"-\";width=4;}"

"      :button{key=\"3\";label=\"*\";width=4;}"

"      :button{key=\"4\";label=\"/\";width=4;}"

"  }"

"  spacer_1;"

"  }"

"  :boxed_column{"

"  label=\"手动计算\";"

"  :row {"

"     :edit_box{width=35;key =\"5\";allow_accept = true;}"

"      :button{key=\"6\";label=\"计算\";width=4;}"

"  }"

"  spacer_1;"

"  :row {"

"      :button{key=\"11\";label=\"C↑\";width=4;}"

"      :button{key=\"12\";label=\"C↓\";width=4;}"

"      :button{key=\"8\";label=\"拾取\";width=4;}"

"      :button{key=\"10\";label=\"插算式\";width=4;}"

"      :button{key=\"7\"