---

Wie kann aus einer ME10 Zeichnung alle Texte mit zB. Grösse 7, der Farbe cyan und der Schriftart hp_block_v in eine Datei ausgelesen werden?
Zugleich sollte von jedem Text der Ort festgehalten werden.
(x,y-Koordinate)
Diese Angaben wollen wir weiter für ein Ersatzteilprogamm weiterverwenden.
Besten Dank für Ihre Mithilfe.
am

------------------
am

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

---

hi am
siehe mal in der hilfe nach inq_env und inq_elem

gruss aus finsterhennen

------------------
awi
André Weidmann

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

---

Hier ein Ausschnitt aus einem meiner Makros.
Hoffe, das hilft weiter.

DEFINE Textersetzen
  LOCAL P
  LOCAL POSI
  LOCAL Laenge
  LOCAL TextAusZeichnung
  LOCAL OKIn
  LOCAL OK
  LOCAL InDateiName
  LOCAL InDateiNummer
  LOCAL OutDateiName
  LOCAL OutDateiNummer
  LOCAL Zeile
  LOCAL ZeileLinks
  LOCAL ZeileRechts
  LOCAL Zeilennummer
  LOCAL Zeilenzahl
  LET InDateiName 'C:\TEMP\POS.TXT'
  LET InDateiNummer 9
  LET Tabellenname 'EVA_POSITIONEN'

  INQ_SELECTED_ELEM TEXTS ALL
  WHILE (INQ 14)
    IF (INQ 403 = TEXT)
      LET TextAusZeichnung (INQ 902)

| Wenn Elementtyp = TEXT (Text)                                              |
+------------------+--------------+-------------------------------------------+
|                  |      3      | Textjustierung (1-9)                      |
|                  |      4      | Textzeilenabstand (Durchschuß)            |
|                  |      5      | Textverhältnis (Breite/Höhe)              |
|                  |      6      | Texthöhe (Benutzereinheiten)              |
|                  |      7      | Textneigung (Benutzerwinkeleinheiten)    |
|                  |      8      | Textwinkel (Benutzerwinkeleinheiten)      |
|                  |    101      | Textursprungspunkt                        |
|                  |    302      | Text-1-Byte-Schriftname                  |
|                  |    303      | Text-2-Byte-Schriftname                  |
|                  |    601      | Textrahmen (AUS, KASTEN, BALLON)          |
|                  |    602      | Textfüllung (AUS oder EIN)                |
|                  |    902      | Erster Textstring von Text                |
|                  |    903      | Nächster Textstring von Text              |
+------------------+--------------+-------------------------------------------+
          IF (TextAusZeichnung=ZeileLinks) {Vergleichswert aus Tabelle}
            TRAP_ERROR
              CHANGE_TEXT ZeileRechts (INQ 101) END {Text an Ursprung ersetzen}
            IF (CHECK_ERROR)
              DISPLAY('Fehler: Text '+ZeileLinks+' konnte nicht ersetzt werden')
            END_IF
          END_IF

      INQ_NEXT_ELEM
    END_IF                          {  IF (INQ 403 = TEXT)          }
  END_WHILE                        {  WHILE (INQ 14)                }
END_DEFINE

Robert

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

---

Besten Dank für die Antwort.
Sieht gut aus. Daraus ist sicher was zu machen!
Gruss am

------------------
am

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

---

Hallo am,
meine Antwort kommt spät, hoffentlich nicht zu spät.

Wir haben neben dem Text mit einem Makro einen schwarzen Punkt gesetzt und den als Einzelteil mit einem aussagekräftigem Namen z.B. dem Text selbst o.ä. versehen. Dieses Teil kann man immer wieder mit einem Makro finden.

Vielleicht hilft dir das.

Gruß aus Ostwestfalen

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