请问哪位有直齿圆柱齿轮GRIP程序代码

fyp3621387 · 发表于 2013-4-22 18:59

要做毕设，是关于ug二次开发的，已经确定用GRIP了。
  请问，是要先画出齿轮，然后生成GRIP代码，还是直接用GRIP编程？
  最近为了这个，头都大了。
  论坛有很多齿轮外挂，不过都是不给源代码的。
  哪位大神来救救我，在此，先谢过了！

hyfjy · 发表于 2013-4-28 20:35

一般说，源代码都是技术核心，一般人不愿无偿提供的，指望天上掉下个林妹妹，然后结婚生子过日子，一般要失望的。

1821117007 · 发表于 2013-4-30 09:28

entity/ps1(3631),obj(99),ol(6),box(2000),pp(99),ln(99),jjp(3)
NUMBER/mat1(12),mat2(12),mat3(12),mat4(12),mat5(12),mat6(12)
NUMBER/NUM1(3),NUM2(3),NUM3(3),NUM4(3),NUM5(3),NUM6(3)

STRING/MEILEI(100)
MEILEI='C:\MeiLei_UG_WG'

m=4             $$ 模数
z=24          $$ 齿数
a=20          $$ 压力角
la=5          $$ 螺旋角
r=1             $$ 齿根R角
h=20          $$ 齿轮厚度

JUMP/MLM:
MLM:

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$                      其它代码内容                      $$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

L10:
param/'梅雷提示！请输入渐开线参数...',$
   '模数',m,$
   '齿数',z,$
   '压力角',a,$
   '螺旋角(-45_+45)',la,$
   '齿根R角',R,$
   '齿轮厚度(h>0)',h,resp
jump/L10:,end:,,,resp

m=absf(m)
z=absf(z)
a=absf(a)
z=INTF(z)

IF/z>150,JUMP/A1:
IF/m==0,JUMP/A2:
IF/z==0,JUMP/A3:
IF/a==0,JUMP/A4:
IF/la>45,JUMP/A5:
IF/la<-45,JUMP/A5:

pi=3.14159265
da=m*(z+2)
db=m*z*cosf(a)
df=m*(z-2.5)

nnn=z*20                $$ 精确度控制越大越精确

aarr=h*sinf(la)          $$ 螺旋角参数

L20:
   GPOS/'梅雷提示！请选择点位...',XAA,YAA,ZAA,resp
   JUMP/L10:,END:,,,resp

$$ 还原坐标前条件
ol(1)=LINE/0,0,0,1,0,0
ol(2)=LINE/0,0,0,0,1,0
ol(3)= CSYS/ol(1),ol(2)

$$ 移动坐标原点
ol(4)=LINE/XAA,YAA,ZAA,XAA+1,YAA,ZAA
ol(5)=LINE/XAA,YAA,ZAA,XAA,YAA+1,ZAA
ol(6)= CSYS/ol(4),ol(5)
&WCS=ol(6)

$$ 创建渐开线
i=0
str1:
i=i+1
t=(i-1)/nnn
q=90*t
s=pi*db*t/4
xt=db*cosf(q)/2+s*sinf(q)
yt=db*sinf(q)/2-s*cosf(q)
zt=0
ps1(i)=point/xt,yt,zt
if/t<1,jump/str1:

ln(3)=spline/ps1(1..i)    $$ 创建样条近似渐开线

d=m*z       $$ 分度圆直径
da=m*(z+2) $$ 齿顶圆直径
df=m*(z-2.5)  $$ 齿根圆直径

pp(1)=POINT/0,0,0 $$ 创建圆心点
ln(1)=CIRCLE/CENTER,pp(1),RADIUS,df/2 $$ 齿根圆
ln(99)=CIRCLE/CENTER,pp(1),RADIUS,d/2 $$ 分度圆
ln(4)=CIRCLE/CENTER,pp(1),RADIUS,da/2 $$ 齿顶圆
obj(1)=CIRCLE/CENTER,pp(1),RADIUS,da/2 $$ 齿顶圆
pp(2)=POINT/ln(1),ATANGL,0             $$ 取圆0度角点
pp(3)=POINT/YLARGE,INTOF,ln(99),ln(3) $$ 取沿y方向最大的交点
ln(2)=LINE/ps1(1),pp(2)                $$ 创建线
ln(98)=LINE/pp(1),pp(3)                $$ 创建线
mat1=MATRIX/XYROT,-90/z                $$ 生成旋转矩阵  绕Z轴
ln(98)=TRANSF/mat1,ln(98),move          $$ 变换的实现移动型
mat2=MATRIX/MIRROR,ln(98)             $$ 生成镜像矩阵  绕直线
ln(5)=TRANSF/mat2,ln(3)                $$ 变换的实现复制型
ln(6)=TRANSF/mat2,ln(2)                $$ 变换的实现复制型

$$ 修剪曲线
ln(97)=CRVTRM/ln(1),REF,df,0,0,FIRST,ln(2),$
SECOND,ln(6),STATUS,pm1
ln(96)=CRVTRM/ln(4),REF,da,0,0,FIRST,ln(5),$
SECOND,ln(3),STATUS,pm2
pp(13)=POINT/YLARGE,INTOF,ln(4),ln(3) $$ 取沿y方向最大的交点
pp(12)=POINT/da/2+1,0,0                $$ 创建点
pp(11)=POINT/YLARGE,INTOF,ln(4),ln(5) $$ 取沿y方向最大的交点
$$ 删除对象
delete/ps1,ln(98..99),ln(4)
ln(4)=CIRCLE/pp(11..13)                $$ 过三点画圆
delete/pp

mat3=MATRIX/TRANSL,0,0,h                $$ 生成平移矩阵
mat4=MATRIX/XYROT,aarr                $$ 生成旋转矩阵  绕Z轴

$$ 变换的实现复制型
ln(11)=TRANSF/mat3,ln(1)
ln(12)=TRANSF/mat3,ln(2)
ln(13)=TRANSF/mat3,ln(3)
ln(14)=TRANSF/mat3,ln(4)
ln(15)=TRANSF/mat3,ln(5)
ln(16)=TRANSF/mat3,ln(6)
obj(2)=TRANSF/mat3,obj(1)
$$ 变换的实现移动型
ln(11)=TRANSF/mat4,ln(11),move
ln(12)=TRANSF/mat4,ln(12),move
ln(13)=TRANSF/mat4,ln(13),move
ln(14)=TRANSF/mat4,ln(14),move
ln(15)=TRANSF/mat4,ln(15),move
ln(16)=TRANSF/mat4,ln(16),move

$$ 直纹
obj(3)=RLDSRF/obj(1),,obj(2)
ln(21)=RLDSRF/ln(1),,ln(11)
ln(22)=RLDSRF/ln(2),,ln(12)
ln(23)=RLDSRF/ln(3),,ln(13)
ln(24)=RLDSRF/ln(4),,ln(14)
ln(25)=RLDSRF/ln(5),,ln(15)
ln(26)=RLDSRF/ln(6),,ln(16)
$$ 有界平面
ln(27)=BPLANE/ln(1..6)
ln(28)=BPLANE/ln(11..16)
$$
$$ 一个反齿
$$
box(1)=SEW/ln(21..28)
$$ 提取坐标
NUM1=CPOSF(ln(2),1)
NUM2=CPOSF(ln(6),1)
NUM3=CPOSF(ln(12),1)
NUM4=CPOSF(ln(16),1)
$$ 创建点
pp(71)=POINT/NUM1
pp(72)=POINT/NUM2
pp(73)=POINT/NUM3
pp(74)=POINT/NUM4
$$ 创建线
ln(51)=LINE/pp(71),pp(73)
ln(52)=LINE/pp(72),pp(74)
$$ 提取坐标
NUM5=CPOSF(ln(51),0.5)
NUM6=CPOSF(ln(52),0.5)
pp(51)=POINT/NUM5
pp(52)=POINT/NUM6
$$ 倒圆角
BLEND/box(1),RADIUS,R,pp(51)
BLEND/box(1),RADIUS,R,pp(52)
$$
$$ 创建齿轮
$$
mat5=MATRIX/XYROT,360/z             $$ 生成旋转矩阵  绕Z轴
DO/LO2:,i,2,z
box(i)=TRANSF/mat5,box(i-1)          $$ 变换的实现复制型
LO2:
$$ 实体相减
jjp(1)=SUBTRA/obj(3),WITH,box(1..i)
mat6=MATRIX/XYROT,360                $$ 生成旋转矩阵  绕Z轴
jjp(2)=TRANSF/mat6,jjp(1)             $$ 变换的实现复制型
delete/pp,jjp(1),ln,obj
&WCS=ol(3)  $$ 还原坐标
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$                      其它代码内容                      $$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

END:
RPAINT    $$ 刷新界面
HALT

A1:
messg/'梅雷提示！【齿数≤150】...'
JUMP/L10:

A2:
messg/'梅雷提示！【齿数必须>0】...'
JUMP/L10:

A3:
messg/'梅雷提示！【模数必须>0】...'
JUMP/L10:

A4:
messg/'梅雷提示！【压力角必须>0】...'
JUMP/L10:

A5:
messg/'梅雷提示！【45≥螺旋角≥-45】...'
JUMP/L10:

BQ_BDY:
PRINT/'关于此外挂所有权归制作者梅雷'
PRINT/'为经本人允许！不得将此外挂进行盗用、倒卖！'
JUMP/END:

1821117007 · 发表于 2013-4-30 09:35

表示以后用
ug命令 ui做界面api调用grip联合开发
安装器 7z做压缩 vb做安装界面
我想做点兼职需要开发程序或者思路或者算法
我看很做外挂要手动安装的我可以带做安装器
狗加密出来久容易被破解因为c++高手多 c++加密都是条件语句
如果密码不通过就跳过黑客可以抽调这样的代码这样的加密是能破解的
我代做加密程序
但我不能保证一定破解不了但至少可以让他们头疼

1821117007 · 发表于 2013-4-30 09:37

打一下小广告：
qq 1821117007
梅雷
地址：浙江省温州市虹桥镇虹杏路27号

1821117007 · 发表于 2013-4-30 09:38

我会 vb grip api 3种语言同事加密

1821117007 · 发表于 2013-4-30 10:32

hyfjy 发表于 2013-4-28 20:35
% O8 e% Y7 @# |& h3 c一般说，源代码都是技术核心，一般人不愿无偿提供的，指望天上掉下个林妹妹，然后结婚生子过日子，一般要失 ...

源代码都是技术核心 [其实不是的]
一个程序的灵魂是思路，和算法
有的人知道很多函数却不知道这么应用
有的人很多函数不会却可以通过各种方法实现

中国的模式是限制在函数的使用方法上
而外国之所以发达是因为他们不会限制在基础上
所以很多设计师（服装，建筑等）都是国外的更牛b

我们只能考  思路，和算法去打这场赢战争
（虽然希望渺茫但我们能在这个恶劣的环境下生存下去以经很了不起了）

源代码不分享是情有可原的  -谁也不会把重要的源代码分享【齿轮没什么技术含量可以分享】
【真正的问题是函数的封闭】

hyfjy · 发表于 2013-4-30 20:50

我的专用模块建模过程，
我用的是VB，以软件的形式存在于电脑的任意文件夹中，打开后进行计算，计算过程中输出有关点坐标，然后在编成并调试完成的小模块启动后实现自动建模，小模块以快捷键的启动方式固化在UG的界面上，只要计算后一点，就能自动生成模型了。
以下是一个例子，先计算一对直齿锥齿轮副，然后直接建模，另一个是圆柱类齿轮的计算及快速建模，没有螺旋角45度的限制，几乎可以做出85度左右的螺杆。

专用模块建模1.gif

1821117007 · 发表于 2013-5-1 20:07

hyfjy 发表于 2013-4-30 20:50 3 _/ w4 O. t; d* [
我的专用模块建模过程，
( q9 n" _7 q8 i8 r, W5 M. `我用的是VB，以软件的形式存在于电脑的任意文件夹中，打开后进行计算，计算过程中 ...

人家要的源代码，多说无益，人家问东你答西，还吓起哄，这么专业不专业的你的这个齿轮我也做的出来，我分享了一个简单齿轮的源代码，而你做了什么，？

1821117007 · 发表于 2013-5-1 20:14

我前年发帖很热心，去年开始少了几乎不发，原因是什么，像你这种只会吹牛b的人太多，从来没真真回答过发帖人的问题（一般回帖人不是说自己的水平这么样，就是你去网上找找，你不觉得你回不回帖对提问人都没意义）
我觉得大部分论坛已经偏离了跑道，这年头什么仿制不了的

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

[疑难] 请问哪位有直齿圆柱齿轮GRIP程序代码

点评

点评

点评