---

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 "Einmndungswinkel: "))
(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

---

Hallo Forumgemeinde,

Hat keiner eine idee um mir helfen zu können?
Wäre echt toll wenn mir da jemand weiter helfen könnte.
Lg Karl

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

---

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

---

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

---

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

---

Bogeneinzapfung.dwg

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

---

... weißt du denn, wie man das händisch konstruieren würde?

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

---

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

---

Hallo Jupa!

Leider sollte man dies Stufenlos von 45° bis 90° einstellen können.

Ist das überhaupt möglich?

LG Karl

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

---

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

---

... 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

---

150426-Bogeneinzapfung-pa.dwg

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

---

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

---

Hallo Jürgen!

Tut mir leid, da hatte ich einen Gedankenfehler.

Diese Möglichkeit benötige ich nicht.
Da genügt nur 45° und 90°.

LG Karl

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

---

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

---

Kann das vielleicht KED?
www.KED.de
Beste Grüße
Jochen

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

---

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

---

Danke Archtools für die Info des mathematischen Lösungsansatzes.
Werd mich mal schlau machen, was ich da in Erfahrung bringe und ob ich deine Vorgehensweise umsetzen kann.

Lg Karl

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