关于 AddAttribute 使用

6742948

Dim rkBlock As AcadBlock
Dim a As AcadBlock
Set rkBlock = AcadApplication.ActiveDocument.Blocks.Item("房间块")


Dim rkbattr As AcadAttribute
Dim rkhet As Double
Dim rkbit As Variant
rkhet = 3
rkbit = Array(-10, 2, 0) '定义变量，将数组赋值给变量，用于坐标
Set rkbattr = rkBlock.AddAttribute(rkhet, 0, "信号功能代码：", rkbit, "1231", "123")

各位大神，如上，是我的代码
第一组：将定义的块 赋值rkblock
第二组：准备给块添加属性

问题出来了，总是提示AddAttribute未定义，看了deepseek，要求使用acadblocktable。
但 cad vba 里面没有啊。怎么办？
我的环境 cad 2016 ，vba已安装，库文件cad 2016 type library已经引用。
感谢各位大神

yshf

怎么改了一下，就不见了

2.    Dim rkBlock As AcadBlock
   
3.    Dim a As AcadBlock
   
4. 
   
5.    On Error Resume Next
   
6.    Set rkBlock = AcadApplication.ActiveDocument.Blocks.Item("房间块")
   
7. 
   
8.    If Err Then
   
9.       Err.Clear
   
10.       MsgBox "未找到名为：“房间块”的块", 48, "提示"
    
11.       End
    
12.    Else
    
13.        Dim rkbattr As AcadAttribute
    
14.        Dim rkhet As Double
    
15.       
    
16.       'Dim rkbit As Variant
    
17.       'rkhet = 3
    
18.       'rkbit = Array(-10, 2, 0) '定义变量，将数组赋值给变量，用于坐标
    
19.       'Set rkbattr = rkBlock.AddAttribute(rkhet, 1, "信号功能代码：", rkbit, "1231", "123")
    
20.       
    
21.       rkhet = 3
    
22.       Dim rkbit(2) As Double
    
23.       rkbit(0) = -10: rkbit(1) = 2: rkbit(2) = 0
    
24.       Set rkbattr = rkBlock.AddAttribute(rkhet, acAttributeModeNormal, "信号功能代码：", rkbit, "1231", "123")
    
25.       AcadApplication.ActiveDocument.Regen acActiveVieeport
    
26.   End If

   Dim rkBlock As AcadBlock<br />    Dim a As AcadBlock<br /> <br />    On Error Resume Next<br />    Set rkBlock = AcadApplication.ActiveDocument.Blocks.Item("房间块")<br /> <br />    If Err Then<br />       Err.Clear<br />       MsgBox "未找到名为：“房间块”的块", 48, "提示"<br />       End<br />    Else<br />        Dim rkbattr As AcadAttribute<br />        Dim rkhet As Double<br />       <br />       'Dim rkbit As Variant<br />       'rkhet = 3<br />       'rkbit = Array(-10, 2, 0) '定义变量，将数组赋值给变量，用于坐标<br />       'Set rkbattr = rkBlock.AddAttribute(rkhet, 1, "信号功能代码：", rkbit, "1231", "123")<br />       <br />       rkhet = 3<br />       Dim rkbit(2) As Double<br />       rkbit(0) = -10: rkbit(1) = 2: rkbit(2) = 0<br />       Set rkbattr = rkBlock.AddAttribute(rkhet, acAttributeModeNormal, "信号功能代码：", rkbit, "1231", "123")<br />       AcadApplication.ActiveDocument.Regen acActiveVieeport<br />   End If

yshf

改为下面的试一试

复制代码

6742948

yshf 发表于 2025-3-1 14:18
怎么改了一下，就不见了

太牛了，我把块名“房间块” 替换成我的 “左侧房间块”，程序顺利运行下去了。