[教学]：畫彈簧~~~~LISP

suflash

將其程式碼轉貼於此,已共所需,當然你必須自己做成LISP檔才能用
程式碼:
(defun C:HELIX ( / cp od wi sa pt rt sg)
(cond
( (and (setq cp (getpoint "\n螺旋線的中心點："))
(setq ra (getdist cp "\n螺旋線的外徑："))
(setq wi (getdist cp "\n螺旋線的寬度："))
(setq sa (getangle cp "\n螺旋線的起始角度："))
(setq pt (getdist cp "\n節距："))
(setq rt (getreal "\n螺旋圈數：")))
(princ "\n計算中 ...")
(helix cp (* 2.0 ra) wi sa pt rt)
)
)
(princ)
)
(defun delta_z (pt z)
(list (car pt)
(cadr pt)
(cond ( (caddr pt) (+ (caddr pt) z)) (t z))
)
)

(defun helix (cp od wi sang pitch rot /
orad irad segs s_ang s_pitch bp iang w bm origos)
(setq segs (* 6(getvar "surftab1"))
s_ang (/ (* 2.0 pi) segs)
s_pitch (/ pitch segs)
iang (- sang s_ang)
bp (delta_z cp (- s_pitch))
orad (/ od 2.0)
irad (- orad wi))

(setvar "cmdecho" 0)
(setq bm (getvar "blipmode"))
(setvar "blipmode" 0)
(setq origos (getvar "osmode"))
(setvar "osmode" 0)
(cond ( (setq w (> wi 0.0))
(command "3DMESH"
(fix (1+ (* segs rot)))
2
)
)
(t (command "3DPOLY"))
)
(repeat (fix (1+ (* segs rot)))
(command
(polar
(setq bp (delta_z bp s_pitch))
(setq iang (+ iang s_ang))
orad
)
)
(cond (w (command (polar bp iang irad))))
)
(cond ((not w) (command "")))
(setvar "blipmode" bm)
(setvar "osmode" origos)
(command "hide")
(princ)
)