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

lusakura · 发表于 2009-3-16 11:32:00

我在做一个把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 · 发表于 2009-3-16 22:47:00

深夜来顶,期待回复

英雄无敌 · 发表于 2009-3-17 11:18:00

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

lusakura · 发表于 2009-3-17 12:32:00

谢楼上回复,我忘记说了
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
干脆全贴出来

英雄无敌 · 发表于 2009-3-17 15:33:00

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

lusakura · 发表于 2009-3-18 08:49:00

谢谢楼上!

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

发表回复

精选推荐