---

Hallo
Ich weiß daß dieses Thema schon mehrmals gefragt worden ist,
aber ich komme damit nicht klar.
Frage kann mit jemand eine Spirale mit Durchmesser außen =500 ,Durchmesser innen =194 Wandstärke 5 , Steigung 400 in 3D für Autocad 2002 erstellen
oder mindestens eine vorhandene Spirale zumailen.
Benötige das für eine 3D Ersatzteilzeichnung.
(Wir haben nur ACAD2002, Mechanical 2002 2D)

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

---

Code:

---

;;; --------------------------------------------------------------------------;
;;; SPIRAL.LSP
;;;  Copyright (C) 1990 by Autodesk, Inc.
;;; 
;;;  Permission to use, copy, modify, and distribute this software and its
;;;  documentation for any purpose and without fee is hereby granted. 
;;;
;;;  THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;;  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;;  MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; --------------------------------------------------------------------------;
;;; DESCRIPTION
;;;
;;;  This is a programming example.
;;;
;;;  Designed and implemented by Kelvin R. Throop in January 1985
;;;
;;;  This program constructs a spiral. It can be loaded and called
;;;  by typing either "spiral" or the following:
;;;  (cspiral <# rotations> <base point> <growth per rotation>
;;;            <points per circle> ).
;;;
;;; --------------------------------------------------------------------------;

(defun myerror (s)                    ; If an error (such as CTRL-C) occurs
                                      ; while this command is active...
  (if (/= s "Function cancelled")
    (princ (strcat "\nError: " s))
  )
  (setvar "cmdecho" ocmd)            ; Restore saved modes
  (setvar "blipmode" oblp)
  (setq *error* olderr)              ; Restore old *error* handler
  (princ)
)

(defun cspiral (ntimes bpoint hfac lppass strad vfac
                / ang dist tp ainc dhinc dvinc circle dv)

  (setvar "blipmode" 0)              ; turn blipmode off
  (setvar "cmdecho" 0)                ; turn cmdecho off
  (setq circle (* 3.141596235 2))
  (setq ainc (/ circle lppass))
  (setq dhinc (/ hfac lppass))
  (if vfac (setq dvinc (/ vfac lppass)))
  (setq ang 0.0)
  (if vfac
    (setq dist strad dv 0.0)
    (setq dist 0.0)
  )
  (if vfac
    (command "_3dpoly")                ; start spiral ...
    (command "_pline" bpoint)          ; start spiral from base point and...
  )
  (repeat ntimes
    (repeat lppass
      (setq tp (polar bpoint (setq ang (+ ang ainc))
                      (setq dist (+ dist dhinc))
              )
      )
      (if vfac
          (setq tp (list (car tp) (cadr tp) (+ dv (caddr tp)))
                dv (+ dv dvinc)
          )
      )
      (command tp)                    ; continue to the next point...
    )
  )
  (command "")                        ; until done.
  (princ)
)

;;;
;;;      Interactive spiral generation
;;;

(defun C:SPIRAL (/ olderr ocmd oblp nt bp cf lp)
  ;;;;(setq olderr  *error*
  ;;;;      *error* myerror)
  (setq ocmd (getvar "cmdecho"))
  (setq oblp (getvar "blipmode"))
  (setvar "cmdecho" 0)
  (initget 1)                        ; bp must not be null
  (setq bp (getpoint "\nZentrum: "))
  (initget 7)                        ; nt must not be zero, neg, or null
  (setq nt (getint "\nAnzahl der Rotationen: "))
  (initget 3)                        ; cf must not be zero, or null
  (setq cf (getdist "\nAnstieg pro Rotation: "))
  (initget 6)                        ; lp must not be zero or neg
  (setq lp (getint "\nStützpunkte pro Rotation <60>: "))
  (cond ((null lp) (setq lp 60)))
  (cspiral nt bp cf lp nil nil)
  (setvar "cmdecho" ocmd)
  (setvar "blipmode" oblp)
  (setq *error* olderr)              ; Restore old *error* handler
  (princ)

)

;;;
;;;      Interactive spiral generation
;;;

(defun C:3DSPIRAL (/ olderr ocmd oblp nt bp hg vg sr lp)
  ;;;;(setq olderr  *error*
  ;;;;      *error* myerror)
  (setq ocmd (getvar "cmdecho"))
  (setq oblp (getvar "blipmode"))
  (setvar "cmdecho" 0)
  (initget 1)                        ; bp must not be null
  (setq bp (getpoint "\nZentrum: "))
  (initget 7)                        ; nt must not be zero, neg, or null
  (setq nt (getint "\nAnzahl der Rotationen: "))
  (initget 7)                        ; sr must not be zero, neg, or null
  (setq sr (getdist bp "\nAnfangsradius: "))
  (initget 1)                        ; cf must not be zero, or null
  (setq hg (getdist "\nHorizontaller Anstieg pro Rotation: "))
  (initget 3)                        ; cf must not be zero, or null
  (setq vg (getdist "\nVertikaler Anstieg pro Rotation: "))
  (initget 6)                        ; lp must not be zero or neg
  (setq lp (getint "\nStützpunkte pro Rotation <60>: "))
  (cond ((null lp) (setq lp 60)))
  (cspiral nt bp hg lp sr vg)
  (setvar "cmdecho" ocmd)
  (setvar "blipmode" oblp)
  (setq *error* olderr)              ; Restore old *error* handler
  (princ)

)

---

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

spira.dwg.txt

Im Anhang habe ich die Spirale mit 5mm Materialdicke als SOLID-Modell angefügt. Wenn Du andere (höhere oder geringere) Triangulationsgenauigkeiten brauchst, melde Dich mal.
Beste Grüße aus der Rhön
Jochen www.black-cad.de

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

---

Schnecke_3000.dwg.txt IMG_4696.JPG

Hallo zusammen,
die Datei von Jochen hat mich neugierig gemacht. Gibt es eine Möglichkeit eine Spirale für eine Schneckenpumpe zu erzeugen?
Der Aussendurchmesser beträgt 3.0 m, die Steigung 1.0 m und der Innendurchmesser 1.52 m. Ein Beispiel für die 2D-Darstellung und ein Foto sind angehängt. Für eine Präsentation wäre eine 3D-Darstellung schon was besonderes. Mit welchem Programm macht man so etwas?

------------------
Bis demnächst
Rainer

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

---

Ist schon wieder 1. April??
Suche mal nach Feder oder Spirale und Du wirst u.a. das finden:
http://ww3.cad.de/foren/ubb/Forum54/HTML/001197.shtml

Grüße Lutz

------------------
May the force be with you!

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

---

@Lutz,
ich weiss,es ist nicht der 1.April und die Frage war schon ernst gemeint. Als Antwort der Hinweis auf die Suchfunktion haben wir hier so oft wie die einleitenden Worte, das man schon gesucht hat.
In diesem Fall ist der Lösungsansatz von Jochen in meinen Augen etwas neues.Die Entwicklung von Programmen und Wissen lässt doch auf Lösungen hoffen als dass man alte Beiträge durchsucht.

Bin da mal gespannt.

------------------
Bis demnächst
Rainer

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

---

High,
so neu ist der Lösungsansatz von scj eigentlich gar nicht - da Autocad keine 3D-Spiralen (oder Wendeln, Federn wie auch immer) erstellen kann (definitiv) - kann man sich nur mehr oder weniger genau mit mehr oder weniger Aufwand und mehr oder weniger Unterstützung diverser Tools weiterbehelfen und eine Annäherung an die tatsächliche Geometrie erstellen.
Das einzig wirklich neue ist, dass scj ein Programm geschrieben hat, das Oberflächenmodelle in Volumenmodelle umwandelt.

------------------
Ciao
J-SC
... geht's vielleicht doch?

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

---

schnecke.dwg.txt

Hallo
hier die Konstruktionsbeschreibung für ein FLÄCHENMODELL der Förderschnecke.
Das reicht für Darstellungszwecke eigentlich aus und ist - unter Verwendung des SPIRAL.lsp, das Proxy hier gepostet hat, mit "bordeigenen" AutoCAD-Mitteln leicht zu erzeugen.
Zu Anfang empfiehlt es sich, Layer für die 3D-Polylinien und für die REGELOB-Flächen anzulegen.
Nach dem Laden der SPIRAL.lsp werden auf dem Layer 3D-Polylinien die innere und die äußere 3D-Spirallinie erzeugt (am einfachsten zentrisch um den Koordinatenursprung der Weltkoordinatensystems).
Diese beiden Linie werden in z-Richtung um die Materialdicke der Schnecke nach oben kopiert (dabei kann auch die Materialdicke innen anders definiert sein als aussen).
Dann sollte die Variable SURFTAB1 auf einen Wert (zwischen 2 und 32000, je größer um so feiner aber auch umso umfangreicher wird das Modell) eingestellt werden. Gut ist ein Test mit etwa SURFTAB1=100.
Als nächsten sollte der Layer REGELOB aktuell gesetzt und aber auch ausgeschaltet(!).
Damit werden im folgenden Schritt die REGELOB-Flächen zwar erzeugt, aber nicht dargestellt. (Das macht es einfacher, die 3D-Polylinien für die REGELOB-Flächenerzeugung zu identifizieren.)
Nach ZOOMEN auf den Anfangsbereich der Strecke werden die 4 Begrenzungsflächen der Förderschnecke erzeugt:

Befehl REGELOB (_rulesurf)
Anclicken der unteren inneren Spirale
Anclicken der oberen inneren Spirale

Befehl REGELOB (_rulesurf)
Anclicken der unteren inneren Spirale
Anclicken der unteren äußeren Spirale

Befehl REGELOB (_rulesurf)
Anclicken der unteren äußeren Spirale
Anclicken der oberen äußeren Spirale

Befehl REGELOB (_rulesurf)
Anclicken der oberen äußeren Spirale 
Anclicken der oberen inneren Spirale

Einschalten des Layers REGELOB

Viel Spaß dabei!
Beste Grüße aus der Rhön
Jochen www.black-cad.de

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