AUTOCAD中的螺旋线怎么画?(椭圆的上下两面圆的不同象限点如何在椭圆表面用曲线连接)

来源：百度知道 编辑：UC知道 时间：2024/06/30 23:23:36
AUTOCAD中的螺旋线怎么画?(椭圆的上下两面圆的不同象限点如何在椭圆表面用曲线连接)
我的是2005版本
哪位大侠帮帮兄弟啊?请详细说明在两圆不同象限点之间的外表面连接线的作法
如果是用圆环切割,然后旋转的方法就不用了
谢谢
(Defun C:Helix ()
(SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
r (GetDist p "\n半径: ")
b (GetDist p "\n总高度: ")
a (GetAngle p "\n起始角: ")
m (GetInt "\n圈数: ")
n (GetInt "\n每圈线段数: ")
da (/ (* m 2 Pi) (* m n))
dz (/ b (* m n))
)
(Command "3dpoly")
(Repeat (1+ (* m n))
(Command (Polar (List x y z) a r))
(SetQ a (+ a da) z (+ z dz))
)
(Command "")
(PrinC)
)

存盘HELIX.lsp，关闭编辑器
画图时点工具／AUTOLISP／加载，找到HELIX.lsp文件将其加载，关闭对话框．在命令行输入HELIX回车，按命令行提示输入螺纹数据，就可画成螺旋线，然后画牙型截面，实体拉伸，再画圆柱体与之并集即可
这个我实验过了可以做螺旋线,但用正多边型旋转拉伸的时候还附加有自旋转,所以弹簧可以做,但螺纹还是做不了,我记得上学的时候老师说过可以连接椭圆2个底面的不同象限点的做法,有人知道吗?
还有我要谢谢大家的回答

阿基米德螺旋线
用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))
(setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj))))
(Command pt2)
)
(Command "")
)
存盘为luoxuan.lsp，关闭编辑器
3、要用时，点工具／AUTOLISP／加载，找到luo