那位有螺旋线的绘制方法啊?

skytianhuan

那位有螺旋线的绘制方法啊，我的这个是按照书里面给的AUTOLISP程序编的，但是不好用啊？
程序如下：
（defun C:（/）
（steq b1（getpoint"请指定螺旋线的基点："））
（steq r（getreal"请输入螺旋线的平均半径："））
（steq disp（getreal"请输入螺旋线的节距："））
（steq n（getint"请输入每圈细化段数："））
（steq delta（/（* 2.0 pi）n）
（steq j（/ disp n））
（setq bb（caddr b1））
（setq ang 0）
（setq jj 0）
（Command"UCS""o"bl）
（Command"3dploy"（list r 0 0））
（repeat n
（setq jj（+jj 1））
（setq ang（+delta ang））
（setq pt2（list（* r（cos ang））（*r（sin ang））（+0（j jj））））
（Command pt2）
）
（Command""）
）

skytianhuan

怎么没有人回啊？？？

hua505

cad2008里面有螺旋线绘制命令啊！

osstone

楼上说的对，为什么不用自带的螺旋线命令，切换到三维工作空间就有了。