文本字段Lisp？？

feargt · 发表于 2022-7-6 14:42:09

你好

附件是我正在做的事情的图片。我忙于检查一些用户的剖面图。

基本上，我想知道是否有人已经提出了类似的想法。

在图片中，有3个红色圆圈，标记为1是文本对象
标签2是一个文本对象，其文本字段链接到尺寸75.37，该尺寸位于标签3的左侧，格式类似于0+075.37

标签3也是一个维度

如果可能的话，我希望能够通过选择Nr 2和3来替换Nr 1中的文本，并插入一个添加2和3值的公式的文本字段。

如果有人能提供帮助或有任何想法或更好的解决方案，那就太好了。

谢谢

BIGAL · 发表于 2022-7-6 15:30:26

这里有一个文本1-text2 write aswer to text 3，根据需要更改

copy


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

feargt · 发表于 2022-7-6 16:04:56

谢谢你的代码。
不幸的是，这不是我想要的，或者至少它没有达到我想要的效果。

我在上图中选择的第一个文本是文本字段，第二个是维度。我需要创建第三个文本作为文本字段公式，（文本字段1+维度2），这样，如果其他文本字段或维度有任何更改，它们将自动贯穿整个剖面图。

[编程交流] 文本字段Lisp？？

发表回复

精选推荐