cad2006弹簧立体如何画

Question

如题所述

Answer 1

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)) (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj)))) (Command pt2) ) (Command "") ) 存盘为luoxuan.lsp，关闭编辑器 3、要用时，点工具／AUTOLISP／加载，找到luoxuan.lsp文件将其加载，关闭对话框．在命令行输入luoxuan回车，就开始了螺旋线的绘制