| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Rohr in Bogen einzapfen (1887 mal gelesen)
|
bixi1973 Mitglied techn. angestellter
Beiträge: 72 Registriert: 07.09.2011 Windows 7 64 bit Windows 7 32 bit ACAD 2013 ACAD Mep 2013
|
erstellt am: 03. Apr. 2015 07:22 <-- editieren / zitieren --> Unities abgeben:
Hallo Forumspezialisten. Ich habe wieder mal eine Frage zu einen Lisp. Vielleicht kann mir da ja wer weiter helfen, das wäre schön. Ich habe im Anhang einen Lispcode für Rohr in Rohr Einzapfung beigelegt, die ein ehemaliger Kollege von mir gemacht hat. Diese Funktioniert aber NUR für Rohr in Rohr in verschiedenen Dimensionen und Lagen. Vielleicht kann man dieses ja umschreiben damit ich ein Rohr in einen Bogen einzapfen kann. Wichtig dabei ist, dass folgende Eingaben möglich sind: Aussen-Durchmesser des Bogens Bogenradius Rohrdurchmesser Einmündungswinkel Achsabstand Länge der Einzapfung Teilung in Grad Bestehender LISP-Code: (defun c:T () (setq d (getdist "Durchm. Hauptrohr: ")) (setq e (getdist "Durchm. Einzapfung: ")) (setq w (getreal "Einmndungswinkel: ")) (setq a (getdist "Achsenabstand: ")) (setq l (getdist "L„nge d. Einzapfung: ")) (setq z (getint "Teilung in Grad: ")) (setq anz (/ 360 z)) (setq w1 (* w 0.01745329252)) (setq z1 (* z 0.01745329252)) (setq q1 (- 0 z1)) (repeat anz (setq q1 (+ q1 z1)) (setq q2 (+ q1 z1)) (setq r (* (/ e 2 ) (sin q1))) (setq s (* (/ e 2 ) (cos q1))) (setq t (sqrt (- (expt (/ d 2) 2) (expt (- a r) 2)))) (setq u (/ t (cos w1))) (setq hilfe (- 1.570796 w1)) (setq hilfe (/ (sin hilfe) (cos hilfe))) (setq v (/ s hilfe)) (setq y (- u v)) (setq b1 (- l y)) (setq umf1 (* e q1)) (setq umf1 (/ umf1 2)) (setq r (* (/ e 2) (sin q2))) (setq s (* (/ e 2) (cos q2))) (setq t (sqrt (- (expt (/ d 2) 2) (expt (- a r) 2)))) (setq u (/ t (cos w1))) (setq hilfe (- 1.570796 w1)) (setq hilfe (/ (sin hilfe) (cos hilfe))) (setq v (/ s hilfe)) (setq y (- u v)) (setq b2 (- l y)) (setq umf2 (* e q2)) (setq umf2 (/ umf2 2)) (setq pt1 (list umf1 0)) (setq pt2 (list umf1 b1)) (setq pt3 (list umf2 0)) (setq pt4 (list umf2 b2)) (command "linie" pt1 pt2 pt4 pt3 "s") ) (command "zoom" "g") ) Mit freundlichen Grüßen Karl
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bixi1973 Mitglied techn. angestellter
Beiträge: 72 Registriert: 07.09.2011 Windows 7 64 bit Windows 7 32 bit ACAD 2013 ACAD Mep 2013
|
erstellt am: 15. Apr. 2015 21:20 <-- editieren / zitieren --> Unities abgeben:
|
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 16. Apr. 2015 08:48 <-- editieren / zitieren --> Unities abgeben: Nur für bixi1973
Hallo Karl, ich hab mir das mal angeschaut muss aber sagen dass ich aus dem Elektrotechnik-Bereich komme und mit sowas eigentlich nix tu tun hab. Aber mal zu deinem Problem: Wo genau am Bogen soll denn das Rohr anschließen ??? Nur auf dem "äußeren" Radius oder auch sonst irgendwo ? Vielleicht ist es einfacher das Gebilde 3D zu konstruieren und dann abzuwickeln. Software zum Abwickeln hab ich schon mal gesehen.
------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bixi1973 Mitglied techn. angestellter
Beiträge: 72 Registriert: 07.09.2011 Windows 7 64 bit Windows 7 32 bit ACAD 2013 ACAD Mep 2013
|
erstellt am: 20. Apr. 2015 23:04 <-- editieren / zitieren --> Unities abgeben:
Hallo Andreas. Das Rohr sollte nur am äusseren Radius angesetzt werden. Vielleicht gibts ja doch eine lösung mit lisp, ohne das ganze zu konstruieren, da ich kein Programm für die Abwicklungserstellung habe und das des öfteren benötige. Wäre schön wenn du mir weiter helfen könntest. Lg Karl Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 21. Apr. 2015 07:29 <-- editieren / zitieren --> Unities abgeben: Nur für bixi1973
Zitat: Original erstellt von bixi1973:
Aussen-Durchmesser des Bogens Bogenradius Rohrdurchmesser Einmündungswinkel Achsabstand Länge der Einzapfung
Mach mal dazu eine Skizze, welcher Wert was ist. Außerdem fehlt noch eine Information, ob die Achse der Einzapfung immer in der Ebene des Rohrbogens liegt oder auch zu dieser Ebene geneigt sein kann/soll. Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bixi1973 Mitglied techn. angestellter
Beiträge: 72 Registriert: 07.09.2011 Windows 7 64 bit Windows 7 32 bit ACAD 2013 ACAD Mep 2013
|
erstellt am: 27. Apr. 2015 13:29 <-- editieren / zitieren --> Unities abgeben:
Hallo Lisp Spezialisten! Vielen dank erst mal, dass ihr euch meiner Frage angenommen habt. Anbei habe ich euch eine Skizze beigelegt für mein Anfrage an euch. Mit den Angaben zu folgenden Eingabemöglichkeiten die ich dazu benötige. Aussen-Durchmesser des Bogens Bogenradius Rohrdurchmesser Einmündungswinkel Länge der Einzapfung Die Abwicklung wird nur für das Rohr benötigt. Achsabstand wird in diesem Fall doch nicht benötigt. Vielleicht könnt ihr mir weiter helfen. LG Karl Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 27. Apr. 2015 13:39 <-- editieren / zitieren --> Unities abgeben: Nur für bixi1973
|
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 27. Apr. 2015 13:48 <-- editieren / zitieren --> Unities abgeben: Nur für bixi1973
Zitat: Original erstellt von bixi1973:
Anbei habe ich euch eine Skizze beigelegt für mein Anfrage an euch.
Kurze Rück(versicherungs)frage: Einmündungswinkel gibt es nur die beiden gezeigten Situationen 90° und 45°, oder? Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bixi1973 Mitglied techn. angestellter
Beiträge: 72 Registriert: 07.09.2011 Windows 7 64 bit Windows 7 32 bit ACAD 2013 ACAD Mep 2013
|
erstellt am: 27. Apr. 2015 14:01 <-- editieren / zitieren --> Unities abgeben:
|
bixi1973 Mitglied techn. angestellter
Beiträge: 72 Registriert: 07.09.2011 Windows 7 64 bit Windows 7 32 bit ACAD 2013 ACAD Mep 2013
|
erstellt am: 27. Apr. 2015 14:04 <-- editieren / zitieren --> Unities abgeben:
Hallo Holger! Ich weiß schon wie man das händisch konstruiert, hatte ich auch schon mehrmals gemacht. Denke dass das mit einer Lisp einfacher wäre, wie die T-Einzapfung die ich schon habe. LG KArl Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 27. Apr. 2015 14:16 <-- editieren / zitieren --> Unities abgeben: Nur für bixi1973
... dann musst du das, was du händisch machst, als Code abbilden. Besser, so habe ich das mit c#.Net gemacht, du zeichnet die 3d-Bauteile (zumindest den Bogen). Das Rohr bildest du einen Satz von Linien ab, von denen du den Schnittpunkt mit dem 3D-Bogen berechnest. Die Längen der so gekürzten Linien kannst du ja dann im 2D abtragen und im Ergebnis hast du die Schnittkurve. Ich denke, das ist mit weniger mathematischem und programmier- Aufwand zu realisieren. Grüße! Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen.
defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 27. Apr. 2015 14:25 <-- editieren / zitieren --> Unities abgeben: Nur für bixi1973
Zitat: Original erstellt von bixi1973:
Leider sollte man dies Stufenlos von 45° bis 90° einstellen können.
dann muß aber auch noch ein Maß für den Abstand vom Mittelpunkt der Bogenkrümmung bis zur Achse des Rohrzapfens angegeben werden, gell? Hier hast Du ja nur zwei Sonderfälle skizziert ... Ist das überhaupt möglich?
Möglich bestimmt, aber nicht gerade trivial. Jürgen
------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 27. Apr. 2015 14:33 <-- editieren / zitieren --> Unities abgeben: Nur für bixi1973
Und noch was: Das von Dir angegebene Maß "Länge der Einzapfung" als Eingangsgröße für die Konstruktion verwenden zu wollen erachte ich auch für fraglich. Das ergibt sich doch erst während der Konstruktion/Berechnung. Besser wäre ein Maß bis zu einem bereits gegebenen "Fixpunkt" (beim T-Stück war es z.B. das Maß bis zur Mittelachse des größeren Rohres). Überdenke noch mal die Aufgabenstellung ... Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bixi1973 Mitglied techn. angestellter
Beiträge: 72 Registriert: 07.09.2011 Windows 7 64 bit Windows 7 32 bit ACAD 2013 ACAD Mep 2013
|
erstellt am: 27. Apr. 2015 14:34 <-- editieren / zitieren --> Unities abgeben:
|
bixi1973 Mitglied techn. angestellter
Beiträge: 72 Registriert: 07.09.2011 Windows 7 64 bit Windows 7 32 bit ACAD 2013 ACAD Mep 2013
|
erstellt am: 27. Apr. 2015 17:44 <-- editieren / zitieren --> Unities abgeben:
Hallo Jürgen! Was die Länge der Einzapfung angeht, benötige ich nur, dass die gesamte Abwicklung am Bildschirm angezeigt wird, da ansonsten ein Teil der Einzapfung fehlt. Ich plotte diese Abwicklung aus und wickle sie um das Rohr. Danach wird die Abwicklung am Rohr nachgezeichnet um das Rohr genau schneiden zu können. Die Länge bis zu einem anderen Formstück ist mir hier nicht wichtig, da ich das nur zum Einpassen der Rohrleitung in den Bogen benötige. So führe ich das bei meinen T-Einzapfungen Rohr in Rohr auch durch. Das funktioniert echt gut so. LG Karl Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
scj Mitglied
Beiträge: 555 Registriert: 09.08.2001
|
erstellt am: 28. Apr. 2015 13:54 <-- editieren / zitieren --> Unities abgeben: Nur für bixi1973
|
archtools Mitglied
Beiträge: 965 Registriert: 09.10.2004 Entwickler für AutoCAD, BricsCAD u.a., alle Systeme
|
erstellt am: 28. Apr. 2015 20:16 <-- editieren / zitieren --> Unities abgeben: Nur für bixi1973
Zitat: Original erstellt von bixi1973: Hallo Holger!Ich weiß schon wie man das händisch konstruiert, hatte ich auch schon mehrmals gemacht. Denke dass das mit einer Lisp einfacher wäre, wie die T-Einzapfung die ich schon habe. LG KArl
Damit, wie man das händisch konstruiert, kann man bei der Programmierung meist nix oder nur wenig anfangen. Du musst das mathematisch lösen. Da es sich hierbei um recht triviale geometrische Körper handelt (Zylinder und Torus im Raum), gibt es auch eine relativ einfache mathematische Lösung: Du brauchst nur die Menge der Punkte zu errechnen, die auf beiden Körpern liegen. Die Gleichung eines Zylinders und die Gleichung eines Torus findest Du durch Googeln im Netz. Setze beide gleich, und Du erhältst die Lösungsgleichung(en) für die "Verzapfungskurve(n)". Welche der bis zu vier Lösungsgleichungen die richtige ist, findest Du beispielsweise durch Abstandsmessung der Durchstoßpunkte der Mittellinie des Zylinders durch den Torus. Für so ein Programm sollte ein Lisp-Programmierer Dir gut und gerne 200 Euro berechnen können. Ich bin hier aber kein Anbieter. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bixi1973 Mitglied techn. angestellter
Beiträge: 72 Registriert: 07.09.2011 Windows 7 64 bit Windows 7 32 bit ACAD 2013 ACAD Mep 2013
|
erstellt am: 28. Apr. 2015 20:47 <-- editieren / zitieren --> Unities abgeben:
|