ljcgq 发表于 2004-4-21 21:39:00

先画出螺齿的样子然后做成面域，在一条螺旋线，沿线做成实体。

白李子 发表于 2004-4-21 22:08:00

我有一个自编的，记得贴过，但找不到了，再贴一次，请版主谅解。

zhuguofu 发表于 2004-4-22 08:17:00

zhuguofu 发表于 2004-5-8 13:53:00

ljcgq 发表于 2004-5-9 07:13:00

螺纹和弹簧两回事，螺纹有不同规格标准比如大径，中径，小径，齿高，导程，齿矩，线数。。。很多参数，你需要什么样的螺纹？


;螺纹绘制<BR>(defun C:lw(/ b1 r t n nn delt bb ang jj pt2 )<BR>(setq o(getpoint "\n基准:       "))<BR>(setq r(getreal "r=："))<BR>(setq t(getreal"节距"))<BR>(setq n(getint"段数"))<BR>(setq nn(getint"环数"))<BR>(setq delt (/ (* 2.0 pi) n ))<BR>(setq j( / t n))<BR>(setq bb(caddr b1))<BR>(setq ang 0)<BR>(setq jj 0)<BR>(command "ucs" "o" o)<BR>(command "3dpoly" (list r 0 0))<BR>(repeat nn<BR>       (repeat n <BR>                                                       (setq jj(+ jj 1))<BR>                                                               (setq ang (+ delt ang))<BR>                                                       (setq pt2(list (* r (cos ang))(* r (sin ang))(+ 0(* j jj))))<BR>                                                       (command pt2)<BR>       )<BR>)<BR>(command "")<BR>)

zhuguofu 发表于 2004-5-9 09:47:00

zhuguofu 发表于 2004-5-9 10:02:00

zhuguofu 发表于 2004-5-9 11:07:00

ljcgq 发表于 2004-5-9 17:57:00

zhuguofu发表于2004-5-9 10:02:00static/image/common/back.gif15楼的你的程序也不好用的呀！我要的是3D罗纹

你觉得怎么才算好用？说说让大家也提高提高！

ljcgq 发表于 2004-5-9 17:58:00




这样的效果可以么？
页: 1 [2] 3
查看完整版本: 怎么画螺纹