| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO |
|
Autor
|
Thema: Umrechnung Grad Minute (SheetMetal) (1119 mal gelesen)
|
am
Mitglied
Ingenieur FH / Manager Development Tools
   Beiträge: 245
Registriert: 01.02.2003
|
erstellt am: 04. Mai. 2015 07:54  <-- editieren / zitieren -->   Unities abgeben:          
Guten Tag Miteinander wir wollen die Biegewinkel in SheetMetal in Grad Minuten ausgeben. Dazu haben wir folgendes Umrechnungsprogramm im Einsatz: (DEFUN winkel_grad_minute (bend_angle
)
(LET (DEG_ANGLE GRAD MINUTE )
(SETQ DEG_ANGLE (sd-rad-to-deg bend_angle)
GRAD (FLOOR DEG_ANGLE 1)
MINUTE (FLOOR (* (- DEG_ANGLE GRAD) 60) 1)
);setq
(format nil "~A°~A'" GRAD MINUTE)
);let
);defun Leider bringt dies bei einer -90 Grad Biegung das Ergebnis -89°59'.
Hat hier jemand einen Trick wie man dies korrekt rechnet.
Besten Dank im voraus.
Gruss am ------------------
am Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 04. Mai. 2015 10:58 <-- editieren / zitieren -->
Guten Morgen, weiterhelfen kann ich Dir nicht, aber ich ärgere mich jedesmal, wenn ich Winkelangaben in Minuten und Sekunden habe.
Lasst doch den Unfug und stellt alte Zeichnungen auf Grad um. Mann aus der Werkstatt
Juli |
Walter Geppert
Moderator
Frank und Frei
    
Beiträge: 2143
Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.4, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf
HP ZBook 17 G4, Windows 10 Pro 64
|
erstellt am: 04. Mai. 2015 12:21 <-- editieren / zitieren --> Unities abgeben: Nur für am 
Zitat:
Hat hier jemand einen Trick
Offensichtlich ist der Ausgangswert für die Umrechnung auf 90° nicht genau PI/2, sondern nach ein paar Kommastellen abgeschnitten, dadurch ist das Resultat minimal kleiner als erwartet und FLOOR ist da sehr pingelig. Ein Workaround wäre ein Korrekturfaktor, z.B.:
Code:
(SETQ DEG_ANGLE (sd-rad-to-deg (* bend_angle 1.00001))
------------------
meine LISP-Makros sind auf osd.cad.de Disclaimer
Grüße aus Wien
Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
am
Mitglied
Ingenieur FH / Manager Development Tools
Beiträge: 245
Registriert: 01.02.2003
|
erstellt am: 05. Mai. 2015 10:34 <-- editieren / zitieren --> Unities abgeben:
|
clausb
Ehrenmitglied V.I.P. h.c.
Beiträge: 2914
Registriert: 20.12.2000 Ich schreibe das hier in meiner Freizeit und spreche weder für meinen Arbeitgeber noch für andere Firmen. Mehr Unsinn von mir unter clausbrod.de.
|
erstellt am: 11. Mai. 2015 15:24 <-- editieren / zitieren --> Unities abgeben: Nur für am
|
Foren auf CAD.de (alle Foren)
| 
