---

Hallo zusammen,

ic habe in einer Zeichnung einen Block mit ca. 30 Attributen. Jetzt möchte ich per Klick auf einen Button 2 Attribute unsichtbar schalten und 4 Attribute sichtbar. Wie kriege ich das hin?

------------------

cu
Heiko

Schau mal rein www.diemertens.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ATT-INVISIBLE.VLX.txt

Eventuell könnte man das Teil im anhang umbasteln ...

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ähhh... Was ist denn eine VLX-Datei? Habe ich noch nie gesehen.

------------------

cu
Heiko

Schau mal rein www.diemertens.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

 

Zitat:

---

Original erstellt von Heiko76:
Ähhh... Was ist denn eine VLX-Datei? Habe ich noch nie gesehen.

---

naja ... wenn man nur in VBA unterwegs ist ..   .. vlx ist eine kompilierte Lisp-Datei .. du kannst sie mit _appload laden, per Drag&Drop aus dem Win-Explorer in deine Zeichnung ziehen ...
google nach "vlx-Datei" bringt auch einige Treffer
------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

hier wäre eine Lösung

Code:

---

Sub attr()
    Dim sset As AcadSelectionSet
    Dim x_attribute As Variant
    Dim x_attribut As AcadAttributeReference
    Dim blockref As AcadBlockReference
    Dim ftype(0) As Integer
    Dim fdata(0) As Variant
   
    On Error Resume Next
    Set sset = ThisDrawing.SelectionSets("Block")
    If Err.Number Then
        Set sset = ThisDrawing.SelectionSets.Add("Block")
    End If
    On Error GoTo 0
   
    ftype(0) = 0
    fdata(0) = "Insert"
    sset.SelectOnScreen ftype, fdata
    For Each blockref In sset
        If blockref.HasAttributes Then
            x_attribute = blockref.GetAttributes
            For i = 0 To UBound(x_attribute)
                Set x_attribut = x_attribute(i)
                Debug.Print x_attribut.TagString
                Debug.Print x_attribut.Invisible
                Select Case UCase(x_attribut.TagString)
                       Case "ATTR1"
                        x_attribut.Invisible = True
                       Case "ATTR2"
                        x_attribut.Invisible = False
                      Case "ATTR3"
                        x_attribut.Invisible = x_attribut.Invisible Xor True
                       Case Else
                End Select
                x_attribut.Update
            Next
        End If
    Next
   
   
End Sub

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP