转载
<q=Zg7zB 使用方法是在Autolisp中加载后再使用命令:
W+a/>U 如:
! Wr<T!T ;; HELIX .LSP 螺旋线生成
Sesdhuy.@ (Defun C:Helix ()
8e-nzc,] (SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
d3q%[[@ r (GetDist p "\n半径: ")
]B )nN': b (GetDist p "\n总高度: ")
LY0f`RX*& a (GetAngle p "\n起始角: ")
*1EmK.-'u m (GetInt "\n圈数: ")
8vuTF*{yZ n (GetInt "\n每圈线段数: ")
N~flao ^ da (/ (* m 2 Pi) (* m n))
?7NSp2aq2A dz (/ b (* m n))
t[TM\j0jW )
6agq ^wI (Command "3dpoly")
JxinfWk
(Repeat (1+ (* m n))
_S{TjGZ&
(Command (Polar (List x y z) a r))
+ \Vw:~e (SetQ a (+ a da) z (+ z dz))
<<LLEdB )
nx%A s (Command "")
?+EAp"{j (PrinC)
1*p6UR& )
iz=cjmV? (W
h)Ov" 把这个复制到工具AutoLISP Visual LISP编辑器里另存为一个文件,再加载就可以了
]<<,{IQ 再对话框里输入HELIX 命令就可以了
[ 此贴被calon1982在2006-04-09 17:16重新编辑 ]
