转载
Y3SV6""y/ 使用方法是在Autolisp中加载后再使用命令:
}%D${.R] 如:
8TTj<T!N ;; HELIX .LSP 螺旋线生成
qI<c47d;q (Defun C:Helix ()
bEmzigN[ (SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
.0MY$ 0s r (GetDist p "\n半径: ")
#8y"1I=i& b (GetDist p "\n总高度: ")
JkKbw&65 a (GetAngle p "\n起始角: ")
gLK0L%"5 m (GetInt "\n圈数: ")
^~dC&!D n (GetInt "\n每圈线段数: ")
VHv L:z da (/ (* m 2 Pi) (* m n))
xE!b) @>S dz (/ b (* m n))
-C* 6>$A )
L^K,YlNBR (Command "3dpoly")
DQ c pIV (Repeat (1+ (* m n))
:NB.ib@* (Command (Polar (List x y z) a r))
Hoi~(Vc. (SetQ a (+ a da) z (+ z dz))
"Jdi>{o8 )
K>n@8<7 (Command "")
^AERGB\36 (PrinC)
^oNcZK> )
+Eel|)Z*Q Y' 5X4Ks| 把这个复制到工具AutoLISP Visual LISP编辑器里另存为一个文件,再加载就可以了
dV-6 l6 再对话框里输入HELIX 命令就可以了
[ 此贴被calon1982在2006-04-09 17:16重新编辑 ]