提取属性数据（多行文字）

Losinski · 发表于 2022-7-5 18:01:47

大家好，

我需要一个LISP，它可以查看一个块，提取其属性值，并将其设置为变量。这一切都是在幕后发生的（没有提示）。

陷阱：
该属性的值为多行文字（MTEXT）。
在块中，属性可能如下所示：

“这是一个演示
显示属性的外观“
______________________________________________________________________________________

假设以下名称：
BLK123（区块）
ATT123（属性）
VAR123（变量）

我需要存储在VAR123中的ATT123的值（来自BLK123）。

!然后，VAR123将读取“这是一个演示，显示了属性的外观。”

我已经研究和测试了大约一个小时的不同代码，似乎找不到一个适用于多行文字的代码。有什么想法吗？

谢谢
洛辛斯基

Lee Mac · 发表于 2022-7-5 18:14:15

澄清一下：该属性是一个多行属性，还是指块定义中的多行文字？

Losinski · 发表于 2022-7-5 18:18:29

嗨，李，

这是一个多行属性。

谢谢
洛辛斯基

BIGAL · 发表于 2022-7-5 18:27:45

你能发布一个样例dwg吗。

Losinski · 发表于 2022-7-5 18:28:31

当然，给你。
dwg123.dwg

Tharwat · 发表于 2022-7-5 18:37:29

发挥一下：

copy


(if (setq s (ssget "_+.:S:E" '((0 . "INSERT")(66 . 1))))
 (vl-some '(lambda (x)
             (and (= (vla-get-tagstring x) "ATT123")
                  (setq ATT123 (vla-get-textstring x))
             )
           )
          (vlax-invoke (vlax-ename->vla-object (ssname s 0)) 'getattributes)
 )
)