[LISP函数]：依然是上次螺旋线的lisp问题

creese

lxch前辈，根据您 的指导我对括号等进行了修改，可是书上并未提及螺旋线圈数的定义，再请教！！！

lxch

我对lisp编程序只了解一点皮毛，更不会编螺旋线的程序，因为那是需要有一定的数学功底的。关于lisp编程序的问题，建议你到 家园论坛 > …编程开发板块 > ※AutoLISP/VLISP 开发技术※版块去。下面是我在论坛中收集的一个螺旋线程序，供你参考。

(defun C:spr (/ SD ED THS THSN THSH THS TAS NVSN NVS STEP X Y Z R A H)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(setq b1 (getpoint "基点"))
(setq SD (/ (getreal "弹簧起始直径: ") 2))
(setq ED (/ (getreal "弹簧終點直径: ") 2))
(setq THSN (getreal "圈数"))
(setq THSH (getreal "每圈高度"))
(setq THS (* THSN THSH))
(setq TAS (* 360 THSN))
(setq NVSN (getreal "间隔角度"))
(setq NVS (+ (fix (/ TAS NVSN)) 1))
(setq STEP (- NVS 1))
(setq X (/ (- ED SD) STEP))
(setq Y (/ THS STEP))
(setq Z (/ TAS STEP))
(setq bb (caddr b1))
(setq R SD)
(setq A 0)
(setq H 0)
(setvar "CMDECHO" 0)
(command "UCS" "O" B1)
(command "3DPOLY"
(strcat (rtos R) "<" (rtos A) "," (rtos H))
)
(repeat STEP
(setq A (+ A Z))
(setq H (+ H Y))
(setq R (+ R X))
(command (strcat (rtos R) "<" (rtos A) "," (rtos H)))
)
(command "")
(setvar "CMDECHO" 1)
(setvar "osmode" oldos)
(princ)
)