[求助] 如何获得属性块的属性并修改某个值？

szuki

Public Sub Add_Block1()

Dim dblStart(0 To 2) As Double  '插入点
Dim objBlkDef As AcadBlock
Dim objBlkRef As AcadBlockReference
Dim objBlock As AcadBlock

For Each objBlock In ThisDrawing.Blocks
    If objBlock.Name = "Block1" Then                                               '找到指定的块
        Set objBlkDef = ThisDrawing.Blocks.Item("OrderBlock")
    End If
Next

'objBlkDef 如何转换为objBlkRef呢？

Dim varAttributes As Variant
varAttributes = objBlkRef.GetAttributes
varAttributes(0).TextString = "成功了"                       '修改第一个属性值？

End Sub

雪山飞狐_lzh

用选择集过滤相应块名的块参照

Blocks是块定义集合而不是块参照集合

szuki

如何写程序呢？

刚开始学cad的vba，需要大侠帮忙

szuki

继续等大侠帮忙。。

home

Set objBlkRef = ThisDrawing.ModelSpace.InsertBlock(InsertionPoint, "Block1", 1, 1, 1, 0)

szuki

这是直接引用啊，我需要或者已经存在的块的属性。。。

home

Dim ent As AcadEntity
For Each ent In ThisDrawing.ModelSpace
    If ent.Name = "Block1" Then                                               '找到指定的块
        Set objBlkRef = ent
    End If
Next

szuki

Set objBlkRef = ent        这句出错，   运行错误438，对象不支持该属性和方法。

szuki

Set objBlkRef = ent   这句提示方法错

home

我的怎么没有提示错误，