---

Hallo zusammen,

habe das folgende Problem:
Wie kann ich eine Äquidistante von einem Linienzug automatisch in einer anderen Farbe darstellen lassen, z.B. rot. Dann kann man sofort erkennen welche Linie nun die Orginale was und welche die Neu.
Oder kann man dann auch noch automatisch die Orginale löschen und nur die Neue Äquidistante behalten?

Danke im voraus

Gruß
Ümit Aydin

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

---

hallo,
ja schreibe Dir ein Makro, oder lass Dir eines dafür schreiben. Habe mich bisher auch immer darüber geärgert. Aber noch nie war der Ärger so gross, dass ich mir ein Makro dafür geschrieben hätte. 

Kleiner ME10-Makrotipp aus dem Schwarzwald:
Nur Mut, entweder allen Elementen der Ursprungslinie eine INFO anhängen oder temporär eine Polyline erzeugen. Anschliessend die Sache wieder zerstören. Welchen Weg besser ist müsste ich jetzt auch erst ausprobieren. Plolyline geht nicht, wenn nicht der gesamte Konturzug  mit identischer Linienart&Farbe gezeichnet ist.

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

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

---

Morgen!

Es geht mit dem Umweg über Infos - mit "INFO / Akt hinzu" erhält jedes neu gezeichnete Element ein eigenes Info. Über dieses Info kann dann die Farbe geändert werden, & anschließend müssen die Infos wieder gelöscht werden.

Vor dem Zeichnen der Äquidistante:

  CHANGE_GLOBAL_INFO "Äquidistante" "" {nur zur Sicherheit}
  ADD_CURRENT_INFO "Äquidistante"

Nach dem Zeichnen der Äquidistante:

  CHANGE_CURRENT_INFO "Äquidistante" ""
  CHANGE_COLOR GREEN INFOS "Äquidistante"
  CHANGE_GLOBAL_INFO "Äquidistante" ""

Gruß aus Österreich,

Hannes

------------------
und i hob in kaulenda gschaut: heit geht da wind.

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

---

Zitat:

---

Original erstellt von H.annes:
...
Vor dem Zeichnen der Äquidistante:
  CHANGE_GLOBAL_INFO "Äquidistante" "" {nur zur Sicherheit}
  ADD_CURRENT_INFO "Äquidistante"
...

---

ja schön, aber damit kann die ursprüngliche Kontur nicht gelöscht werden. Diese Kontur muss ebenfalls mit einem Info versehen werden, oder die Elemente irgendwie gesammelt werden, ggf. sogar als Einzelteil, das später gelöscht wird.

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

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

---

Zitat:

---

Original erstellt von baumgartner:
...
ja schön, aber damit kann die ursprüngliche Kontur nicht gelöscht werden. Diese Kontur muss ebenfalls mit einem Info versehen werden, oder die Elemente irgendwie gesammelt werden, ggf. sogar als Einzelteil, das später gelöscht wird.
...
[/B]

---

Ja, stimmt - meine Antwort bezieht sich nur auf den 1.Teil der Frage, nicht auf den Teil "Oder kann man dann auch noch ..."

Das Löschen der Originalkontur läßt sich nicht so leicht bewerkstelligen - zumindest fällt mir auf die Schnelle nix ein.
Ich hab mal vor Jahrzehnten  was in die Richtung gemacht, mit Konturverfolgung & allem Drum & Dran ... damals - ja damals, als es noch keinen Äquidistanten-Befehl gegeben hat ...

Gruß aus Österreich,
Hannes

------------------
Geruhsame Feiertage alle miteinander!
Ich geh heut noch aufs Prielschutzhaus 

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

---

Hallo Ümit,

Wie der Zufall es will, hab ich vor kurzem sowas gebastelt, scheint mir bisher recht zuverlässig zu sein, solange sich keine Konturen kreuzen.

DEFINE Kontur_loeschen
PARAMETER Auswahlpunkt

LOCAL anz_ele
LOCAL el_zaehl
LOCAL gefunden
LOCAL Startpunkt
LOCAL Endpunkt

INQ_SELECTED_ELEM SELECT Auswahlpunkt CONFIRM END
LET Elementtyp (INQ 403)
IF((Elementtyp = ARC)OR(Elementtyp = FILLET))
LET Startpunkt (inq 102)
LET Endpunkt (inq 103)
ELSE
LET Startpunkt (inq 101)
LET Endpunkt (inq 102)
END_IF
LET P1 Startpunkt
LET P2 Endpunkt
DELETE SELECT Auswahlpunkt CONFIRM END

REPEAT
INQ_SELECTED_ELEM SELECT LINES ALL ADD ARCS ALL ADD FILLETS ALL CONFIRM
LET anz_ele (inq 14)
LET el_zaehl 1
LET gefunden 0
WHILE ((el_zaehl <= anz_ele)AND(gefunden = 0))

LET Elementtyp (INQ 403)
IF((Elementtyp = ARC)OR(Elementtyp = FILLET))
LET Startpunkt (inq 102)
LET Endpunkt (inq 103)
ELSE
LET Startpunkt (inq 101)
LET Endpunkt (inq 102)
END_IF

IF ((Startpunkt = P1)OR(Startpunkt = P2))
LET P1 Startpunkt
LET P2 Endpunkt
DELETE SELECT Startpunkt CONFIRM END
LET gefunden 1
ELSE_IF((Endpunkt = P1)OR(Endpunkt = P2))
LET P1 Startpunkt
LET P2 Endpunkt
DELETE SELECT Endpunkt CONFIRM END
LET gefunden 1
END_IF
LET el_zaehl (el_zaehl + 1)
IF (gefunden = 0)
INQ_NEXT_ELEM
END_IF
END_WHILE
UNTIL (gefunden = 0)
END_DEFINE

Ich hoffe, das hilft Dir weiter!

Gruß
Andreas

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

---

Nachtrag:

Hab gerade festgestellt, das es bei offenen Konturen nur richtig geht, wenn man eine Linie am Ende auswählt!
Ich hab das ganze hauptsächlich an geschlossenen Konturen genutzt.

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

---

Danke Euch allen für die Antworten,

werde diese mal durchprobieren,

weiter so
und...

Frohe Osterfeiertage

Gruß
Ümit Aydin

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