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