怎么让图框块中的零件名称后面自动加字母

caoyongjun

一套模具图有很多零件，怎么让属性图框块中的零件名称后面自动加字母，D38A D38B D38C D38D,................

llsheng_73

先要知道所关心的属性的TAG,然后才能在众多属性中找到它，才可能进行后边的处理

1. (defun getatts(blk);|获取块参照图元(对象)的属性参照,返回值((属性标记 属性值 属性对象)...)以便进一步修改指定标记的属性值|;
   
2.   (if(equal(VL-CATCH-ALL-APPLY(function vlax-get-property)(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)
   
3.     (mapcar(function(lambda(x)(list(strcase(vlax-get-property x'TagString))(vlax-get-property x'TextString)x)))
   
4.            (vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))

(defun getatts(blk);|获取块参照图元(对象)的属性参照,返回值((属性标记 属性值 属性对象)...)以便进一步修改指定标记的属性值|;<br />   (if(equal(VL-CATCH-ALL-APPLY(function vlax-get-property)(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)<br />     (mapcar(function(lambda(x)(list(strcase(vlax-get-property x'TagString))(vlax-get-property x'TextString)x)))<br />            (vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))

$ (setq e(CAR(ENTSEL)))
<图元名: 7e498b08>
_$ (GETATTS e)
(("HEIGHT" "220.25" #<VLA-OBJECT IAcadAttributeReference2 2915b2c4>))
_$ (setq a(assoc "HEIGHT"(GETATTS e)))
("HEIGHT" "220.25" #<VLA-OBJECT IAcadAttributeReference2 2915b2c4>)
_$ (vlax-put-property(caddr a)'textstring(strcat(cadr a)"A"))
nil
_$ (GETATTS e)
(("HEIGHT" "220.25A" #<VLA-OBJECT IAcadAttributeReference2 2915b2c4>))
_$
自己想法进行批量处理就行了

自贡黄明儒

先制定规则，没有规矩不成方圆。
如果是属性块，就按73长老的办法;如果 普通文字，就找到Name,然后在它下面写。

GEGEYANG88

处理前，注意把图框按照需要的顺序排好，就行了。似乎很多递增刷可以处理的。