Schraubengang mit Helix -wird nichts

[pruefi]

1) Schritt: Helix mittel LISP konstruiert, dient als Pfad für die Extrusion des Gewinde-Profiles

Code: [Select]

; Helix 3D-Polylinie

(defun c:Helix2 ( / x y z x2 y2 z2 R  S i deltaphi Schritte N Ende)
(setq
R 3
S 1
i 0
N 10 ;N-Anzahl der Windungen
Schritte 50
Ende(* Schritte N)
deltaphi (/ (* 2 pi) Schritte)
)
 
(command "_3dpoly")
(while (< i Ende)
(setq ; Fusspunktkoordinaten
x (* R (sin (* i deltaphi)))
y (* R (cos (* i deltaphi)))
z (* (* i deltaphi) (/ S (* 2 pi)))
x2 (* R (sin (* (+ i 1) deltaphi)))
y2 (* R (cos (* (+ i 1) deltaphi)))
z2 (* (* (+ i 1) deltaphi) (/ S (* 2 pi)))
)
(command  (list x  y  z) )
(setq i (1+ i))
) ; ende While
(command "")
(princ)
)

2) Problem: Die Basis dreht sich mit, dh. das Profil ist am Ende des Wendel fast um 180° Grad gedreht (HiHi)

3) Eh ich noch weiter rumtüftle, hat jemand eine Gangbare Idee vielleicht über eine 3-D-Reihe und Vereinigung , oder soll ich den realen Bearbeitungsvorgang vielleicht nachvollziehen?

4) Hier ein Prototyp aber nur mit "rundem" Gewinde
[align=center]
[/align]

[Kessel]

Mh ...

so ganz verstehe ich dein Problem nicht, würde aber behaupten, dass das mit SWX geht. Weiß nun nicht, warum du unbedingt AutoCad nimmst.