AUTO CAD 中画螺旋线的几种方法.docVIP

AUTO CAD 中如何画螺旋线？ 1、打开ＣＡＤ后，找工具／ＡＵＴＯＬＩＳＰ／ＶＩＳＵＡＬ　ＬＩＳＰ编辑器，打开．点新建文件 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)) (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj)))) (Command pt2) ) (Command ) ) 存盘为luoxuan.lsp，关闭编辑器 3、要用时，点工具／ＡＵＴＯＬＩＳＰ／加载，找到luoxuan.lsp文件将其加载，关闭对话框．