---

Hallo,

Habe versucht mit dem folgendem Befehl alle weißen Maßtexte schwarz zu färben.
CHANGE_DIM_TEXTS DIM_ALL BLACK SELECT WHITE CONFIRM END
Leider keine Reaktion.
Wenn ich dagegen alle Maßtexte anwähle funktioniert der Befehl einwandfrei.
CHANGE_DIM_TEXTS DIM_ALL BLACK SELECT ALL CONFIRM END

Hat jemand  eine Idee, wie ich nur alle weißen Maßtexte auswählen kann?

Gruß
Edgar

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

---

>> CHANGE_DIM_TEXTS DIM_ALL BLACK SELECT WHITE CONFIRM END

Damit aenderst Du alle Bemassungen, deren Masslinien weiss sind und
nicht deren Masszahlen weiss sind.

Wie es richtig lauten muesste weiss ich leider auch nicht.

Gruss
WoHo

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

---

Hallo Edger,

der Befehl für die Änderung der Maßtextfarbe lautet:

CHANGE_DIM_TEXT_COLOR

Gruß

Frank

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

---

Hallo Frank,
Komme leider nicht dahinter wie das mit dem Befehl CHANGE_DIM_TEXT_COLOR funktionieren soll.

Gruß
Edgar

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

---

Hallo Edgar,

wenn du CHANGE_DIM_TEXT_COLOR in die Befehlszeile eingibst, dann wirst Du nach der neuen Farbe gefragt. Du gibst zum Beispiel RED ein, Return
und kannst dann mit: wählen Bemaßung alles, alle aktiven Maßtexte
umfärben.
In einem Befehl würde das heißen:

CHANGE_DIM_TEXT_COLOR RED SELECT DIMENSIONS ALL CONFIRM END

Gruß

Frank

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

---

Hallo Frank,
Ja ok, so würde es funktionieren. Aber ich möchte nur alle weißen Maße umfärben, die gelben Maße, die auch auf der Zeichnung sind, nicht.

Gruß
Edgar

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

---

Hallo Edgar,

haben die Maßlinien die gleiche Farbe?
Dann versuchs mal mit:

CHANGE_DIM_TEXT_COLOR RED SELECT DIMENSIONS WHITE CONFIRM END

White steht hier für die Farbe der Maßlinien.

Gruß

Frank

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

---

Hallo Edgar,

jetzt müßte es klappen.

CHANGE_DIM_TEXT_COLOR BLACK SELECT DIM_TEXT_COLOR WHITE ALL CONFIRM END

Gruß

Frank

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

---

Hallo Frank,
Danke für deinen Einsatz, hab das ganze nochmal ausprobiert,
leider werden mit
CHANGE_DIM_TEXT_COLOR BLACK SELECT DIM_TEXT_COLOR WHITE ALL CONFIRM END

wieder alle Maße umgefärbt, und nicht nur die weißen.

Gruß
Edgar

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

---

Hallo Edgar,

Du hast natürlich recht, hab mich gestern täuschen lassen.
Da bleibt wohl nur die Möglichkeit

CHANGE_DIM_TEXT_COLOR BLACK einzugeben und die Bemaßungen anzutippen
oder mehrere einzurahmen.

Tut mir leid

Gruß

Frank

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

---

Hallo Edgar,

hier wird wahrscheinlich nur ein Makro zum Ziel fuehren, weil man
wie es aussieht keine Moeglichkeit hat bestimmte Bemassungstextfarben direkt zu waehlen.

Ein Loesungsansatz waere vielleicht folgender:
1.) Nacheinander alle Bemassungen selektieren.
2.) Wenn eine Bemassung gefunden, dann mittels DA_STYLE_GET
die Bemassungswerte als aktuelle Einstellung uebertragen.
3.) Dann abfragen, welche Bemassungstextfarbe aktuell eingestellt ist.
4.) Wenn WHITE, dann den Masstextpunkt ermitteln und ueber diesen
die Farbe BLACK zuweisen.
5.) Am Ende Wieder die aktuellen Bemassungseinstellungen setzen.

Das ganze funktioniert aber nur fuer das aktuelle Teil.
Wenn man das auf die ganze Zeichnung anwenden will, dann muesste
man das natuerlich nacheinender mit allen Teilen so machen.

Leider keine fixfertige Loesung, aber zumindest ein Ansatz dafuer.

Gruss
RainerH.

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

---

Ein kleines Makro gibt es da schon, jedoch arbeitet dieses
mit der Auswertung der MI-Datei.
Das Makro hab ich mal angehaengt.
Die Zeichnung wird als MI-Datei gespeichert.
Danach wird die Zeichnung geloescht.
Die MI-Datei nach weissen Masszahlen
durchsucht und diese werden dann auf schwarz geaendert.
Zum Schluss wird die neue Datei geladen.
Hier das Makro:

define bem_mac
  local bem_mac_file_1
  local bem_mac_file_2
  local zeile
  local zaehler
  local farbcode_1
  local farbcode_2
  let farbcode_1 "7" {weiss}
  let farbcode_2 "0" {schwarz}
  let bem_mac_file_1 "bem_mac_file_1"
  let bem_mac_file_2 "bem_mac_file_2"
  edit_part top
  store mi all del_old bem_mac_file_1
  delete all confirm
  open_infile 9 bem_mac_file_1
  open_outfile 8 del_old bem_mac_file_2
  loop
    read_file 9 zeile
    exit_if (zeile="END-OF-FILE")
    if (zeile="DTA")
      write_file 8 zeile
      let zaehler 1
      repeat
        read_file 9 zeile
        write_file 8 zeile
        let zaehler (zaehler+1)
      until (zaehler=10)
      read_file 9 zeile
      if (zeile=farbcode_1)
        write_file 8 farbcode_2
      else
        write_file 8 zeile
      end_if
    else
      write_file 8 zeile
    end_if
  end_loop
  close_file 9
  close_file 8
  load bem_mac_file_2
end_define

Gruss

WoHo

[Diese Nachricht wurde von woho am 13. Feb. 2004 editiert.]

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

---

Hallo Edgar,

dass ich am Freitag den 13. nicht nur grosse Sprueche klopfe -
Mit diesem Makro sollte es nun klappen, auch wenn in der Zeichnung
mehrere Teile vorhanden sind - probiers mal aus...

Aus reiner Neugier noch:
Warum willst Du eigentlich die Bemassungstexte auf schwarz setzen ???
Diese sind aber am Bildschirm trotdem wieder sichtbar, wenn
die Hervorhebung eingeschalten ist und das Teil nicht editiert ist -
nur gedruckt werden sie nicht, wenn man das so eingestellt hat.
Dies koennte man umgehen, wenn man die jeweiligen Bemassungen nicht auf schwarz setzt,
sondern im Makro in "" abaendert - Die Toleranzen, Praefixe, Postfixe wuerden in diesem
Fall aber dennoch erhalten bleiben.....

P.S. Die Loesung von woho finde ich auch eine gute Idee,
wenn man das MI-Interfacing intus hat.

Gruss
RainerH.

{*** Makro - Anfang ***}

DEFINE Masstextfaerbung_macro
LOCAL Teileanzahl
LOCAL Teilenummer
LOCAL Masstextpunkt

INQ_ENV 8
LET Teileanzahl (INQ 5)
INQ_ENV 7
LET Teilenummer (INQ 302)
SAVE_ENVIRONMENT DEL_OLD 'Env.tmp'
WHILE (Teileanzahl > 0)
TRAP_ERROR
EDIT_PART ('~' + (STR Teileanzahl))
IF (NOT CHECK_ERROR)
INQ_SELECTED_ELEM DIMENSIONS ALL
LOOP
EXIT_IF (INQ 403 = END)
DA_STYLE_GET (INQ 101)
LET Masstextpunkt (INQ 101)
INQ_ENV 16
IF (INQ 305 = 'WHITE')
CHANGE_DIM_TEXT_COLOR BLACK Masstextpunkt
END_IF
INQ_NEXT_ELEM
END_LOOP
END_IF
LET Teileanzahl (Teileanzahl - 1)
END_WHILE
EDIT_PART ('~' + (STR Teilenummer))
INPUT 'Env.tmp'
{PURGE_FILE 'Env.tmp' CONFIRM}
END_DEFINE

{*** Makro - Ende ***}

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

---

Hallo woho, RainerH,
Perfekt, eure Makros !!!

Der Hintergrund ist folgender:
Infos auf der Zeichnung, die nicht auf dem Ausdruck erscheinen sollen, färben wir "grau". Vorteil zu schwarz, grau kann man auf schwarzem Hintergrund erkennen. 
Dank des PDF-Tools von Karl-josef_wernet sind wir auch in der Lage alle Zeichnungen in PDF zu übersetzen. Einziges Problem, die grauen Linien tauchen trotz PLOT_TRANSFORMATION ALL RGB_COLOR 0.6 0.7 0.9 SAME 0 in dem PDF-File wieder auf.
Da schwarze Linien im PDF-File nicht erscheinen bin ich kurzerhand hingegangen und hab alle grauen Linien vor dem PDF-File erzeugen in schwarze Linien umgewandelt. Nur bei Maßangaben in grau (kommt allerdings auch selten vor)hatte ich bis Freitag noch keine Lösung.

Gruß
Edgar

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

---

Frage an die Admins,
Wieso kann ich dem RainerH für den zweiten Beitrag nicht 10Uis zukommen lassen?

Gruß
Edgar

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