Get Visibility States of Visibility Parameter of Dynamic Block

[tim11_manhhieu]

Hi all, i am trying to get all Visibility States (1 and 2) of parameter "Visibility1" of dynamic block. 

Show message box for example.

Any one have example code?

[tim11_manhhieu · Accepted solution]

i found it. vba code for who need.

Option Explicit

Sub ListVisibilityStates()

    Dim blockRef As AcadBlockReference
    Dim visProp As AcadDynamicBlockReferenceProperty
    Dim visProps() As AcadDynamicBlockReferenceProperty
    Dim entity As acadEntity
    Dim basePoint As Variant
    Dim state As Variant
    Dim i As Integer

    On Error Resume Next
    ThisDrawing.Utility.GetEntity entity, basePoint, "Pick dynamic block: "
    On Error GoTo 0

        If TypeOf entity Is AcadBlockReference Then
        
            Set blockRef = entity

            If blockRef.IsDynamicBlock Then
            
                visProps = blockRef.GetDynamicBlockProperties
                
                    For i = 0 To UBound(visProps)
                    
                        Set visProp = visProps(i)
                        
                        If visProp.PropertyName = "Visibility1" Then
                        
                            For Each state In visProp.AllowedValues()
                                MsgBox state
                            Next state
                            Exit For
                        
                        End If
                        
                    Next i
                    
            End If

        End If

End Sub