怎么画螺纹

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

螺纹和弹簧两回事，螺纹有不同规格标准比如大径，中径，小径，齿高，导程，齿矩，线数。。。很多参数，你需要什么样的螺纹？ ;螺纹绘制
(defun C:lw(/ b1 r t n nn delt bb ang jj pt2 )
(setq o(getpoint "\n基准: "))
(setq r(getreal "r=："))
(setq t(getreal"节距"))
(setq n(getint"段数"))
(setq nn(getint"环数"))
(setq delt (/ (* 2.0 pi) n ))
(setq j( / t n))
(setq bb(caddr b1))
(setq ang 0)
(setq jj 0)
(command "ucs" "o" o)
(command "3dpoly" (list r 0 0))
(repeat nn
(repeat n
(setq jj(+ jj 1))
(setq ang (+ delt ang))
(setq pt2(list (* r (cos ang))(* r (sin ang))(+ 0(* j jj))))
(command pt2)
)
)
(command "")
)

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:0015楼的你的程序也不好用的呀！我要的是3D罗纹

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

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

这样的效果可以么？

账号		自动登录	找回密码
密码			注册

怎么画螺纹

本帖子中包含更多资源

本帖子中包含更多资源

zhuguofu zhuguofu 当前离线积分 463 明经币个注册时间 2004-4-18 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2004-4-22 08:17:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

zhuguofu zhuguofu 当前离线积分 463 明经币个注册时间 2004-4-18 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2004-5-8 13:53:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

zhuguofu zhuguofu 当前离线积分 463 明经币个注册时间 2004-4-18 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2004-5-9 09:47:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

zhuguofu zhuguofu 当前离线积分 463 明经币个注册时间 2004-4-18 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2004-5-9 10:02:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

zhuguofu zhuguofu 当前离线积分 463 明经币个注册时间 2004-4-18 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2004-5-9 11:07:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡