动态块Vis状态

Sub SetDynBlockToElevation()
  Dim ent As AcadEntity
  Dim oSSet As AcadSelectionSet
  Dim oBlkRef As IAcadBlockReference2
  Dim vDynProps As Variant
  Dim oDynProp As AcadDynamicBlockReferenceProperty
  Dim iCnt As Long
  
  Set oSSet = vbdPowerSet("DynBlock")
  oSSet.Select acSelectionSetLast
   
  Set oBlkRef = oSSet.Item(0)
  vDynProps = oBlkRef.GetDynamicBlockProperties
  For iCnt = LBound(vDynProps) To UBound(vDynProps)
    Set oDynProp = vDynProps(iCnt)
    If oDynProp.PropertyName = "Visibility" Then
      If oDynProp.Value = "Plan" Then
         oDynProp.Value = "Elevation"
      End If
    End If
  Next iCnt
End Sub
Public Function vbdPowerSet(strName As String) As AcadSelectionSet
  Dim objSelSet As AcadSelectionSet
  Dim objSelCol As AcadSelectionSets
  Set objSelCol = ThisDrawing.SelectionSets
    For Each objSelSet In objSelCol
      If objSelSet.Name = strName Then
        objSelCol.Item(strName).Delete
        Exit For
      End If
    Next
  Set objSelSet = objSelCol.Add(strName)
  Set vbdPowerSet = objSelSet
End Function

Sub test()
Dim oBlkRef As AcadBlockReference
Dim oEnt As AcadEntity
Dim vPick As Variant
Dim vDynProps As Variant
Dim oDynProp As AcadDynamicBlockReferenceProperty
Dim i As Long
ThisDrawing.Utility.GetEntity oEnt, vPick, "select block: "
If TypeOf oEnt Is AcadBlockReference Then
    Set oBlkRef = oEnt
    If oBlkRef.IsDynamicBlock = True Then
        vDynProps = oBlkRef.GetDynamicBlockProperties
        For i = 0 To UBound(vDynProps)
            Set oDynProp = vDynProps(i)
            If oDynProp.PropertyName = "Visibility" Then
                Debug.Print oDynProp.Value
            End If
        Next
    End If
End If
End Sub