Editando os atributos dos Blocos - VBA

[leo_munters]

tenho um bloco chamado "FORMA3" que na realidade é um formato A3 onde através de caixas de texto do FORM quero inserir os dados no formato (número do desenho, data, etc). como posso fazer isto?
segue o código onde eu insiro 2 instancias dos FORMA3 no desenho. o problema é: como posso acesar os atributos destes blocos para inserir neles os conteudos das caixas de textos? Cada bloco possui 7 atributos.

obs: os blocos já fazem parte do template, por isto não é necessário inseri-los como desenho externo

código:

'definição da inserção dos Formatos
Dim Form As AcadBlockReference
Dim insertptForm(0 To 2) As Double
'Define o ponto de inserção
insertptForm(0) = 0
insertptForm(1) = 0
insertptForm(2) = 0
'insere o primeiro formato
Set Form = ThisDrawing.ModelSpace.InsertBlock(insertptForm, "Forma3", 1, 1, 1, 0)
'insere o segundo formato
insertptForm(0) = 400
insertptForm(1) = 0
insertptForm(2) = 0
Set Form = ThisDrawing.ModelSpace.InsertBlock(insertptForm, "Forma3", 1, 1, 1, 0)


obrigado

[Rui Pestana]

Caro leo_munters para manipular os atributos de um bloco inserido tem o método "GetAttributes"

1.
Dim varAttributes As Variant
varAttributes = Form.GetAttributes

Este método devolve-lhe uma lista "array" com os atributos editáveis do bloco "Form"

2. Deve procurar em cada um dos atributos qual a "TAG" (única para cada um dos atributos de um bloco) do atributo que pretende editar:
Por exemplo:
'procura um atributo com a TAG="Data"
Dim i as integer
For i = LBound(varAttributes) To UBound(varAttributes)
if varAttributes(I).TagString = "Data" then
'alteramos o texto desse atributo
varAttributes(i).TextString = Format(Date, "Short Date")
Exit for
end if
Next

Dica: para ver as propriedades dos atributos de um bloco procure "AttributeReference" na Ajuda VBA do AutoCAD.

Cumprimentos,

Rui Pestana