lisp 阿基米德螺旋_用CAD如何画阿基米德螺线

1.可以先用“电子表格”按阿基米德螺线公式计算出一列成对的X、Y的值。并做成“X，Y”的形式，然后复制这一列值，在CAD里画样条时粘贴上去就成了，“电子表格”中取样越细，画的图越精确，，“电子表格”中取样细不会增加人的工作量的。

2.还可以用CAXA画。

阿基米德螺旋线

用autolisp编程可以实现

(command "pline" )(setq n 0)(repeat 1000

(command (polar (list 0 0) (/ n 57.3) n))

(setq n (1+ n)))(command)弹簧和螺纹(三维)

1.打开CAD后，找工具／AUTOLISP／VISUAL LISP编辑器，打开．点新建文件

2.然后输入

(defun c:luoxuan(/)(setq b1 (getpoint "请指定螺旋线基点: "))

(setq r (getreal "请输入螺纹平均半径: "))

(setq disp (getreal "请输入螺纹节距: "))

(setq n (getint "请输入每圈细化段数: "))

(setq delta (/ (* 2.0 pi) n))

(setq j (/ disp n))

(setq bb (caddr b1))

(setq ang 0)

(setq jj 0)

(Command "UCS" "o" b1)

(Command "3dpoly" (list r 0 0))(repeat n(setq jj(+ jj 1)

(setq ang(+ delta ang))