[推荐][原创]真实螺纹做法

xtxb0713 · 发表于 2006-3-10 14:33:56

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

您需要登录才可以下载或查看，没有账号？注册会员

×

[推荐][原创]真实螺纹做法

[推荐][原创]真实螺纹做法

[推荐][原创]真实螺纹做法

[推荐][原创]真实螺纹做法

[推荐][原创]真实螺纹做法

[推荐][原创]真实螺纹做法

[推荐][原创]真实螺纹做法

[推荐][原创]真实螺纹做法

[推荐][原创]真实螺纹做法

cdpking · 发表于 2006-3-10 15:39:13

360片,一片一片的提高吗?好象麻烦了点.不过最后的效果还是不错的.

wgq2808 · 发表于 2006-3-10 17:35:16

麻烦！

xtxb0713 · 发表于 2006-3-10 17:50:11

谁有更好的办法画三维实体螺纹,请更贴,大家互相学习,取长补短;我试过用螺旋线做路径拉伸螺纹,总是不能达到实际效果,才用此苦法>>>>>>

ruijie520 · 发表于 2006-3-28 10:34:19

唉！到头来还是不懂，那位好心人肯教一下呢？我看这个看不明白。怎么办？？？有人肯教的话请加我QQ：380150252先在此谢过了。

激流 · 发表于 2006-3-28 15:01:02

用此加载程序绘制比较简单：(defun c:luox(/)   (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 k 0)   (command "ucs" "o" b1)   (command "3dpoly" (list r 0 0))   (repeat n     (setq k(+ k 1))     (setq ang(+ delta ang))     (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))     (command pt2)     )   (command " ")   )绘制前单击【工具】-【Auto LISP】-【加载】绘制时输入：luox 回车

xtxb0713 · 发表于 2006-3-28 23:19:26

楼上的是一段螺旋线程序，但是，要实现真实螺纹并不是想象的那么简单。

xtxb0713 · 发表于 2006-10-18 18:39:38

使用块,技巧是需要时发现的.

shapeh · 发表于 2006-10-24 16:46:27

这技术也出来发贴,[em14]

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

[推荐][原创]真实螺纹做法

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

浏览过的版块