转载
'M'LJ.,"/ 使用方法是在Autolisp中加载后再使用命令:
lJYv2EZ 如:
@K+u+}
R ;; HELIX .LSP 螺旋线生成
aPb!-o{ (Defun C:Helix ()
z.H `a+cl (SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
F
H%yyT r (GetDist p "\n半径: ")
A|a\pL` @ b (GetDist p "\n总高度: ")
)7` ~U"r a (GetAngle p "\n起始角: ")
JGdBp j: m (GetInt "\n圈数: ")
DHJnz>bE n (GetInt "\n每圈线段数: ")
\@F{Q- da (/ (* m 2 Pi) (* m n))
_|Dt6 dz (/ b (* m n))
4%6Q+LS']Q )
:iWV:0)P (Command "3dpoly")
,}|V'y (Repeat (1+ (* m n))
tllg$CQ5 (Command (Polar (List x y z) a r))
2 rBF<z7 (SetQ a (+ a da) z (+ z dz))
j68Gz5;j )
4Sl^cKb$7 (Command "")
:m~lgb< (PrinC)
LaIif_fie^ )
Ebk@x=E %FRkvqV* 把这个复制到工具AutoLISP Visual LISP编辑器里另存为一个文件,再加载就可以了
AP~!YwL W 再对话框里输入HELIX 命令就可以了
[ 此贴被calon1982在2006-04-09 17:16重新编辑 ]
