转载
vSoG] :1 使用方法是在Autolisp中加载后再使用命令:
v''J@ F7 如:
c'Ibgfx%m ;; HELIX .LSP 螺旋线生成
O&;d8 2IA{ (Defun C:Helix ()
/?XI,#j3kM (SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
}|[0FP] v r (GetDist p "\n半径: ")
h <$%y(lP b (GetDist p "\n总高度: ")
F]>+pU
a (GetAngle p "\n起始角: ")
kX }sDvP3 m (GetInt "\n圈数: ")
Jc]66
n (GetInt "\n每圈线段数: ")
~=[5X,Ta da (/ (* m 2 Pi) (* m n))
7,Z <PE dz (/ b (* m n))
88[u^aC )
yIngenr$ (Command "3dpoly")
NRT]dYf"z (Repeat (1+ (* m n))
y x#ub-A8 (Command (Polar (List x y z) a r))
$MNJsc^n (SetQ a (+ a da) z (+ z dz))
D/4]r@M2c )
#=ij </ (Command "")
e 6 >j
gy (PrinC)
a$^)~2U{ )
gYk5 }E- 1|H4]!7kE 把这个复制到工具AutoLISP Visual LISP编辑器里另存为一个文件,再加载就可以了
k2,`W2] ^E 再对话框里输入HELIX 命令就可以了
[ 此贴被calon1982在2006-04-09 17:16重新编辑 ]
