---

Moin,
am frühen Morgen gleich sowas.
Wenn ich unseren Plankopf in eine Zeichnung einfüge
stehen zwar die Attribute im Kopf (eigenschaften) werden aber nicht angezeigt.
Habe schon folgendes ausprobiert: Layer alle ein, Prüfen, Bereinigen,
Wiederherstellen, attzeig, _attdisp
Ist doch bestimmt irgendeine Variable. Wer weiß mehr?
Gruß Ralle

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

Wir dürfen jetzt nur nicht den Sand in den Kopf stecken!

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

---

Probier es einmal damit

Code:

---

Public Sub BlockAttVisible()

    Dim SS As AcadSelectionSet
    Dim FltTypes(0) As Integer
    Dim FltData(0) As Variant
    Dim Obj As AcadBlockReference
   
    Dim BlAttrib As Variant
    Dim Count As Integer
    Dim Attrib As AcadAttributeReference
   
   
    Set SS = CreateSelectionSet("BlockAttVisibleAuswahl")

    FltTypes(0) = 0: FltData(0) = "INSERT"
   
    ' Selectionset erstellen, Benutzer fragen und Filter anwenden
    SS.Clear
    SS.SelectOnScreen FltTypes, FltData
   
    If SS.Count = 0 Then GoTo ENDE
   
    For Each Obj In SS
       
        If Obj.HasAttributes = False Then GoTo NextObj

        ' Jetzt holen wir die Attribute
        BlAttrib = Obj.GetAttributes
       
        ' Wir suchen, ob die Daten auch in das neue Ding passen
        For Count = UBound(BlAttrib) To 0 Step -1
           
            Set Attrib = BlAttrib(Count)
            Attrib.Invisible = False

        Next Count
NextObj:   
    Next Obj
   
ENDE:
    SS.Delete
   
End Sub

Public Function CreateSelectionSet(Optional ssName As String = "SS") As AcadSelectionSet

    Dim objSelSet As AcadSelectionSet
    Dim objSelCol As AcadSelectionSets
   
    Set objSelCol = ThisDrawing.SelectionSets
    For Each objSelSet In objSelCol
      If objSelSet.Name = ssName Then
        objSelCol.Item(ssName).Delete
        Exit For
      End If
    Next
    Set objSelSet = objSelCol.Add(ssName)
    Set CreateSelectionSet = objSelSet

End Function

---

------------------
Roland

[Diese Nachricht wurde von RoSiNiNo am 21. August 2003 editiert.]

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

---

B0.zip

Zunächst mal danke für die rasche Antwort.
Hat leider nicht funktioniert.
Nachdem ich das Objekt ausgewählt hatte, hat sich nix
getan.
Bekam auch keine Fehlermeldung.
Denke zwar das ich alles richtig gemacht habe,
allerdings habe ich (bis heute) noch kein VBA-Makro
geladen.
Hab mal die Zeichnung mit nem kleinen Attribut angehängt.

Da es anscheinend keine verstellte Variable ist wirds wohl
am einfachsten sein wenn ich das ganze in eine neue leere
dwg reinkopiere.

Gruß Ralle

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

Wir dürfen jetzt nur nicht den Sand in den Kopf stecken!

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

---

Hallo Ralle,
probiers mal mit Ansicht - Benannte Ausschnitte - BKS Welt. Falls BKS nicht auf Welt steht werden die Attribute in den Layouts um den jeweiligen Winkel gedreht.
Gruß Sarge

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

---

Servus,

hmmm, grübel grübel
nix Layout. Befinde mich im Modell.
Siehe B0.zip

Ralle

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

Wir dürfen jetzt nur nicht den Sand in den Kopf stecken!

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

---

Sorry,
lesen bildet! Habs wohl nicht genau durchgelesen bzw angeschaut.
Gruß Sarge

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

---

zu Hause bin ich bis demnächst noch von XP und 2000 verschont geblieben, was mich dann aber zwingt max.AC2002 zu nutzen !
Wenn du die Dat. im 2000er Format postest hättest du evtl schon die Antwort  , sorry...
(damit meine ich nicht nur meine Hilfe...)

------------------
  Gruß Sebastian
Der Feind des Guten ist das Bessere.

[Diese Nachricht wurde von cadffm am 22. August 2003 editiert.]

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

---

B0.zip

Uuuups!
Sorry hätt ich mir denken können.
Jetzt 2000.

Ralle

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

Wir dürfen jetzt nur nicht den Sand in den Kopf stecken!

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

---

setze ATTMODE auf 1

Befehl: attmode
Neuen Wert für ATTMODE eingeben <0>: 1

Befehl: regen
Regeneriert Modell.

------------------
Gruß Werner
http://Meyer-Werner.bei.T-Online.de

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

---

@Ralle, das war wohl ein volles Eigentor-

Du hast "attzeig" probiert hast du geschrieben, das nächste Mal nicht nur probieren sondern auch nutzen 
Denke du hast wohl nicht an das regenerieren gedacht und gleich aufgegeben..

------------------
Gruß Sebastian
Der Feind des Guten ist das Bessere.

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

---

Merci, das wars!
Also doch ne Variable :-)

Ralle

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

Wir dürfen jetzt nur nicht den Sand in den Kopf stecken!

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

---

Versuche mich zu bessern :-(

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

Wir dürfen jetzt nur nicht den Sand in den Kopf stecken!

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