| |
| 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: Konusabwicklung / Kegelabwicklung als LISP (12213 mal gelesen)
|
RalfSchneider Mitglied
Beiträge: 12 Registriert: 23.04.2004
|
erstellt am: 01. Feb. 2005 11:59 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen Ich bin dringend auf der Suche nach einem LISP-Programm für eine Kegelabwicklung. Ich gebe den großen Durchmesser, den kleinen Durchmesser die Höhe oder den Winkel ein und ich erhalte eine Abwicklung.So das ich dann die Zeichnung direkt ins AutoCAD reinkopieren kann. So wäre meine Vorstellung. Ich möchte keine Abwicklungsprogramme kaufen oder selber programmieren (kann ich eh nicht). Hat jemand sowas oder kann mir irgendwie weiter helfen. Bitte keine PC-Profi-Antwort da ich Programmier-Technisch eine Null bin....So erklären wie wenn ich in der 4.Klasse wäre. Vielen Dank im Vorraus.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 01. Feb. 2005 12:17 <-- editieren / zitieren --> Unities abgeben: Nur für RalfSchneider
Programmtechnisch sollte das nicht das Problem sein. Um deinen guten Willen zu testen : Stell doch mal bitte die Mathematischen Zusammenhänge hier rein. Dann sehen wir weiter.. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 01. Feb. 2005 12:33 <-- editieren / zitieren --> Unities abgeben: Nur für RalfSchneider
|
RalfSchneider Mitglied
Beiträge: 12 Registriert: 23.04.2004
|
erstellt am: 01. Feb. 2005 14:10 <-- editieren / zitieren --> Unities abgeben:
...Stell doch mal bitte die Mathematischen Zusammenhänge hier rein. Dann sehen wir weiter. Versteh ich nicht die Frage. Ich möchte Parameter eingeben d.h Ich geben die Großen Durchmesser ein,dann den kleinen Durchmesser und abschließend den Öffnungswinkel (oder die Höhe). Danach schmeist mir das Programm eine Abwicklung her. Das Ganze muss ja auch kein LISP sein es kann auch ein anderes Programm sein hauptsache ich bekomme das Teil als Blechabwicklung ins AutoCAD Ich suche schon etwig nach so einem Teil. Ist das schwer zu schreiben oder was (ernste Frage eines nicht Wissenden) Gruß aus dem zugeschneiten Allgäu Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foxus Mitglied Konstrukteur
Beiträge: 181 Registriert: 17.05.2004 SWX 2012 SP1 Microsoft Windows7
|
erstellt am: 01. Feb. 2005 14:24 <-- editieren / zitieren --> Unities abgeben: Nur für RalfSchneider
b1=r*pi*alpha/180 b2=(r-x)*pi*alpha/180 alpha=b1*180/(r*pi) r=b1*x/(b1-b2) b1 und b2 sind die Umfänge, also d*pi Skizze zu den Formeln im Anhang....(ist bereits die Abwicklung des Kegelstumpfes) Habe mir das mal aus Winkelfunktionen und Kreisformeln blablabla zusammengestellt, um die Abwicklung für einen Kekelstumpf zu bekommen. mfg, Foxus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foxus Mitglied Konstrukteur
Beiträge: 181 Registriert: 17.05.2004
|
erstellt am: 01. Feb. 2005 14:26 <-- editieren / zitieren --> Unities abgeben: Nur für RalfSchneider
Zitat: Original erstellt von Foxus: b1=r*pi*alpha/180b2=(r-x)*pi*alpha/180 alpha=b1*180/(r*pi) r=b1*x/(b1-b2) b1 und b2 sind die Umfänge, also d*pi Skizze zu den Formeln im Anhang....(ist bereits die Abwicklung des Kegelstumpfes) Habe mir das mal aus Winkelfunktionen und Kreisformeln blablabla zusammengestellt, um die Abwicklung für einen Kekelstumpf zu bekommen. mfg, Foxus
Anhang vergessen.......... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RalfSchneider Mitglied
Beiträge: 12 Registriert: 23.04.2004
|
erstellt am: 01. Feb. 2005 14:57 <-- editieren / zitieren --> Unities abgeben:
Mann oh mann ich bin dumm wie ein Stück Brot. Ich blick das nicht. Was mache ich jetzt mit dem Zeug. Ich kenn mich null aus mit dem LISP.Ich weiß wie man so eine Datei zum laufen bringt.Aber wo muss ich diese Zeilen jetzt eintragen....Im LISP -Editor.... Und dann ?? Kannst du mir nicht noch einpaar Tips geben. Grüß vom verzweifelten Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 01. Feb. 2005 15:00 <-- editieren / zitieren --> Unities abgeben: Nur für RalfSchneider
Hallo Ralf, Dein Satz: "Danach schmeist mir das Programm eine Abwicklung her." gefällt mir sehr gut. Bist Du sicher, dass Du dieses Forum nicht mit einem Holzfällerforum verwechselt hast? Warum hast Du nicht gleich, wie gebeten, die Formeln - hergeschmissen -? Gruß an das zugeschneite Allgäu Theodor Schönwald Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foxus Mitglied Konstrukteur
Beiträge: 181 Registriert: 17.05.2004 SWX 2012 SP1 Microsoft Windows7
|
erstellt am: 01. Feb. 2005 15:30 <-- editieren / zitieren --> Unities abgeben: Nur für RalfSchneider
na den mathematischen Zusammenhang hab' ich euch zur Verfügung gestellt, aber da ich auch kein lisp-genie bin, sind das nur die Formeln. Mit dem fertigen Lisp kann ich leider nicht dienen. Ich schmeiß die Formeln immer in meinen TI92 rein und lass mir dann die unbekannten Variablen berechnen. Wenn ich dann alle Abmessungen habe, zeichne ich die Abwicklung. Dieses Prozedere ist vielleicht etwas Umständlicher, aber es funktioniert ohne viel Zeitaufwand. mfg, Foxus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 01. Feb. 2005 16:29 <-- editieren / zitieren --> Unities abgeben: Nur für RalfSchneider
naja, kurz vor Feierabend zum Gehirn lockern : ..ich hab mir den mathematischen Zusammenhang etwas anders hergelitten .. (deine Sammlung - Foxus - ist wirklich nur der Zusammenhang,keine Lösung..) herausgekommen ist auf die Schnelle sowas : (defun ABW-Kegelstumpf (DU DO H / A1 R1 R2 A) (setq A1 (atan(/ H 0.5 (- DU DO)))) (setq R1 (/ DU 2 (cos A1))) (setq R2 (/ DO 2 (cos A1))) (setq A (/ (* DU PI) R1)) (command "_PLINE") (command (list (*(sin(/ A 2))R1 )(*(cos(/ A 2.0))R1) 0.0)) (command "_a" "_s") (command (list 0.0 R1 0.0)) (command (list (*(sin(/ A 2.0))R1 -1.0)(*(cos(/ A 2.0))R1) 0.0)) (command "_l") (command (list (*(sin(/ A 2.0))R2 -1.0)(*(cos(/ A 2.0))R2) 0.0)) (command "_a" "_s") (command (list 0.0 R2 0.0)) (command (list (*(sin(/ A 2.0))R2 )(*(cos(/ A 2.0))R2) 0.0)) (command "_l" "_c") (command "_move" (entlast)""(list (*(sin(/ A 2))R1 )(*(cos(/ A 2))R1) 0.0)) ) Aufruf dann mit (ABW-Kegelstumpf 100 60 50) wobie hier die 100 der Durchmesser unten die 60 der Durchmesser oben ( kann auch 0 beim Kegel sein ) und die 50 die Kegelstumpfhöhe ist .. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RalfSchneider Mitglied
Beiträge: 12 Registriert: 23.04.2004
|
erstellt am: 02. Feb. 2005 10:41 <-- editieren / zitieren --> Unities abgeben:
|