转载
S[/udA 使用方法是在Autolisp中加载后再使用命令:
t!J>853 如:
d$+0 ;D4E ;; HELIX .LSP 螺旋线生成
!- QB>`7$ (Defun C:Helix ()
9 4lt?|3= (SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
Lwf[*n d r (GetDist p "\n半径: ")
p= x &X~
b (GetDist p "\n总高度: ")
lnjs{`^ a (GetAngle p "\n起始角: ")
tq'hiS(b m (GetInt "\n圈数: ")
:KG=3un] n (GetInt "\n每圈线段数: ")
`}sFT:1& da (/ (* m 2 Pi) (* m n))
fiSX( 9 dz (/ b (* m n))
Hi~ )C \ )
u 6l)s0Q (Command "3dpoly")
=1|p$@L `% (Repeat (1+ (* m n))
`VGw5o (Command (Polar (List x y z) a r))
BLqK5~ (SetQ a (+ a da) z (+ z dz))
RX? !MDO )
Tw` dL K? (Command "")
D^F=:-l
m (PrinC)
A(`Mwh+ )
ks%;_~b T5T[$ %]6 把这个复制到工具AutoLISP Visual LISP编辑器里另存为一个文件,再加载就可以了
Da6l =M 再对话框里输入HELIX 命令就可以了
[ 此贴被calon1982在2006-04-09 17:16重新编辑 ]
