转载
jJ55Az?t: 使用方法是在Autolisp中加载后再使用命令:
!!2~lG<] 如:
]P(Eo|)m ;; HELIX .LSP 螺旋线生成
Zs+6Zd4f (Defun C:Helix ()
^Xa-)Pu (SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
hH"3Y}U@ r (GetDist p "\n半径: ")
HP]Xh~aP b (GetDist p "\n总高度: ")
%=#&\ldPS a (GetAngle p "\n起始角: ")
*>_:E6) m (GetInt "\n圈数: ")
Ba`]Sm= n (GetInt "\n每圈线段数: ")
G9E?
da (/ (* m 2 Pi) (* m n))
Q=e?G300#L dz (/ b (* m n))
WpTC,~- )
p@cPm8L3 (Command "3dpoly")
@|-ydm0 (Repeat (1+ (* m n))
U?#6I- (Command (Polar (List x y z) a r))
*ZN"+wf\ (SetQ a (+ a da) z (+ z dz))
N1LR _vS" )
7acAU{Rr (Command "")
lJ7k4ua\ (PrinC)
OE4 2{?) )
+"'h?7'C <LBMth 把这个复制到工具AutoLISP Visual LISP编辑器里另存为一个文件,再加载就可以了
'?3Hy|} 再对话框里输入HELIX 命令就可以了
[ 此贴被calon1982在2006-04-09 17:16重新编辑 ]