[必看]：AutoCAD下会动的3D齿轮！！！！！

zxdcad · 发表于 2004-6-6 22:49:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

100%的AutoCAD环境，齿轮是标准的渐开线3D齿轮，

两齿轮的啮合100%准确，不信请看

http://www.xdcad.net/forum/showthread.php?s=&threadid=194497

lijiao · 发表于 2004-6-7 07:43:42

你以为这真的有用吗？
现在不是“不看会后悔”，而是“看了会后悔”。

zxdcad · 发表于 2004-6-7 15:31:56

lijiao长老，我这个东西，你看了后悔，可是有人正需要（因我是应论坛上人的要求搞的）。

你的水平是高，我查过你的一些贴子，我需要向你学习，毕竟到这地方是来学习的！以后还请你多帮助！

有什么地方做的不好的，请你指正！

lijiao · 发表于 2004-6-8 08:05:19

这样的东西，我以前也做过，而且比这要复杂。
当时，我设计的产品出了一些问题，我想通过这种方式来解决问题，结果时间也花了，问题却没有解决。
这种东西只能是看看而已，如果要做设计，做运动模拟，INVENTOR就不错，如果要做运动仿真，还要用到别的软件。
我说“看了后悔”，主要是针对“不看后悔”，因为这样的东西没有实际使用意义，看后觉得有被欺骗的感觉，所以后悔。
我不喜欢抬杠，更不会用抬杠的方式来获得爱心币。

arja · 发表于 2004-6-9 14:59:12

请问齿轮的浙开线如何绘制啊？还有请问这个程序是怎么编的啊，能不能教教啊？？？谢谢！

zxdcad · 发表于 2004-6-10 10:39:49

我只能给一个浙开线函数，因我也是用它在ACAD中生成一段齿廓后手工做的（比较原始哟）

阿卡. · 发表于 2004-6-10 14:25:33

挺好的,有意思

Ejnkejnk · 发表于 2004-6-11 11:09:11

关于这个问题，zxdcad就不要再炒作了吧，你这个帖子炒了这么久，却始终没有将你的作法说明白，就算你想让大家一同学习学习，也应该说清楚说明白，搞这么多玄机，不知道的始终都是个不知道，反而搞得大家心里火

zxdcad · 发表于 2004-6-11 15:16:14

这有什么炒作的呀！
实际上我作这个齿轮（渐开线）也笨的要紧，我用了一个渐开线函数在ACAD中生成一段曲线，然后编辑，复制，面域，拉伸才做出来的。
若你要这个渐开线程序，我贴出来，你自己研究完善去。
另外：这个齿轮的运动我是参照“CAD下实体运动”贴的方法作的，程序也不完善，你若有兴趣看，我也贴出来。

(两个东西全是源代码)

总之：我不是想什么炒作，主要是我的lisp水平太臭（说实在的，到现在能记住的函数也没几个，差不多都是现翻现用）。

Ejnkejnk · 发表于 2004-6-12 14:35:15

我看楼主在最初发表关于运动的分析时，运动的实体就不止一个，比如你贴的两个齿轮干涉运动，两个齿轮要有各自的中心点，但坐标只有一个，请问你是怎么做到的

zxdcad · 发表于 2004-6-12 21:55:56

这类齿轮传动，其回转中心本是固定的，（向那个转子式机油泵也是一样的），在做块时将块的插入点设置到齿轮的回转中心就可以了。

程序中初插块时根据几何尺寸确定块的位置，这个演示的两个齿轮块一个是（0，0），一个是（100，0）。

进入循环后，不需动坐标位置，只改变两个块的转角就行了。块自会按各自的插入点旋转。

Ejnkejnk · 发表于 2004-6-14 08:24:27

程序中初插块时根据几何尺寸确定块的位置，这个演示的两个齿轮块一个是（0，0）... [/B][/QUOTE]

我是说像你哪个机油泵有两个快在转动，是否在插入一个块时，已经被设置成了转动模式，因为好像哪个LISP（JYB）一但被启动后，快就转动了，这时不可能设置第二个快转动呀

zxdcad · 发表于 2004-6-14 10:06:16

我不知你看过源程序没有，下面将这部分详细说明一下，

   .
   .
   .

  (COMMAND "ERASE" "ALL"  "" )             ;删除所有可删除对象
  (COMMAND "INSERT" "1" "0,0" "" "" 0)       ;插入第一齿轮块
  (setq xa1 (entget (entlast)))             ;构造该齿轮块的选择集
  (COMMAND "INSERT" "2" "100,0" "" "" 0)    ;插入第二个齿轮块
  (setq xa2 (entget (entlast)))             ;构造该齿轮块的选择集
  (setq cs(- (/ (* 360 qss) degsetp) 1) )
  (setq rad (/ pi 180 ))

  (setq degs (* rad degsetp ))
  (setq deg0 0)

  (while (>= cs 0)
(setq deg0 (+ deg0 degs))
(setq deg (- deg0))                   ;因示例中两齿轮齿数一样,所以deg=-deg0
(setq xa1 (subst (cons 50 deg) (assoc 50 xa1) xa1)) ;修改第1个齿轮块的转角
(setq xa2 (subst (cons 50 deg0) (assoc 50 xa2) xa2))  ;修改第2个齿轮块的转角
(entmod xa1)
(entmod xa2)                                        ;将修改数据写入DWG系统(或者说写入数据库中)
(command "DELAY" "0")                               ;延时刷新

   .
   .
   .

xianlin · 发表于 2004-6-18 16:51:51

做簡單的還行吧, 如果一條生產線要動起. 就太累了.不過我還是頂一下, 因為我沒有做過!

硕仔 · 发表于 2004-6-19 14:51:37

哦!!謝謝!!我會努學架啦!!!

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

[必看]：AutoCAD下会动的3D齿轮！！！！！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子