---

Morgen zusammen!

Ich habe mal eine Frage: Gibt es eine Möglichkeit, eine Koordinatentabelle automatisch in ME 10 zu generieren? Wir müssen mehrere Platten für unseren Werkzeugbau zeichnen, die dann von Hand an der CNC Maschine programmiert werden müssen. Von Hand die Maße aufschreiben ist zu aufwendig...und der Programmierer wird auch nicht gerade erfreut sein, 100 Maße aus einer DIN A0 Zeichnung zu suchen.

Über Hilfestellung wäre ich dankbar...

Thorsten

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

---

hallo,
mit INQ_ELEM lassen sich die Elemente abfragen. Je nach Elementtyp finden sich dann in den Abfragen INQ 101, INQ 102, ... Diese Koordinaten lassen sich dann auswerten und in einer Tabelle auf die Zeichnung schreiben oder auch mit NC-Sätzen ergängzt in einer Datei ablegen.
Grüsse aus dem Schwarzwald

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

---

Hallo!
Ich habe mal mit dem Befehl gespielt...allerdings ohne Erfolg!
Kannst Du da vielleicht noch etwas mehr zu sagen???
Danke schonmal...

Thorsten

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

---

hallo,

zeichne z.B. einen Kreis:
READ "Kreis antippen" p0
INQ_ELEM p0
LET Mittelpunkt (INQ 101)
LET Radius (INQ 3)

zeichne eine Linie:
READ "Linie antippen" p0
LET Anfangspunkt (INQ 101)
LET Endpunkt (INQ 102)

Lese dazu in der ME10-Hilfe unter INQ_ELEM, INQ_SELECTED_ELEM
Ich hoffe dass ich Dir jetzt weiter helfen konnte. Der Rest denke ich ist Arbeit und auch Erfahrung, insbesondere wenn Du plötzlich 100 Kreise vor Dir hast. Einige meiner Kunden verzichten schon mal auf die echte Bemassung und schreiben aus der Zeichnung gleich ein NC-Programm raus. Die Elemente können in der Zeichnung automatisch nummeriert werden, eine Koordinatentabelle ersetzt die Bemassung.

Grüsse aus dem Schwarzwald

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

---

Hallo,
was Kollege Baumgartner da schreibt ist völlig korrekt zu ergänzen wäre da nur noch INQ_NEXT_ELEM:

DEFINE Wahl
  LOCAL P1
  LOCAL P2
  LOCAL A
  LOCAL I
  LET I 1  { oder vielleicht doch bei 0 anfangen ?? }
  READ PNT '1. Ecke des Auswahlrahmens antippen' P1
  READ PNT '2. Ecke des Auswahlrahmens antippen' RUBBER_BOX P1 P2
  INQ_SELECTED_ELEM P1 P2
  LET A (INQ 14) { Anzahl der ausgewählten Elemente }
  IF (INQ 403=CIRCLE)
    .....
  ELSE_IF (INQ 403=LINE)
    .....
  END_IF
  WHILE (I<=A)
    INQ_NEXT_ELEM
        .....
    LET I (I+1)
  END_WHILE
END_DEFINE

untestet.

Gruß aus Ostwestfalen

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

---

Hallo!

Gibt es die Möglichkeit, mehrere Elemente (Bohrungen) innerhalb
einer Fläche (ähnlich des Befehls Array_Property) mit einem Klick
zu selektieren und auf diese mittels NEXT_INQ_ELEM zuzugreifen?

Gruss Daniel

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

---

hallo,
...
READ PNT "untere linke Ecke antippen" P1
READ PNT "obere rechte Ecke antippen" RUBBER_BOX P1 P2
INQ_SELECTED_ELEM SELECT BOX P1 P2
LOOP
EXIT_(IF INQ 14 = 0)
  IF (INQ 403 = CIRCLE)
   ...
  ELSE_IF (INQ 403 = LINE)
   ...
  END_IF
  INQ_NEXT_ELEM
END_LOOP

Aber siehe Dir die Lösung vom ME10-Fan an. Ist doch das Selbe. Vielleicht solltest Du mal einen Workshop zur Makroprogrammierung besuchen. Dort zeige ich Dir solche Tricks.

Grüsse aus dem Schwarzwald  

[Diese Nachricht wurde von baumgartner am 15. März 2002 editiert.]

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