向块中添加块属性文字

菜鸟初来乍到

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

厉害，一听就懂

tranque

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

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

dabingrain

执行命令 ATTSYNC 更新一下图块就可以

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