---

Hallo

wer hat eine Lösung:
Ich habe mehrere Zeichnungen in denen Blöcke mit Attributen vorhanden sind.
Diese Attribute sollen komplett gelöscht werden, ohne die Block aufzulösen.
Gibt es dafür eine lisp Funktion wenn ja von finde ich diese?
Ich habe AutoCAD2002 im Einsatz.

vielen Dank

Michael

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

---

ob wer ein autom. lisp dazu geschrieben hab weis ich nicht aber CADwiesel ist immer ein heißer kandidat bei sowas  http://www.cadwiesel.de/

ansonsten den block mit "refedit" editieren und einfach die attribute löschen.....

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

---

Danke für die Blumen, Michael, aber außer ein Blocktausch, wo man die mit Att's gegen die ohne Atts austauschen kann habe ich wohl nix anderes. Aber hinter den Bergen, bei den 7 Zwergen.... oder bei CADlon das Multitalent ATTeig ansehen

------------------
Gruß
CADwiesel
bin auch im Urlaub: 29.07 - 27.08

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

---

@CADwiesel
Danke für die Blumen. 

@Michael
Auch wenn es in der Beschreibung zu ATTEIG nicht drin steht, mittlerweile, kann man mit diesem Tool auch Attribute löschen. Ansonsten gibt's ja auch noch das BTAUSCH. Mit diesem können Blöcke ersetzt werden. Die Attributwerte können in den neuen Block mit übernommen werden. Diese müssen dazu NICHT die gleiche Bezeichnung haben, da in einem Dialogfenster die Zuordnung vom alten zum neuen Attribut vorgenommen werden kann. Wenn's notwendig ist, kann auch die Position und Eigenschaften des alten Attribut's übernommen werden. Das kann notwendig sein, wenn die Attribute einzeln mit den Griffen verschoben wurden, was ein 'normaler' Blocktausch dann zerstören würde.

-> So ziemlich alles ist möglich.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
Irgendwann muß man schlafen, deshalb:
+!+!+Urlaub vom 01.08.-30.08.2003+!+!+

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

---

Hi Michael,
wenns den nicht unbedingt Lisp sein muß,...ich hab hier nen VBA-Makro für Dich. Probiers doch mal damit. Solltest du nur bestimmte Blöcke leeren wollen, müßte noch ne Case- Anweisung eingefügt werden.
Bernd

Sub ATTr_Leer()
Dim Header As Boolean
Dim elem As AcadEntity
Dim Array1 As Variant
Dim Count As Integer
   
For Each elem In ThisDrawing.ModelSpace
  If elem.ObjectName = "AcDbBlockReference" Then
  With elem
    If StrComp(.EntityName, "AcDbBlockReference", 1) = 0 Then
    If .HasAttributes Then
      Array1 = .GetAttributes
      For Count = LBound(Array1) To UBound(Array1)
      Array1(Count).TextString = ""
      Next Count
      Header = True
    End If
    End If
  End With
  End If
Next elem
End Sub

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

---

ääääh...hab meine einlassung von eben nochmal gelesen. bin vielleicht etwas am thema vorbeigeschossen (????)..mein makro löscht nicht die attribute sondern leert diese nur. der block bleibt dann mit nun allerdings leeren Attributen erhalten.
Wenn du magst, schau ich mirs nochmal an. löschen von attributen sollte ja auch kein prob sein.

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

---

wenns noch interessiert :
KLICK

------------------
- Thomas -

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