---

Hallo,

ich möchte mir gerne einen zusätzlichen Befehl für Hilfsgeometrieen erstellen.

Sollte ähnlich sein, wie der Befehl Hilfsgeometrie Parallel. Nur dass ich den eingegebennen Wert halbieren möchte.
Also Wert 20 eintragen, gezeichnet wird aber eine parallele im Abstand von 10mm. Gedacht ist das ganze für die Schnittdarstellung von runden Werkstücken. Hier muss ich immer im Kopf den Durchmesserwert halbieren, um den radialen Abstand zur Mittelachse zu Zeichnen.

Mit Trace habe ich den Befehl Parallel mal betrachtet:

C_LINE Assistance
LET Dummy 0
IF ( UA_GET_COPILOT ) 0 PARALLEL
C_LINE Assistance
LET Dummy 0
IF ( UA_GET_COPILOT ) 0 PARALLEL 20
PICK_VP_PNT 1 26.4154758079696,0.0876820413375228
PICK_VP_PNT 1 26.5645707105726,10.0770405157361

Nur leider sehe ich hier keine möglichkeit ein kurzes kompaktes /2 einzufügen.
Muss ich mir den kompletten Befehl neu bauen?

Gruß,
Kitzi

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

---

Hallo

Hab ich genau so bei uns im Einsatz

DEFINE Dm
  LOCAL D1
  READ NUMBER 'Durchmesser eingeben' D1
  ((D1)/2)
END_DEFINE

Funktioniert bei jedem Befehl, egal ob Hilfslinie-parallel, Linie-Länge oder Kreis-Durchmesser .
Immer wenn du eine Zahl eingeben sollst.

Eingabe 20  ->  20
Eingabe Dm 20  -> 10  (Leerzeichen bei der Eingabe beachten)

------------------
Gruß
Bernfried
CSWP

http://www.leipold.com

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

---

Perfekt!
ist sogar noch besser als ich mir gedacht hab.

Dankeschön!

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

---

Hallo ,
noch ein Nachreicher.
Wellenzeichnen, ein Klassiker im Maschienenbau.

Auf  http://www.me10.de/  gibt es im Download
die "Makrosammlung von A.Dittrich (05-2004) V1.0"
"tm_11.mac" kannst du dir mal ansehen.

und dann noch
"WORKBOOK - (12-98) V2.1"
Schöner erklärender Text dabei.
Da gibts jede Menge Normteile.
Aber im Menu 2, "Workbook_macros_2" siehe "Welle_absa"
Zeichnet direkt die Welle mit den Durchmessern und Absätzen, ganz ohne Hilfsgeo 
Wellenende + Zentr.Bohr sind auch noch dabei.

Viel Spass beim Ausprobieren 

------------------
Gruss Friedhelm

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

---

Hallo Kitzivofelbra,

Zitat:

---

Original erstellt von Kitzivofelbra:
Perfekt!
ist sogar noch besser als ich mir gedacht hab.

Dankeschön!

---

Ich habe das so gelöst mit Geometrielinien.

DEFINE Form_parallel
  LOCAL L1
  LOCAL L2
  READ NUMBER 'Parallelen Abstand im Durchmesser eingeben D = ?' L1
  LET L2 (L1/2)
  C_LINE PARALLEL L2 (- L2)
END_DEFINE

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