;; HEL.LSP  功能：用户化生成三维螺旋线
(Defun C:Hel ()
(SetQ p (GetPoint "\n输入三维螺旋线的中心点: ") x (Car p) y (Cadr p) z (Caddr p)　　
             r (GetDist p "\n输入三维螺旋线基面的半径: ")
             b (GetDist p "\n输入三维螺旋线的总高度: ")
             a (GetAngle p "\n输入三维螺旋线的起始角: ")
             m (GetInt "\n输入三维螺旋线的圈数: ")
             n (GetInt "\n输入三维螺旋线中每一圈的线段数: ")
            da (/ (* m 2 Pi) (* m n))
            dz (/ b (* m n))
         　)
         　(Command "3dpoly")
         　(Repeat (1+ (* m n))
               (Command (Polar (List x y z) a r))
               (SetQ a (+ a da) z (+ z dz))
) 
         　(Command "") 
        　 (PrinC)
)
