Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Attribute ausgeblendet

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Attribute ausgeblendet (322 mal gelesen)
Ralle
Mitglied



Sehen Sie sich das Profil von Ralle an!   Senden Sie eine Private Message an Ralle  Schreiben Sie einen Gästebucheintrag für Ralle

Beiträge: 266
Registriert: 12.03.2003

Windows 10 Enterprise
64-Bit, 32GB
MEP2018

erstellt am: 21. Aug. 2003 09:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

RoSiNiNo
Mitglied
Konstrukteur


Sehen Sie sich das Profil von RoSiNiNo an!   Senden Sie eine Private Message an RoSiNiNo  Schreiben Sie einen Gästebucheintrag für RoSiNiNo

Beiträge: 1125
Registriert: 09.10.2002

Autodesk Building Design Suite Premium 2017
Windows 10 Pro 64bit
HP Workstation Z620, 24GB
GeForce GTX 970

erstellt am: 21. Aug. 2003 09:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ralle 10 Unities + Antwort hilfreich

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

Ralle
Mitglied



Sehen Sie sich das Profil von Ralle an!   Senden Sie eine Private Message an Ralle  Schreiben Sie einen Gästebucheintrag für Ralle

Beiträge: 266
Registriert: 12.03.2003

Windows 10 Enterprise
64-Bit, 32GB
MEP2018

erstellt am: 21. Aug. 2003 10:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


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

sarge
Mitglied



Sehen Sie sich das Profil von sarge an!   Senden Sie eine Private Message an sarge  Schreiben Sie einen Gästebucheintrag für sarge

Beiträge: 28
Registriert: 22.01.2003

AutoCAD 2002 P4 2.5GHz 512Mb
Win2k prof

erstellt am: 21. Aug. 2003 10:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ralle 10 Unities + Antwort hilfreich

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

Ralle
Mitglied



Sehen Sie sich das Profil von Ralle an!   Senden Sie eine Private Message an Ralle  Schreiben Sie einen Gästebucheintrag für Ralle

Beiträge: 266
Registriert: 12.03.2003

Windows 10 Enterprise
64-Bit, 32GB
MEP2018

erstellt am: 21. Aug. 2003 10:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

sarge
Mitglied



Sehen Sie sich das Profil von sarge an!   Senden Sie eine Private Message an sarge  Schreiben Sie einen Gästebucheintrag für sarge

Beiträge: 28
Registriert: 22.01.2003

AutoCAD 2002 P4 2.5GHz 512Mb
Win2k prof

erstellt am: 21. Aug. 2003 11:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ralle 10 Unities + Antwort hilfreich

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

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 19237
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 22. Aug. 2003 00:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ralle 10 Unities + Antwort hilfreich

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

Ralle
Mitglied



Sehen Sie sich das Profil von Ralle an!   Senden Sie eine Private Message an Ralle  Schreiben Sie einen Gästebucheintrag für Ralle

Beiträge: 266
Registriert: 12.03.2003

Windows 10 Enterprise
64-Bit, 32GB
MEP2018

erstellt am: 22. Aug. 2003 07:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


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

otterloh
Mitglied



Sehen Sie sich das Profil von otterloh an!   Senden Sie eine Private Message an otterloh  Schreiben Sie einen Gästebucheintrag für otterloh

Beiträge: 183
Registriert: 27.06.2001

AutoCAD 2008, 2010, 2012
Vista, Win7

erstellt am: 22. Aug. 2003 08:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ralle 10 Unities + Antwort hilfreich

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 19237
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 22. Aug. 2003 09:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ralle 10 Unities + Antwort hilfreich

@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

Ralle
Mitglied



Sehen Sie sich das Profil von Ralle an!   Senden Sie eine Private Message an Ralle  Schreiben Sie einen Gästebucheintrag für Ralle

Beiträge: 266
Registriert: 12.03.2003

Windows 10 Enterprise
64-Bit, 32GB
MEP2018

erstellt am: 22. Aug. 2003 09:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Ralle
Mitglied



Sehen Sie sich das Profil von Ralle an!   Senden Sie eine Private Message an Ralle  Schreiben Sie einen Gästebucheintrag für Ralle

Beiträge: 266
Registriert: 12.03.2003

Windows 10 Enterprise
64-Bit, 32GB
MEP2018

erstellt am: 22. Aug. 2003 09:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2019 CAD.de | Impressum | Datenschutz