---

Hallo,

habe folgendes Problem: viele Zeichnungen, die sich dadurch "auszeichnen" das z.T. einige Bemassungen händisch überschrieben wurden. Gibt es irgendwo ein Werkzeug, welches mir diese Bemassungen markiert? Eine manuelle Überprüfung ist ganz schön nervig!

Vielen Dank im voraus
Micha

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

---

Ich kann Dir zwar nicht sagen wie man alle Bemassung mit überschriebenem Text auf einen Schlag markieren kann.
Aber man kann alle Bemassung mit überschriebenem Text auf einmal auf Originalmass zurücksetzen:
Schnellauswahl => alle Bemassungen auswählen => im Eigenschaftenfenster den Wert *VARIIERT* löschen (falls es das ist was Du eigentlich willst).

Achja, wenn Du den Wert statt zu löschen durch "XY" ersetzst, kannst Du nachher mit der Schnellauswahl nach allen Bemassungen mit der Textüberschriebung "XY" suchen.

In beiden Fällen wir der Inhalt der Textüberschreibung gelöscht/geändert.

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt! 

    Ich bin ein Traffic-Dieb!  

[Diese Nachricht wurde von CADuceus am 09. Sep. 2005 editiert.]

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

---

Danke für die schnelle Antwort.
Hilft mir aber nur bedingt, weil der Urheber dieses Problems, leider auch die Zeichnungen im Ausgangszustand gelassen hat. Sprich: es stimmt gar nichts.

Micha

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

---

Zitat:

---

Original erstellt von Pilly:
[...]der Urheber dieses Problems, leider auch die Zeichnungen im Ausgangszustand gelassen hat.[...]

---

Was meinst Du mit Ausgangszustand?

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

---

OK, meine Antwort war nicht eindeutig.
Deshalb ein Bsp.:
Abstand zwischen 2 Kanten wurde mit 100 erstellt, dann mal locker lässig mit 150 überschrieben. Der gezeichnete Abstand blieb aber 100!
Das ist mein Problem, die Zchng. sind teilweise für`n A....
Habe aber keine Lust und auch keine Zeit alle Zeichnungen komplett neu zu erstellen.
Deswegen meine Frage nach dem Markieren.

Micha

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

---

Zitat:

---

Original erstellt von Pilly:
[...]Abstand zwischen 2 Kanten wurde mit 100 erstellt, dann mal locker lässig mit 150 überschrieben. Der gezeichnete Abstand blieb aber 100![...]Deswegen meine Frage nach dem Markieren.

Micha

---

Und jetzt willst Du z.B., dass der Abstand tatsächlich 150 beträgt?!
Da nützt Dir doch aber auch das Markieren nichts!
Du musst doch trotzdem nachher jedes Objekt, dessen überschriebene Bemassung markiert wurde, manuell abändern. 
Sowas wie "Rückwärtsassioziative Bemassung" muss, glaube ich, noch erfunden werden. 

Wenn Du, um zu Deinem Beispiel zurückzukommen, erste Antwort befolgst, und alle Überschreibungen löschst, zeigt das Mass in diesem Beispiel wieder 100 an.

Ich hab' aber immer noch nicht kapiert, ob Du schlussendlich die Bemassung oder die Objekte korrigieren willst.

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt! 

  Ich bin ein Traffic-Dieb! 

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

---

Hallo,

ich will wirklich beides.
Mein Problem besteht darin, das nur einige Zeichnungen so verkorkst wurden und dabei leider auch nur ein Teil der Bemassungen.
Bis jetzt habe ich das so gelöst, das ich bei den Bemassungen mit dem Texteditor kontrolliert habe, ob "<>" drinsteht. Wenn nicht, farbig markiert und dann die Zeichnungen so abgeändert, das sie zum Schluss
korrekt sind. Manche Zeichnungen gehen nämlich als dxf zum lasern und da kommt es nicht so gut, wenn ich da völlig verkorkste Sachen hinschicke. Und jede alte Zeichnungen mit allen Bemassungen händisch kontrollieren macht nicht wirklich Spass!

Ich hoffe, ich habe mich jetzt klar genug ausgedrückt.

Ansonsten: es ist Freitagnachmittag und im Büro sind 30+ °C (als Entschuldigung).

Micha

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

---

schön isses nicht und auch kein Turbo, aber vielleicht hilfts zum Orten;-)

Code:

---

Sub xxx()
  Dim lay As Object, ent As AcadEntity
  On Error Resume Next
  Set lay = ThisDrawing.Layers.Add("dim_override")
  lay.color = 5
  On Error GoTo 0
  For Each ent In ThisDrawing.ModelSpace
    If TypeName(ent) = "IAcadDimRotated" Or TypeName(ent) = "IAcadDimAligned" Then
      If ent.TextOverride <> "" Then ent.Layer = "dim_override"
    End If
  Next
End Sub

---

Gruss Nancy   

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

---

Ähnliches Thema mit Lisp.

------------------
MfG Proxy

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