神马品牌网内在美 有多少演员:悬赏提问：AUTOCAD画弹簧和螺纹（三维）
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 06:13:56
用AUTOCAD怎么画三维的弹簧和螺纹，我要画的是很直观的三维图形，不是画示意图。请说得具体点，光说用什么命令是不行的，还要讲每一步骤，解决了我的问题有奖赏分。上一次我的悬赏分是20分，结果没有一个人解决我的问题，但到期我不得不付出悬赏分。这次我只给5分，回答正确保您满意。
对不起，我是AUTOCAD的初级用户，你的答复我不是太明白。我按你说的一步一步去做了。但是不行，提示说列表错误，输入“luoxuan”命令后，说是未知命令。能否说得明白一点，谢谢了。
对不起，我是AUTOCAD的初级用户，你的答复我不是太明白。我按你说的一步一步去做了。但是不行，提示说列表错误，输入“luoxuan”命令后，说是未知命令。能否说得明白一点，谢谢了。
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回车，就开始了螺旋线的绘制