[求助]：求从图中点取算式进行计算的程序！

nt8011

我用的cad2004，需要功能：点取图中的简单四则算式（不是在命令行输入）进行计算，并将结果标注在图中。采用命令"cal"可以处理吗？
恳请哪位大侠给段这样功能的程序，非常感谢！！！

zml84

请不要乱开新帖。
http://p4.xdcad.net/forum/showthread.php?s=&threadid=658798

nt8011

斑竹不要误解，你链接的szys(数字运算).的功能是：选择一个运算符计算两个数字。
  而且是vlx程序，也参考不了。
  我所需要的是一段代码：点取图中的简单四则算式（如：3+5*5）进行计算，并将结果标注在图中。
  我已搜索了晓东及其它论坛并参考其它程序，都没找到。
请哪位大侠帮忙！！！
  自己搞了一段，不成功：cal后变量的值必须是点、实数或整数，不能是图中点取的算式。
;;;====================================
;;;功能：text文本表示的数字计算
(defun C:calj ()
       (if (or (= cst nil)(= cst 0))
       (setq cst 300))   
    ;;获取计算公式
    (SETQ *str (SSGET))   
    ;;计算  
    (setq *NUM (cal *str))
    (setq *rkk (rtos *NUM 2 2))
    (SETQ PO (getpoint "\n请输入标注点位置: "))   
    (COMMAND "TEXT" PO cst 0 *rkk)   
    (PRINC)
)

eachy

_$ (c:cal "3+3*5")
; 错误: no function definition: C:CAL
_$
_$ (c:cal "3+3*5")
18

先运行 cal 命令后就可以使用 c:cal 扩展函数

nt8011

我加了以下代码也没用，查资料说CAL 函数可以为算式及变量，但变量的值必须是点、实数或整数，不能是图中点取的算式。

我是个菜鸟，请斑竹给段程序吧，谢谢！！！
;;;加载对 C:CAL 函数的支持
(if (or (= (type c:cal) 'list)  ;R14使用
(= (type c:cal) 'SUBR)  ;R2000+使用
(= (type c:cal) NIL)  ;R2004使用
    )
    (arxload "geomcal.arx")
)

(vl-load-com)

雄啸

(setq a 3.66)
(if (not c:cal)(arxload "geomcal.arx"))
(c:cal (strcat (vl-princ-to-string a) "*4"))

nt8011

关键是cal的函数为计算式及变量（如：(cal "3+5*2+a"），但变量的值必须是点、实数或整数，
不能为算式（如：不能从图中点取算式如1+1赋予变量a或赋予变量str：(cal str）），
至于cal 命令采用先运行一遍或加载后，都可解决。
我查了不少资料，似乎需采用“先分解成数字和运算符，再运算”的办法，在网上没能找到办法。
看似简单的功能，却很烦恼.。。。

zml84

最初由 nt8011 发布
[B]我查了一些资料，似乎需采用“先分解成各数字和运算符，再运算”的办法，在网上没能找到办法。
看似简单的功能，却不容易啊.。。。... [/B]

http://zml84.blog.sohu.com/84037890.html

http://zml84.blog.sohu.com/86710762.html
[php]
;;;=====================================================================
;;  (princ (JS "1+4+5*2+(5+5)/2+[(6+6)/2+(5+5)/2]"))
;;测试：
(defun C:TT (/ STR)
    (while (/= (setq STR (getstring "\n请输入算术表达式: "))
               ""
           )
        (princ (JS STR))
    )
    (princ)
)
[/php]

zml84

示例：

eachy

你可以好好看看help中cal命令

nt8011

zml84斑竹：
你的“数学表达式计算.lsp”程序，还是得从命令行输入算术表达式，不能从图形中点取。
不知我测试得对不对？
斑竹的程序中(JS "1+4+5*2+(5+5)/2+[(6+6)/2+(5+5)/2]")，用cal命令(cal "1+4+5*2+(5+5)/2+[(6+6)/2+(5+5)/2]")也可以的。
另：我原来说的cal函数“不能是变量”表达有误，应指“变量不能是从图中点取的算式如3+5*2”，变量只能是点、实数、整数。

kmdz

已经够清楚了，你如果不想从命令行输表达式，你自己再定义一个函数放入你想要的表达式，然后调用他的程序计算就行了。

nt8011

这样定义可以吗？提示“变量的值必须是点、实数或整数”
;;获取计算公式
(SETQ *str (SSGET))
;;计算
(setq *NUM (cal *str))
其中变量*str 不能提取图中点取的算式。
cad帮助中规定cal“可在算术表达式中使用 AutoLISP 变量。变量必须是下列类型之一：实数、整数、二维或三维点（矢量）”。

雄啸

还是不明白你要干什么，不如把你操作的步骤说一下。

eachy

2. (defun c:tt (/ ss ssl i e str el nstr)
   
3.   (if (not (member "GEOMCAL.ARX" (MAPCAR 'strcase (arx))))
   
4.     (arxload "geomcal.arx")
   
5.   )
   
6.   (if (setq ss (ssget '((0 . "text"))))
   
7.     (progn
   
8.       (setq ssl        (sslength ss)
   
9.             i        -1
   
10.       )
    
11.       (repeat ssl
    
12.         (setq el   (entget (ssname ss (setq i (1+ i))))
    
13.               str  (cdr (assoc 1 el))
    
14.               nstr (rtos (c:cal str) 2 2)
    
15.         )
    
16.         (entmod
    
17.           (subst (cons 1 (strcat str " = " nstr)) (assoc 1 el) el)
    
18.         )
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )

(defun c:tt (/ ss ssl i e str el nstr)<br />   (if (not (member "GEOMCAL.ARX" (MAPCAR 'strcase (arx))))<br />     (arxload "geomcal.arx")<br />   )<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq ssl        (sslength ss)<br />             i        -1<br />       )<br />       (repeat ssl<br />         (setq el   (entget (ssname ss (setq i (1+ i))))<br />               str  (cdr (assoc 1 el))<br />               nstr (rtos (c:cal str) 2 2)<br />         )<br />         (entmod<br />           (subst (cons 1 (strcat str " = " nstr)) (assoc 1 el) el)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )