Mehrere horizontale Hilfslinien als Makro (PTC Engineering Solutions/PTC Creo Elements/Direct Drafting) - Lösung vorhanden!

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Creo

Autor

Thema: Mehrere horizontale Hilfslinien als Makro (920 mal gelesen)

me10nutzer
Mitglied

Senden Sie eine Private Message an me10nutzer

Schreiben Sie einen Gästebucheintrag für me10nutzer

Beiträge: 20
Registriert: 10.02.2017

erstellt am: 01. Apr. 2019 13:20

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hilfslinie.jpg

Hallo,
ich möchte eine horizontale Hilfslinie setzen → C_LINE Assistance HORIZONTAL
und zusätzlich zu dieser Hilfslinie soll eine horizontale Hilfslinie im Abstand von 10 automatisch 1x oberhalb und 1x unterhalb gesetzt werden.

Wie muss ich das in mein unteres Makro schreiben?
DEFINE HilfslinieHorizont_10
LOCAL Punkt
local OK
repeat
let OK 0
READ PNT 'Punkt der waagerechten Hilfslinie angeben:' Punkt
C_LINE HORIZONTAL PH
?????
end
until (OK = end)
END_DEFINE

[Diese Nachricht wurde von me10nutzer am 01. Apr. 2019 editiert.]

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

Roman
Mitglied

Senden Sie eine Private Message an Roman

Schreiben Sie einen Gästebucheintrag für Roman

Beiträge: 674
Registriert: 16.01.2001

ME10 v20.4.1, Win10
SD v20.4.1, Win10
Windchill 12.02
Creo 8.0.2 in der Einführungsphase

erstellt am: 01. Apr. 2019 13:44

<-- editieren / zitieren -->

Unities abgeben:

Nur für me10nutzer

Bis auf die Schleife sollte es so gehen (quick and dirty, geht auch eleganter):

Code:
DEFINE tf1
LOCAL Pxy
LOCAL Px
LOCAL Pxy1
LOCAL Pxy2
LOCAL Py1
LOCAL Py2
READ PNT 'Punkt der waagerechten Hilfslinie angeben:' Pxy
C_LINE HORIZONTAL Pxy
LET Px (X_OF Pxy)
LET Py (Y_OF Pxy)
LET Py1 (Py - 10)
LET Py2 (Py + 10)
LET Pxy1 (PNT_XY Px Py1)
LET Pxy2 (PNT_XY Px Py2)
C_LINE HORIZONTAL Pxy1
C_LINE HORIZONTAL Pxy2
END
END_DEFINE

Roman

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

me10nutzer
Mitglied

Beiträge: 20
Registriert: 10.02.2017

erstellt am: 01. Apr. 2019 13:59

<-- editieren / zitieren -->

Unities abgeben:

Danke Roman!

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

der_Wolfgang
Ehrenmitglied V.I.P. h.c.
Tastenhauer

Senden Sie eine Private Message an der_Wolfgang

Schreiben Sie einen Gästebucheintrag für der_Wolfgang

Beiträge: 2017
Registriert: 3.20.

● PE6+8@home
● W10 Pro Build19044.2006
● Drafting V17~V20.5.1
● Modeling V17~V20.5.1
● @Scirotec201804

erstellt am: 01. Apr. 2019 20:49

<-- editieren / zitieren -->

Unities abgeben:

Nur für me10nutzer

Zitat:
Original erstellt von me10nutzer:
Danke Roman!

Prima!

@me10nutzer: wenn du mehrere solcher 3-er-Hilfslinien benötigst kannst du auch die Schleifer wieder drum rum machen. Mit "ESC drücken" oder "CANCEL klicken" solltest Du auch so aus der vermeintlichen Endlosschleife wieder aussteigen können (also den Macro beenden).

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)