更新块baed的属性
我试着搜索这个论坛和theswamp，但没有成功。我试图找到的是一个lisp，它将通过获取位于块上方（尽管在块外部）的多行文字的值来更新块的现有属性。E、 g.https://www.cadtutor.net/forum/attachment.php?attachmentid=56189&cid=1&stc=1
圆是一个块，其中包含文字属性，“182”是特定层上的多行文字，不属于块的一部分，尽管它位于块的顶部/块的边界范围内，但它位于块的外部。我希望将块内的属性更新为“182”。
这个圆形块有几个可怕的实例，每个实例都需要根据其上的多行文字更改其属性。我在网上找到了很多关于将文本转换为属性的Lisp，尽管在基于附近对象更新现有块属性方面没有太多内容（在本例中，文本位于块基点附近的已知层上）；这可能吗？
编辑：基于*在线程标题中键入对不起
你好
可以创建属性块的选择集，然后遍历每个块并获取其边界框，然后如果找到多行文字对象，则将属性文本字符串的文本字符串替换为块中的多行文字字符串。 即使文本是多行文字，它是否包含任何特殊的格式字符？
-大卫 试试这个草稿：
(defun c:test (/ ss i obj j k mt)
;; Tharwat 23.11.2015 ;;
(if (setq ss (ssget "_:L" '((0 . "INSERT") (66 . 1))))
(repeat (setq i (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
(vla-getboundingbox obj 'j 'k)
(if (setq mt (ssget "_W"
(vlax-safearray->list k)
(vlax-safearray->list j)
'((0 . "MTEXT"))
)
)
(vla-put-textstring (car (vlax-invoke obj 'getattributes))
(cdr (assoc 1 (entget (ssname mt 0))))
)
)
)
)
(princ)
)(vl-load-com)
页:
[1]