QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 4315|回复: 19
收起左侧

[分享] 齿轮渐开线 源程序

[复制链接]
头像被屏蔽
发表于 2006-9-21 19:20:53 | 显示全部楼层 |阅读模式 来自: 中国河南洛阳
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2007-2-27 20:29:12 | 显示全部楼层 来自: 中国辽宁

齿轮渐开线程序

齿轮轮齿渐开渐开线" ^3 v# `. _: a/ h$ B
(defun c:gear(/)6 ]& e4 z  \/ P: z% j4 P5 z+ p
(
6 N0 V8 q* `  y6 a9 X8 o, ?3 P setq( T& T4 j/ q; G( E3 [# H
p0 (getpoint"输入齿轮中心p0: ")0 p2 G* A( i2 E  P( z, [
m  (getreal"输入齿轮模数M: ")2 p$ w6 f; z( z' B
z  (getint"输入齿轮齿数Z: ")
4 C6 D7 }% q5 {* ?9 F0 Z  S: B* j+ Kha 11 W8 u% N. j! J! {* g/ O4 C
c 0.25
0 ~$ e- ^9 t/ e8 _a (/ pi 9)
& u, ~: e" D. T9 i( U' l1 gra(/ (* (+ z (+ ha ha)) m) 2)$ F7 f0 [% d0 A+ X; F+ K$ w
rf(/ (* (- z (+ (+ ha ha) c)) m) 2)4 A) V: l' F3 X& `0 @; I" U
r(/ ( * m z) 2)5 A6 c- i+ O5 z9 N: A
rb ( * r (cos a))
' h% L  T( C8 n) gri rb* A( }2 ~! f; Y6 h
ang 0
% E* C9 Z3 B$ f3 S4 cg (polar p0 ang rb)
. T# G+ @- y0 S! b! y) T  K)$ V0 r5 g0 b& m3 v
(command "circle" p0 ra)
0 b: f4 s. ^" @5 l/ F4 r5 W  F/ U(command "circle" p0 rf)1 w3 i$ _# z/ Z( c
(command "circle" p0 r)
" l$ p6 M9 t# o/ `; G(command "line"  g)! A  F- Q! C7 K) @. b( }* c% \+ P
  / x3 y9 r. I2 X6 k+ k4 D
(while (< ri ra)2 l, M( e5 U, t' f5 r
(setq' N% f" [- H* b2 y; B  ?+ J$ j+ O0 t
ang ( + ang(/ pi 360))
. U8 c8 U0 M7 }ri ( / rb (cos ang))
2 Q% K3 f; A  [( c$ _cta ( - (/ (sin ang) (cos ang)) ang)3 A% _8 G' S: \$ r$ w7 h
g(polar p0 cta ri)
$ {  n/ N3 R6 _1 s! \$ n" r)' B( M! Z$ a9 }# R, u! h6 ~
(command g)3 f0 k" O: R; c: ^8 a; i5 R
)# [9 A$ j. W5 ~6 p' X8 H* ^! \0 O
(command ) & @( o" m$ }3 b6 z8 ~/ i& w
)
发表于 2007-2-28 09:18:19 | 显示全部楼层 来自: 中国台湾
Gear.lsp可自動畫公英制平齒輪和齒條6 X6 v/ [. i' w( R, d1 a
# G5 C& v6 Y9 R2 ~
[ 本帖最后由 joseflin 于 2007-2-28 09:21 编辑 ]
Gear.gif
Gear(g).gif
Gear(r).gif

Gear.rar

2.5 KB, 下载次数: 128

发表于 2007-2-28 10:35:34 | 显示全部楼层 来自: 中国重庆
感谢楼主的分享,这是个不错的工具
& q/ m+ I% l' U0 \0 a! {! @; m7 i/ k- q* |可以节省很多时间
发表于 2007-3-1 14:25:15 | 显示全部楼层 来自: 中国浙江宁波
我下了程序就是打不开,
发表于 2007-3-2 10:52:33 | 显示全部楼层 来自: 中国浙江温州
我用CAXA生成齿轮,再转成DWG,不管怎样,CAXA齿轮程序还是强大一些。可以画变位齿轮,非标齿轮……
发表于 2007-3-3 10:10:04 | 显示全部楼层 来自: 中国浙江金华
真的很不错,谢谢!在CAD内很实用,唯一不足的是变位系数不能输入!楼主有好的程序没有?可以发我吗?xcy889900@163.com期待您的赐教!
发表于 2007-3-9 09:01:38 | 显示全部楼层 来自: 中国山东临沂
不会用,怎样用?
发表于 2007-3-20 15:46:46 | 显示全部楼层 来自: 中国河南安阳
感谢!画的时候很有用!
发表于 2007-3-22 19:09:08 | 显示全部楼层 来自: 中国云南昆明
一般画齿轮都是按简化画法来画齿轮的,看起来不是太直观,现也来试试楼主的小程序,希望有收获.
发表于 2007-4-26 23:26:47 | 显示全部楼层 来自: 中国福建福州

评分

参与人数 1三维币 -2 收起 理由
★新手★ -2 灌水

查看全部评分

发表于 2008-3-19 10:36:46 | 显示全部楼层 来自: 中国江苏徐州

不好提出???
发表于 2008-3-25 19:47:33 | 显示全部楼层 来自: 中国安徽滁州
这个文件放在哪啊,用不好,请指教
发表于 2008-3-25 21:15:06 | 显示全部楼层 来自: 中国广东广州
楼主有好的程序没有?
发表于 2008-3-28 22:03:28 | 显示全部楼层 来自: 中国辽宁沈阳
在CAXA编辑生成齿轮,然后在文件下拉采单数据接口转换成再转成DWG或DXF格式的文件,再用CATIA打开DWG或DXF格式的文件,选择所有齿轮线,复制到三维空间,可将其生成实体,可以进行编程数控加工
头像被屏蔽
发表于 2008-3-29 15:46:56 | 显示全部楼层 来自: 中国广东广州
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2008-6-3 10:45:25 | 显示全部楼层 来自: 中国内蒙古包头

回复 2# 的帖子

应该告诉我们大家怎么用  我们都是初学者  呵呵
发表于 2008-6-3 14:15:54 | 显示全部楼层 来自: 中国北京
几个英文参数写得看不太懂。8 y! R! o( w6 L' \

, k% d, @! V% k4 r/ e, {; L( e3 l2 O是可以画内齿轮,外齿轮,齿条,变位齿轮等
发表于 2008-6-3 14:56:05 | 显示全部楼层 来自: 中国上海
齿轮角度有时候也有要求,楼主的程序似乎对角度方面没有考虑到哦,是否能够再进一步补全这个程序
发表于 2008-6-17 11:35:04 | 显示全部楼层 来自: 中国广东广州
五识用啊!!
$ T$ E! d2 p+ G' E# K
5 L( W2 ^1 j. A. t
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表