[求助]新手求助,关于CAD Blockreference的问题 ,望各位大大不吝赐教!

lusakura

我在做一个把EXCEL中的数据读取到CAD中并用这些数据来生成一些图纸的事情,碰到如下这个问题困扰很久一直没有解决:

作为模板的CAD图纸里已经有了一个块:acbldefl ,这个块包含了一些内容 比如叫 ID1 ID2 ID3 ,分别表示电缆的大小,类型和数量,我的目的是想让EXCEL中存着的50台电机的电缆数据读到CAD中然后分别写入ID1 ID2 ID3并另存为,现在的问题是,我怎么能直接修改block : acbldefl里的 tag: ID1 ID2 ID3?

我看到的例子都是类似    如下语句,都是插入块

Dim blockRefObj As AcadBlockReference
    insertionPnt(0) = 2
    insertionPnt(1) = 2

    insertionPnt(2) = 0
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock _
                     (insertionPnt, "TESTBLOCK", 1, 1, 1, 0)

可我不知道当这个块存在的时候我怎么去调用?

我想照着例子来

Set TestBlkRef = ThisDrawing.ModelSpace.Item("acbldefl")

可是报错说无效的过程调用或参数...

卡在这个问题上了,希望大大们指点一下,不胜感激!

lusakura

深夜来顶,期待回复

英雄无敌

Set TestBlkRef = ThisDrawing.ModelSpace.Item("acbldefl") 改成

Set TestBlkRef = ThisDrawing.blocks("acbldefl") 试试

lusakura

谢楼上回复,我忘记说了

TestBlkRef 类型是 AcadBlockReference,按您那样改完会报类型不匹配...

Sub AJJJ()
Dim Test As Variant
Dim TestBlk As AcadBlock
Dim TestBlkRef As AcadBlockReference
Dim varAttributes As Variant
Dim i As Integer
'Set TestBlkRef = ThisDrawing.ModelSpace.Item("acbldefl")
Set TestBlkRef = ThisDrawing.Blocks("acbldefl")
varAttributes = TestBlkRef.GetAttributes
If varAttributes(i).TagString = "1" Or True Then
   varAttributes(1).TextString = "aaaaabbbbbbbbbbbbb"
  
    varAttributes(2).TextString = "3"
    varAttributes(3).TextString = "4"
End If

End Sub

干脆全贴出来

英雄无敌

blockreference在一张图中有很多个，对于有Attribute的blockreference,每个Attribute可能不一样的，这样的话，你可能要建立一个选择集，选择所有块名为“acbldefl”blockreference，并对每个blockreference进行Attribute的操作。

lusakura

谢谢楼上!