|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
RalfSchneider am 01.02.2005 um 11:59 Uhr (0)
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-Techn ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
CADmium am 01.02.2005 um 12:17 Uhr (0)
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.
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
CADwiesel am 01.02.2005 um 12:33 Uhr (0)
ich verschieb das mal ins Lisp-Forum ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
RalfSchneider am 01.02.2005 um 14:10 Uhr (0)
...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. I ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
Foxus am 01.02.2005 um 14:24 Uhr (0)
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
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
Foxus am 01.02.2005 um 14:26 Uhr (0)
Zitat: Original erstellt von Foxus: 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 Anhang vergessen..........
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
RalfSchneider am 01.02.2005 um 14:57 Uhr (0)
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
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
Theodor Schoenwald am 01.02.2005 um 15:00 Uhr (0)
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
|
| In das Form AutoLisp wechseln |
|
AutoLisp : viel Blöcke ersetzten durch einen
joern bosse am 01.02.2005 um 15:32 Uhr (0)
Hallo Holger, probier mal die anhägende LISP-Datei, über = Extras= Anwendung laden... laden und dann über block_ersetz ausführen. Zu beachten, die Blöcke dürfen keine Attribute enthalten (die werden sonst platt gemacht). Vorgehensweise: Du kannst erst den Block picken, der die anderen ersetzen soll, und dann die über die ACAD-Auswahl die Blöcke auswählen, die ersetzt werden sollen, oder Du wählst die zu ersetzenden erst über den Filter, startest dann das Programm und wählst den Block, der die Blöcke aus ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
CADmium am 01.02.2005 um 16:29 Uhr (0)
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)) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : viel Blöcke ersetzten durch einen
holgerlab am 01.02.2005 um 16:35 Uhr (0)
Danke Jörn, der Befehl funktionier prima, aber nicht in dieser Zeichung. Alle gewählten Blöcke verschwinden scheinbar. Die Blöcke aus getauscht werden sollen, sind nicht mehr an ihrem alten Einfügepunkt sondern am Einfügepunkt des Blocks der als Muster gedient hat. d.h. alle Blöcke sind deckungsgleich. Irgendwie haben die Blöcke keinen wählbaren Basispunkt. Gibt es nciht dachte ich!? Jetzt gebe ich es auf mit dem Schrott. Habe angefangen die Zeichung neu zu erstellen. Denke das ist einfachen. Dein LISP wer ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : viel Blöcke ersetzten durch einen
holgerlab am 01.02.2005 um 18:28 Uhr (0)
Danke Carsten, für Hinweis. Austauschen der Blöcke geht auch schon mit dem LISP von Jörn prima. Aber da alle Blöcke ihren Basispunkt in 0,0,0 haben, verändert der ausgetauschte Block seine Lage. Wie gesagt ist das jetzt schneller neugezeichnet, wie noch lange rum gebastelt. Würde nur gern wissen warum der Plan so aussieht?????? ------------------ Gruß Holger
|
| In das Form AutoLisp wechseln |
|
AutoLisp : viel Blöcke ersetzten durch einen
Brischke am 01.02.2005 um 20:02 Uhr (0)
Hallo, derartige Zeichnungen sind nichts Ungewöhnliches. Verschiedene Applikationen haben da so ihre Eigenarten. Wenn du derartige Zeichnungen öfter weiter bearbeiten musst, dann ließe sich da auch mit LISP etwas zaubern. Ich denke aber, dass du immer noch manuell Nacharbeiten musst. Ich habe mal diese Lisp von CADmium hergenommen, und dahingehend geändert, dass den Blöcken der Basispunkt entsprechend des Basispunkt des darin als erstes gefundenen Objekts geändert wird. Hol dir die Lisp von CADmium, un ...
|
| In das Form AutoLisp wechseln |
