| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO |
Autor
|
Thema: Äquidistante einer Kurve + andere Farbe (567 mal gelesen)
|
uemit.aydin Mitglied
Beiträge: 17 Registriert: 29.10.2002
|
erstellt am: 16. Apr. 2003 15:11 <-- editieren / zitieren --> Unities abgeben:
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 |
baumgartner Mitglied Dipl.-Ing. Maschinenbau
Beiträge: 715 Registriert: 05.01.2001 Ing.-Büro Andreas Baumgartner bietet Lösungen rund um ME10. * ME10-Makros * ME10-Makroschulungen
|
erstellt am: 16. Apr. 2003 22:38 <-- editieren / zitieren --> Unities abgeben: Nur für uemit.aydin
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 |
H.annes Mitglied CAD-Pfriemler
Beiträge: 482 Registriert: 02.07.2001 ME10 8.7 - PTC DirectDrafting 19.00; OSM 15.xx - PTC DM 19.xx
|
erstellt am: 17. Apr. 2003 07:53 <-- editieren / zitieren --> Unities abgeben: Nur für uemit.aydin
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 |
baumgartner Mitglied Dipl.-Ing. Maschinenbau
Beiträge: 715 Registriert: 05.01.2001 Ing.-Büro Andreas Baumgartner bietet Lösungen rund um ME10. * ME10-Makros * ME10-Makroschulungen
|
erstellt am: 17. Apr. 2003 09:42 <-- editieren / zitieren --> Unities abgeben: Nur für uemit.aydin
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 |
H.annes Mitglied CAD-Pfriemler
Beiträge: 482 Registriert: 02.07.2001 ME10 8.7 - PTC DirectDrafting 19.00; OSM 15.xx - PTC DM 19.xx
|
erstellt am: 17. Apr. 2003 10:04 <-- editieren / zitieren --> Unities abgeben: Nur für uemit.aydin
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 |
Andreas 253 Mitglied
Beiträge: 157 Registriert: 01.03.2002
|
erstellt am: 17. Apr. 2003 13:38 <-- editieren / zitieren --> Unities abgeben: Nur für uemit.aydin
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 |
Andreas 253 Mitglied
Beiträge: 157 Registriert: 01.03.2002
|
erstellt am: 17. Apr. 2003 13:54 <-- editieren / zitieren --> Unities abgeben: Nur für uemit.aydin
|
uemit.aydin Mitglied
Beiträge: 17 Registriert: 29.10.2002
|
erstellt am: 17. Apr. 2003 16:13 <-- editieren / zitieren --> Unities abgeben:
|