Results 1 to 2 of 2

Thread: Alerando blocos dinamicos com VBA

  1. #1
    Member
    Join Date
    2007-06
    Location
    Sumaré
    Posts
    36
    Login to Give a bone
    0

    Default 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?

  2. #2
    Member
    Join Date
    2008-10
    Location
    São Paulo
    Posts
    7
    Login to Give a bone
    0

    Default 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
    *****

Similar Threads

  1. Blocos dinâmicos e Atributos
    By mauriciolimax in forum AutoCAD General
    Replies: 0
    Last Post: 2010-10-14, 06:06 PM
  2. Blocos Dinâmicos
    By helder.js.alves in forum AutoCAD General
    Replies: 2
    Last Post: 2009-11-11, 08:56 PM
  3. Blocos dinâmicos
    By depereira in forum AutoCAD General
    Replies: 5
    Last Post: 2009-06-19, 09:18 AM
  4. Blocos dinamicos
    By trosado in forum AutoCAD General
    Replies: 16
    Last Post: 2008-06-02, 08:48 PM
  5. Blocos dinamicos
    By rui.moita in forum AutoCAD General
    Replies: 2
    Last Post: 2008-02-28, 12:24 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •