[首创]向块中添加块属性并修改

和尚777

   向块中增加属性后再修改

             不会破坏原块属性,无属性的直接增加
        新发现一个函数acet-attsync,可代替command

2. (defun C:tt (/ b blkref bname doc ent i list0 list1 num ss)  ;向块中添加属性
   
3.   (setq doc(vla-get-ActiveDocument(vlax-get-acad-object)))
   
4.   ;"和尚777"
   
5.   (if(and (setq bName (cdr(assoc 2 (entget (car(entsel))))))
   
6.        (setq b(vla-item (vla-get-Blocks doc) bName)))
   
7.     (progn
   
8.       (vla-AddAttribute b
   
9.         50 4 "表示长度" (vlax-3D-point '(0 0 0)) "c" "777")
   
10.       (acet-attsync bName);(command "attsync" "n" bname)
    
11.       (if(setq ss(ssget "x"(list'(0 . "insert")(cons 2 bName))))
    
12.         (progn
    
13.           (setq i -1)
    
14.           (while(setq ent(ssname ss (setq i(1+ i))))
    
15.             (if (= (vla-Get-ObjectName (setq blkref (vlax-Ename->vla-Object ent))) "AcDbBlockReference")
    
16.               (if (vla-Get-HasAttributes blkref)
    
17.                 (progn (setq liST0 (vlax-safearray->list  (vlax-variant-value (vla-GetAttributes blkref))))
    
18.                   (setq liST1 (mapcar 'vla-Get-TagString  liST0))
    
19.                   (setq num (vl-position "c" list1))
    
20.                   (vla-put-TextString (nth num liST0) (itoa i))
    
21.                 )
    
22.               )
    
23.             )
    
24.           )
    
25.         )
    
26.       )
    
27.     )
    
28.   )(princ)
    
29. )

(defun C:tt (/ b blkref bname doc ent i list0 list1 num ss)  ;向块中添加属性<br />   (setq doc(vla-get-ActiveDocument(vlax-get-acad-object)))<br />   ;"和尚777"<br />   (if(and (setq bName (cdr(assoc 2 (entget (car(entsel))))))<br />        (setq b(vla-item (vla-get-Blocks doc) bName)))<br />     (progn <br />       (vla-AddAttribute b<br />         50 4 "表示长度" (vlax-3D-point '(0 0 0)) "c" "777")<br />       (acet-attsync bName);(command "attsync" "n" bname)<br />       (if(setq ss(ssget "x"(list'(0 . "insert")(cons 2 bName))))<br />         (progn <br />           (setq i -1)<br />           (while(setq ent(ssname ss (setq i(1+ i))))<br />             (if (= (vla-Get-ObjectName (setq blkref (vlax-Ename->vla-Object ent))) "AcDbBlockReference")<br />               (if (vla-Get-HasAttributes blkref)<br />                 (progn (setq liST0 (vlax-safearray->list  (vlax-variant-value (vla-GetAttributes blkref))))<br />                   (setq liST1 (mapcar 'vla-Get-TagString  liST0))<br />                   (setq num (vl-position "c" list1))<br />                   (vla-put-TextString (nth num liST0) (itoa i))<br />                 )<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )(princ)<br /> )

liuhe

attsync  是一个cad自带的命令
将块定义中的属性更改应用于所有块参照。

查找
使用该命令来更新包含属性的块的实例，曾经使用 BLOCK 或 BEDIT 命令重定义这些属性。ATTSYNC 不更改现有块中指定给属性的任何值。

注： ATTSYNC 删除所有使用 ATTEDIT 或 EATTEDIT 命令进行的格式更改或特性更改。也将删除所有与块关联的扩展数据，并可能影响动态块和第三方应用程序创建的块。


ACET-ATTSYNC  大概率  也是用command调用的

KO你

测试了，提示显示
调用(*push-error-using-command*)前无法从 *error* 调用(command)。
建议将(command)调用转换为(command-s)。
增加不了，什么问题


添加的属性文字能按所需要指定位置添加吗，经测试有时不行，有时添加在右下角，还有添加的属性文字不可以带点拖动

aihuyujian

alexmai 发表于 2023-4-23 13:28
错误: no function definition: ACET-ATTSYNC
请问是用什么版本 cad

ACET- 开头  大概率是ET工具箱的函数  估计是你装CAD的时候没有勾选安装

lxl217114

首赞
谢谢分享
很牛逼的功能

paulpipi

感谢分享，支持源码，，，，

yaojing38

谢谢大佬无私奉献

xudongchu

牛逼  谢谢分享！！

菜鸟初来乍到

太强了，感谢楼主分享

wharan

提示函数ACET-ATTSYNC未定义

依然小小鸟

增加属性文字的位置 是怎么定的

nsh935

厉害力哈哈哈

flowerson

厉害。请问acet-attsync怎样加载出来呢？另外就是新加的属性位置怎样定义呢？