文本字段Lisp？？
你好附件是我正在做的事情的图片。我忙于检查一些用户的剖面图。
基本上，我想知道是否有人已经提出了类似的想法。
在图片中，有3个红色圆圈，标记为1是文本对象
标签2是一个文本对象，其文本字段链接到尺寸75.37，该尺寸位于标签3的左侧，格式类似于0+075.37
标签3也是一个维度
如果可能的话，我希望能够通过选择Nr 2和3来替换Nr 1中的文本，并插入一个添加2和3值的公式的文本字段。
如果有人能提供帮助或有任何想法或更好的解决方案，那就太好了。
谢谢
这里有一个文本1-text2 write aswer to text 3，根据需要更改
(defun C:T1t2 ()
(setq text1 (entget (car (entsel "\nSelect text 1 "))))
(setq anst1 (atof (cdr (assoc 1 text1))))
(setq text2 (entget (car (entsel "\nSelect text 2 "))))
(setq anst2 (atof(cdr (assoc 1 text2))))
(setq ans (rtos (- anst1 anst2) 2 3))
(setq en (entsel "\nSelect destination text:"))
(setq el (entget (car en)))
(setq el (subst (cons 1 ans) (assoc 1 el) el))
(entmod el)
;(entupd en)
) end defun
(PRINC)
谢谢你的代码。
不幸的是，这不是我想要的，或者至少它没有达到我想要的效果。
我在上图中选择的第一个文本是文本字段，第二个是维度。我需要创建第三个文本作为文本字段公式，（文本字段1+维度2），这样，如果其他文本字段或维度有任何更改，它们将自动贯穿整个剖面图。
页:
[1]