转载
Ho[]03 使用方法是在Autolisp中加载后再使用命令:
+ 660/ e8N 如:
W! Hn`T ;; HELIX .LSP 螺旋线生成
\IudS{
.?; (Defun C:Helix ()
nG{o$v_| (SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
&N+` O)$ r (GetDist p "\n半径: ")
hn/yX|4c( b (GetDist p "\n总高度: ")
sX*L[3!vN a (GetAngle p "\n起始角: ")
l%?4L/J)# m (GetInt "\n圈数: ")
c5 AaUza n (GetInt "\n每圈线段数: ")
DO+~ da (/ (* m 2 Pi) (* m n))
^SsnCn-e dz (/ b (* m n))
y9LO ;{( )
[?qzMFb (Command "3dpoly")
'.>y'= (Repeat (1+ (* m n))
$;~YgOVZ5 (Command (Polar (List x y z) a r))
_6`GHx (SetQ a (+ a da) z (+ z dz))
X=lsuKREZ )
rl$"~/ oz (Command "")
& 5z9C=]e (PrinC)
cu '( Hj )
iWFtb)3B /` nkz 把这个复制到工具AutoLISP Visual LISP编辑器里另存为一个文件,再加载就可以了
'$'a .q1q9 再对话框里输入HELIX 命令就可以了
[ 此贴被calon1982在2006-04-09 17:16重新编辑 ]
