高飞鸟老师你好，这里有一个你的表达式程序，你看是否能修改下

664571221

高飞鸟老师您好，这里有一个您的表达式程序，您看是否能修改下，如图图纸里面有表达式计算式了，能否在您的程序上加一点功能，输入tt，选择表达式，形成结果，如下

xyp1964

1. (defun c:tt ()
   
2.   "文本计算式计算"
   
3.   (setq vvv    (xyp-LispVer)
   
4.         fn-arx (cond ((>= vvv 2013) "geomcal.crx")
   
5.                      ((< vvv 2013) "geomcal.arx")
   
6.                )
   
7.   )
   
8.   (if (not (member fn-arx (arx)))(arxload fn-arx) )
   
9.   (setq i -1)
   
10.   (if (setq ss (ssget '((0 . "text"))))
    
11.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.       (setq tx (xyp-DXF 1 s1))
    
13.       (if (setq a (cal (xyp-CalFormat tx)))
    
14.         (xyp-SubUpd s1 1 (strcat tx "=" (vl-princ-to-string a)))
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

(defun c:tt ()<br />   "文本计算式计算"<br />   (setq vvv    (xyp-LispVer)<br />         fn-arx (cond ((>= vvv 2013) "geomcal.crx")<br />                      ((< vvv 2013) "geomcal.arx")<br />                )<br />   )<br />   (if (not (member fn-arx (arx)))(arxload fn-arx) )<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq tx (xyp-DXF 1 s1))<br />       (if (setq a (cal (xyp-CalFormat tx)))<br />         (xyp-SubUpd s1 1 (strcat tx "=" (vl-princ-to-string a)))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

ekinwp

这个很简单呀，cal函数求值，替换刷新就行了

jkop

xyp1964 发表于 2023-9-17 16:24

相当好用的文本计算，可以直接利用文本进行运算，在图面注解、表示，对我帮助很大！