Alerando blocos dinamicos com VBA
Olá pessoal, estou encontrando dificuldades em trabalhar com programação VBA e Blocos dinamicos no AutoCAD2006, Exemplo tenho um bloco dinamico com tres(3) opções de visibilidade sempre que faço a inserção deste bloco usando VBA ele vem com a opção 1 de visibilidade que eu deixei como default OK, só que as vezes preciso inserir o mesmo bloco usando uma outra opção de visibilidade só que isso tem que acontecer automaticamente usando o VBA para que não precise de intervenção do usuário.
Alguem poderia me ajudar?
Re: Alerando blocos dinamicos com VBA
Marcio,
Existem métodos/funções VBA que podem ter ajudar:
GetDynamicBlockProperties
DynamicBlockReferenceProperty
Acho que este exemplo poderá ser de ajuda:
*****
Sub test()
Dim oUtil As AutoCAD.AcadUtility
Set oUtil = ThisDrawing.Utility
Dim oEntity As AcadEntity
Dim pt(2) As Double
Call oUtil.GetEntity(oEntity, pt, "Select blockref :")
Dim oBkRef As IAcadBlockReference2
Set oBkRef = oEntity
Dim oProp As Variant
oProp = oBkRef.GetDynamicBlockProperties
If IsArray(oProp) Then
Dim i As Long
For i = LBound(oProp) To UBound(oProp)
Dim v1 As AutoCAD.AcadDynamicBlockReferenceProperty
Set v1 = oProp (i)
Debug.Print v1.PropertyName & "," & v1.Description & "," & v1.ReadOnly & "," & v1.Show & "," & v1.Value
Next i
End If
End Sub
*****