转载
AYoLpes 使用方法是在Autolisp中加载后再使用命令:
o[k,{`M0 如:
_lZWy$rm% ;; HELIX .LSP 螺旋线生成
_^NL{R/ (Defun C:Helix ()
GOY!()F (SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
)VkH':yCM r (GetDist p "\n半径: ")
IoxdWQ4]A b (GetDist p "\n总高度: ")
b59NMGn a (GetAngle p "\n起始角: ")
$G#)D^-5G m (GetInt "\n圈数: ")
8^qLGUxz n (GetInt "\n每圈线段数: ")
:w26d-QR( da (/ (* m 2 Pi) (* m n))
B" Ttr+ dz (/ b (* m n))
k mX:~KMb )
>^adxXw.o (Command "3dpoly")
0?,%B? A8O (Repeat (1+ (* m n))
KiMEd373- (Command (Polar (List x y z) a r))
6z1>(Za7> (SetQ a (+ a da) z (+ z dz))
a(K ^/BT )
0' II6,: (Command "")
l\t<_p/I)^ (PrinC)
[ _3L )
dJ=z '?|%g w*IDL0# 把这个复制到工具AutoLISP Visual LISP编辑器里另存为一个文件,再加载就可以了
-hP>;~*4 再对话框里输入HELIX 命令就可以了
[ 此贴被calon1982在2006-04-09 17:16重新编辑 ]
