向块中添加块属性文字

菜卷鱼

官方网站学习 AddAttribute Method (ActiveX)

1. (defun c:addatt (/     doc      obj         vbj    blocks
   
2.         blockname   block      ipoint     insertionpoint
   
3.         attheight   attmode    attprompt  atttag    attvalue
   
4.        )
   
5.   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
6.   (setq obj (car (entsel)))
   
7.   (setq vbj (vlax-ename->vla-object obj))
   
8.   (setq blocks (vla-get-blocks DOC))
   
9.   (setq blockname (vla-get-name vbj))
   
10.   (setq block (vla-item blocks blockname))
    
11.   (setq ipoint (cdr (assoc 10 (entget obj))))
    
12.   (setq  insertionPoint (apply 'vlax-3d-point ipoint)
    
13.   attHeight      1
    
14.   attMode         acAttributeModeVerify
    
15.   attPrompt      "提示"
    
16.   attTag         "标记"
    
17.   attValue       "好喜欢菜卷鱼"
    
18.   )
    
19.   (vla-AddAttribute
    
20.     block attHeight attMode attPrompt insertionPoint attTag attValue)
    
21.   ;;;手动去attsync
    
22. )

(defun c:addatt (/     doc      obj         vbj    blocks<br />         blockname   block      ipoint     insertionpoint<br />         attheight   attmode    attprompt  atttag    attvalue<br />        )<br />   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (setq obj (car (entsel)))<br />   (setq vbj (vlax-ename->vla-object obj))<br />   (setq blocks (vla-get-blocks DOC))<br />   (setq blockname (vla-get-name vbj))<br />   (setq block (vla-item blocks blockname))<br />   (setq ipoint (cdr (assoc 10 (entget obj))))<br />   (setq  insertionPoint (apply 'vlax-3d-point ipoint)<br />   attHeight      1<br />   attMode         acAttributeModeVerify<br />   attPrompt      "提示"<br />   attTag         "标记"<br />   attValue       "好喜欢菜卷鱼"<br />   )<br />   (vla-AddAttribute<br />     block attHeight attMode attPrompt insertionPoint attTag attValue)<br />   ;;;手动去attsync<br /> )

dabingrain

2. (defun c:addatt  (/     doc      obj         vbj    blocks
   
3.         blockname   block      ipoint     insertionpoint
   
4.         attheight   attmode    attprompt  atttag    attvalue
   
5.        )
   
6.   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
7.   (setq obj (car (entsel)))
   
8.   (setq vbj (vlax-ename->vla-object obj))
   
9.   (setq blocks (vla-get-blocks DOC))
   
10.   (setq blockname (vla-get-name vbj))
    
11.   (setq block (vla-item blocks blockname))
    
12.   (setq ipoint (cdr (assoc 10 (entget obj))))
    
13.   (setq  insertionPoint (apply 'vlax-3d-point ipoint)
    
14.   attHeight      1
    
15.   attMode         acAttributeModeVerify
    
16.   attPrompt      "提示"
    
17.   attTag         "标记"
    
18.   attValue       "好喜欢菜卷鱼"
    
19.   )
    
20.   (vla-AddAttribute
    
21.     block attHeight attMode attPrompt insertionPoint attTag attValue)
    
22.   ;;;手动去attsync
    
23.         (vl-cmdf ".ATTSYNC" "S"  obj "Y"  )
    
24. )

(defun c:addatt  (/     doc      obj         vbj    blocks<br />         blockname   block      ipoint     insertionpoint<br />         attheight   attmode    attprompt  atttag    attvalue<br />        )<br />   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (setq obj (car (entsel)))<br />   (setq vbj (vlax-ename->vla-object obj))<br />   (setq blocks (vla-get-blocks DOC))<br />   (setq blockname (vla-get-name vbj))<br />   (setq block (vla-item blocks blockname))<br />   (setq ipoint (cdr (assoc 10 (entget obj))))<br />   (setq  insertionPoint (apply 'vlax-3d-point ipoint)<br />   attHeight      1<br />   attMode         acAttributeModeVerify<br />   attPrompt      "提示"<br />   attTag         "标记"<br />   attValue       "好喜欢菜卷鱼"<br />   )<br />   (vla-AddAttribute<br />     block attHeight attMode attPrompt insertionPoint attTag attValue)<br />   ;;;手动去attsync<br />         (vl-cmdf ".ATTSYNC" "S"  obj "Y"  )<br /> )

tranque

weimeng555 发表于 2024-5-12 01:06
测试了下，麻烦没反应呢？大佬能否解毒一波，选择块后没反应了，提示：选择对象: #
用attman查看也没有增 ...

你进入块编辑器里就会发现，其实是添加进去属性了

凨仴黯夜

weimeng555 发表于 2024-5-12 01:06
测试了下，麻烦没反应呢？大佬能否解毒一波，选择块后没反应了，提示：选择对象: #
用attman查看也没有增 ...

这只是向块定义添加了属性文字，没有给块参照添加

lxl217114

厉害了，又有新作分享了。

weimeng555

测试了下，麻烦没反应呢？大佬能否解毒一波，选择块后没反应了，提示：选择对象: #<VLA-OBJECT IAcadAttribute 0000018e61f04968>
用attman查看也没有增加属性

自贡黄明儒

块就像是人，属性就像衣服，你可以穿一件或者多件，也可以一丝不挂。一丝不挂就是普通块，没带属性

22千里之外

自贡黄明儒 发表于 2024-5-12 07:35
块就像是人，属性就像衣服，你可以穿一件或者多件，也可以一丝不挂。一丝不挂就是普通块，没带属性

这个解释到位

magicheno

感谢大佬分享

zilong136

weimeng555 发表于 2024-5-12 01:06
测试了下，麻烦没反应呢？大佬能否解毒一波，选择块后没反应了，提示：选择对象: #
用attman查看也没有增 ...

跟你一样

菜卷鱼

weimeng555 发表于 2024-5-12 01:06
测试了下，麻烦没反应呢？大佬能否解毒一波，选择块后没反应了，提示：选择对象: #
用attman查看也没有增 ...

手动去ATTSYNC，执行了没有

jkop

可以快速的增加属性文字，简化作业流程，很好的范例程序。