更新块baed的属性

Organic · 发表于 2022-7-5 18:21:33

我试着搜索这个论坛和theswamp，但没有成功。我试图找到的是一个lisp，它将通过获取位于块上方（尽管在块外部）的多行文字的值来更新块的现有属性。

E、 g.

登录/注册后可看大图

圆是一个块，其中包含文字属性，“182”是特定层上的多行文字，不属于块的一部分，尽管它位于块的顶部/块的边界范围内，但它位于块的外部。我希望将块内的属性更新为“182”。

这个圆形块有几个可怕的实例，每个实例都需要根据其上的多行文字更改其属性。我在网上找到了很多关于将文本转换为属性的Lisp，尽管在基于附近对象更新现有块属性方面没有太多内容（在本例中，文本位于块基点附近的已知层上）；这可能吗？

编辑：基于*在线程标题中键入对不起

Tharwat · 发表于 2022-7-5 18:50:05

你好

可以创建属性块的选择集，然后遍历每个块并获取其边界框，然后如果找到多行文字对象，则将属性文本字符串的文本字符串替换为块中的多行文字字符串。

David Bethel · 发表于 2022-7-5 19:18:51

即使文本是多行文字，它是否包含任何特殊的格式字符？

-大卫

Tharwat · 发表于 2022-7-5 19:28:56

试试这个草稿：

copy


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

[编程交流] 更新块baed的属性

发表回复

精选推荐