---

Hallo

Leider bin ich was Drafting betrift ein totaler Neuling.
Mein Problem ist das ich erst seit ca 1 Jahr auf Drafting 17.0 zeichne und nun bei einer neuen Firma auf die 18.0 Version umgestiegen bin.

Bei meiner alten Firma hatte ich ein Macro welches mir erlaubte Linien mit einem klick vom Layer her umzuändern.

Sprich ich zeichne was mit Aktuellen Layer sprich

Weiß durchgehend schriftstärke 0,7

und möchte diese Linien mit einem klick auf ein anderes Layer welchen ich dann aktiv habe abändern.
zb Rot Strichliert 0,35 Strichstärke

möchte diese Linien auch mit einem Kasten oder einzeln auswählen können.

Ist das möglich wen ja wie ? Für den Fall das es mit einem Macro möglich ist bitte um erklärung wo ich das macro hinspeicher und wie ich dieses dann auf einen Button festlegen kann.

Vielen,vielen Dank im Voraus

mfg Edi

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

---

Hallo Edi,

um erst mal weiterzukommen ändern der Farbe:

change_color ( white, yellow, red, blue, green)

Änder des Linientypes:

change_linetype (danach klickst Du unten den Linientyp an und machst einen Kasten drumrum.

Gruß Gerhard

------------------
Jeder erfüllte Wunsch ist ein Traum weniger.
Träume sind die Sonnenstunden der Hoffnung.

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

---

Hallo

Danke auf herkömliche weise ist das ja kein Problem. Ich meine das es auch mit einem Schritt geht und ich nicht die Linien in 2 Schritten bearbeiten muss.

Aber danke für deine Antwort.

Grüße Edi

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

---

Hallo Edi

ein kleines Macro, daß Linienart und Farbe gleichzeitig ändert durch Antippen der Linie oder Einrahmen mehrerer Linien mit einem Kasten:

DEFINE mittellinie
  LOCAL P1
  LOCAL P2
  LOOP
    READ PNT 'Element antippen oder Elemente wählen' P1
    INQ_ELEM P1
    IF ((INQ 403 = C_LINE) OR (INQ 403 = C_CIRCLE))
      BEEP
    ELSE_IF (INQ 403 = END)
      READ PNT 'gegenüberliegenden Eckpunkt des Rahmens wählen' RUBBER_BOX P1 P2
      CHANGE_LINETYPE DOT_CENTER P1 P2 END
      CHANGE_COLOR YELLOW P1 P2 END
    ELSE
      CHANGE_LINETYPE DOT_CENTER P1 END
      CHANGE_COLOR YELLOW P1 END
    END_IF
  END_LOOP
END_DEFINE

Mußt du halt noch auf deine genauen Bedürfnisse anpassen.

Frage: Warum arbeitest du eigentlich mit Layern?
Dafür gibt es doch in ME10 (Drafting) die weit bessere Funktion mit der Teilestruktur.

Und Strichstärken haben normalerweise die Dicke 0.
Nur bei den Plottereinstellungen werden die Strichstärken in Abhängigkeit von Linienart und Farbe definiert.

Gruß
Thomas

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

---

Hallo Edi,

ein Makro findest Du auf meiner Seite bei den kostenlosen Makros.
Es muss aber ein Kniff angewendet werden.
Weil der erste CHANGE_... Aufruf die Voraussetzungen für den zweiten CHANGE_... Aufruf verändert z.B. wenn durch das CHANGE_COLOR die Farbe erst von weiss nach rot geändert wird, kann ich beim CHANGE_LINETYPE nicht mehr die weissen Linien wählen, sie sind ja jetzt rot!!
Deswegen muss in einem ersten Schritt die Selektion von weissen durchgehenden Linien erst einmal auf die Farbe schwarz geändert werden werden.
Danach kann ich dann auch die getrennten Aufrufe durchführen und wähle jeweils die schwarzen Linien aus.
PUHH Dieser Text war schlimmer als das Makro      

Gruß Robert

PS
Das Makro eva_col_lin_1 ändert ALLE Linien, auf die die Bedingungen zutreffen.
Auf Basis von Thomas's Makro findest Du ein zweites (eva_col_lin_2), das die
Auswahl von Farbe und Linienart über die Listboxen macht und danach
die Elemente durch Anklicken oder Einrahmen ändert, bis Du mit ENDE das Makro abbrichst.

------------------
Homepage: www.me10-makros.de

[Diese Nachricht wurde von r.hoffmann am 16. Jan. 2014 editiert.]

[Diese Nachricht wurde von r.hoffmann am 16. Jan. 2014 editiert.]

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

---

Das mit den Layern ist noch ein überbleiblse aus der Zeit wie ich mit anderen Programmen gearbeitet habe.

Aber ich meinte genau das was ihr da geschrieben habt und vielen dank für die Hinweise bzw eure Hilfe ich werde mir das nun mal anschaun und gegebenen Fall anpassen.

Danke nochmal.
Gruß Edi

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