Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  PTC Creo Elements/Direct Drafting
  Hilfe bei ME10 Makro Stiftlinien ändern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Creo
Autor Thema:  Hilfe bei ME10 Makro Stiftlinien ändern (695 mal gelesen)
MarcoJ
Mitglied
CAD-System-Admin und Konstrukteur


Sehen Sie sich das Profil von MarcoJ an!   Senden Sie eine Private Message an MarcoJ  Schreiben Sie einen Gästebucheintrag für MarcoJ

Beiträge: 48
Registriert: 31.10.2006

erstellt am: 22. Apr. 2016 09:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,
ich benötige eine kleine Hilfe bei einem ME10-Makro.

Ich möchte mit einem Makro eine vorhandene Linie die Linienart und Linienfarbe gleichzeitig ändern.

DEFINE Stiftlin_Aend2
  CHANGE_COLOR (RED)
  CHANGE_LINETYPE (DASHED)
END_DEFINE

Bei dieser Schreibweise des obigen Makros ändert er nur die Linienart, also den letzten Befehl in dem Makro (Change_Linetype).

Wie kann ich das Makro schreiben, dass beide Befehle ausgeführt werden.

Ich bin ein Neuling in Sachen Makros.

Vielen Dank.
Grüße Marco

------------------
Buss SMS Canzler GmbH
Konstruktion
www.sms-vt.com

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

MarcoJ
Mitglied
CAD-System-Admin und Konstrukteur


Sehen Sie sich das Profil von MarcoJ an!   Senden Sie eine Private Message an MarcoJ  Schreiben Sie einen Gästebucheintrag für MarcoJ

Beiträge: 48
Registriert: 31.10.2006

Intel(R) Xeon(R) W-2125 4.01GHz
32 GB RAM
SWX2021 SP3.0
Enterprise PDM 2021 SP3.0
NVIDIA Quadro P4000 (Treiberversion: 27.21.14.6140)
Win10 Pro(64bit)

erstellt am: 22. Apr. 2016 09:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hat sich erledigt!
hätte etwas besser suchen sollen. 

Mit diesem Makro funktioniert es:

DEFINE Stiftlin_Aend1
  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 SOLID P1 P2 END
      CHANGE_COLOR WHITE P1 P2 END
    ELSE
      CHANGE_LINETYPE SOLID P1 END
      CHANGE_COLOR WHITE P1 END
    END_IF
  END_LOOP
END_DEFINE

DEFINE Stiftlin_Aend2
  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 DASHED P1 P2 END
      CHANGE_COLOR RED P1 P2 END
    ELSE
      CHANGE_LINETYPE DASHED P1 END
      CHANGE_COLOR RED P1 END
    END_IF
  END_LOOP
END_DEFINE

DEFINE Stiftlin_Aend3
  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 RED P1 P2 END
    ELSE
      CHANGE_LINETYPE DOT_CENTER P1 END
      CHANGE_COLOR RED P1 END
    END_IF
  END_LOOP
END_DEFINE

Danke an thomas.h
Linienart und Farbe ändern (4. Beitrag)

Grüße Marco

------------------
Buss SMS Canzler GmbH
Konstruktion
www.sms-vt.com

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

r.hoffmann
Mitglied
Techniker


Sehen Sie sich das Profil von r.hoffmann an!   Senden Sie eine Private Message an r.hoffmann  Schreiben Sie einen Gästebucheintrag für r.hoffmann

Beiträge: 127
Registriert: 07.12.2006

OSD 13.2 20.4

erstellt am: 24. Apr. 2016 15:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für MarcoJ 10 Unities + Antwort hilfreich

Hallo Marco,

darf es etwas universeller sein?
Auf meiner Seite findest Du unter
http://www.me10-makros.de/eva_col_lin_2.php
ein ähnliches Makro, bei dem Du Linienart und -farbe
vorher wählen kannst.
Bei Deiner Lösung gäbe es theoretisch 64 mögliche Kombinationen.
Wer will dann noch wissen, was das Makro Stiftlin_Aend1 oder
Stiftlin_Aend2 für Werte benutzt.

Gruß


Robert


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

[Diese Nachricht wurde von r.hoffmann am 24. Apr. 2016 editiert.]

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz