转载
-h1FrDBt 使用方法是在Autolisp中加载后再使用命令:
aX,ux9# 如:
D4;6}gRC ;; HELIX .LSP 螺旋线生成
5nh:S0M6V (Defun C:Helix ()
Y>a2w zr (SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
wfY]J0l r (GetDist p "\n半径: ")
j` LvS b (GetDist p "\n总高度: ")
Zrm !,qs a (GetAngle p "\n起始角: ")
>#8J@=iuqv m (GetInt "\n圈数: ")
ly)L%h G n (GetInt "\n每圈线段数: ")
b]XDfe da (/ (* m 2 Pi) (* m n))
Qu6Q)dZ< dz (/ b (* m n))
S1G=hgF_L )
^ e4y:# Nu (Command "3dpoly")
q A?j-H (Repeat (1+ (* m n))
^_o9%)RL( (Command (Polar (List x y z) a r))
@ 9q/jv` (SetQ a (+ a da) z (+ z dz))
BzyzOtBp3L )
#`Gh8n# (Command "")
O({vHqN> (PrinC)
S)~Riuy$ )
Yh 9fIRR I15g G.) 把这个复制到工具AutoLISP Visual LISP编辑器里另存为一个文件,再加载就可以了
zm`^=cV 再对话框里输入HELIX 命令就可以了
[ 此贴被calon1982在2006-04-09 17:16重新编辑 ]
