[求助]：一堆问题：怎么画螺旋线

￥夜悸孤枕￥

前几天不可以近来 急死了

各位请问怎么画螺旋曲线
怎么设置极轴方向啊 比如说在轴测图中 极轴方向只有X、Y方向   要怎么把极轴设为Z方向啊  
谢谢

nore

极轴可以用UCS自己设定的
螺旋曲线的画法在论坛中有过的，找一下吧

cdhua001

用“螺旋”二字为关键字，能搜出一大堆关于螺旋线的帖子。这里我帮你找了一个：
http://www.xdcad.net/forum/showt ... d=244928#post244928

￥夜悸孤枕￥

谢谢了 大家帮助才有长进啊
楼上的各位 我希望是平面的螺旋线 如果有人知道 谢谢提个醒啊

syb106

平面螺旋线，如果知道公式，可以通过EXCEL求出坐标，在CAD画出来，不过，精度与你所取的坐标细分程度有关

ahlzl

我画的.右面一个是渐开线,左面一个是螺旋线.你要哪个?

wax03

知道公式应该可以用LISP写个小程序也可以的，这种线条用的不多，我自己没画过。

lsjjm

请看一个画螺旋线的lisp程序:
(defun c:test ()
  (setq pc (getpoint "\nCenter Point: "))
  (setq n (getint "\nNumber of totations: "))
  (setq gr (getdist "\nGrowth per rotation: "))
  (setq pr (getint "\nPoints per rotation<30>: "))
  (cond ((null pr)(setq pr 30)))
  (spiral n pc gr pr nil nil)
  (princ)
)
(defun spiral (ntimes bpoint hfac lppass strad vfac)
  (setq cir (* pi 2)
       ainc (/ cir lppass)
      dhinc (/ hfac lppass)
        ang 0.0)
  (if vfac
    (progn
      (setq dvinc (/ vfac lppass))
      (setq dist strad dv 0.0)
      (command "3dpoly")
    )
    (progn
      (setq dist 0.0)
      (command "pline" bpoint)
    )
  )
  (repeat ntimes
    (repeat lppass
      (setq tp (polar bpoint (setq ang (+ ang ainc))
                             (setq dist (+ dist dhinc))))       
      (if vfac
        (setq tp (list (car tp)(cadr tp)(+ dv (caddr tp))) dv (+ dv dvinc))
      )
      (command tp)
    )
    (command "")
  )
)

￥夜悸孤枕￥

六楼的斑竹 我要的是右边的那个

kingzjy

学到了啦！！谢谢！！这里高手多，看来我也常来呀！！！！

￥夜悸孤枕￥

谢谢各位大哥 虽然我对lisp还不懂 （只是昨天看到了跟贴去cad中看看了）  但还是很感谢 不知道那位可以给我最简单的方法啊  （那些lisp的程序看来很恐怖啊）平面的螺旋线的画法

ahlzl

第6贴右边的是“渐开线”非“螺旋线”。看这：http://www.xdcad.net/forum/showthread.php?threadid=67331

￥夜悸孤枕￥

谢谢斑竹提醒 说实话小弟还不知道渐开线和螺旋线的区别？可以指教一下吗