SH3---挂轮计算

lalawo

走刀量不等于轴向进给量！
比如:重庆的Y3180h，Y3150E  走刀量=1  轴向进给量=0.7
如果你混淆的话，你的差动数值就会出错！

qingfeng8430

请问用你的软件可以计算 弧齿伞齿轮的调整卡吗  格里森制齿的

刀疤五

请问用你的软件可以计算 弧齿伞齿轮的调整卡吗  格里森制齿的
qingfeng8430 发表于 2009-11-5 10:38

                               
登录/注册后可看大图

这只是挂轮计算,和弧齿伞齿轮的调整卡不相干.
我的其它程序也不涉及弧齿伞齿轮,这一方面,我的,不懂的.
你要的东西在论坛里应能找到的.

代军峰

????怎么使用??没有发现什么东西??

chen_yh

看了你的几个帖子，感到你还是很强的。这个软件编制中有几个关键点我还不知如何实现，象如何把表达式这个字符串变换到程序的判断表达式中。

刀疤五

如何把表达式这个字符串变换到程序的判断表达式中。

...
chen_yh 发表于 2009-11-10 19:04

                               
登录/注册后可看大图

在向各位学习中.....
VB编程中,引用MSScriptControl,可轻松完成的,这是程序中的部份代码,请看粗体字...



'-------------------------------------------------------------------------
        Dim s As New MSScriptControl.ScriptControl
        s.Language = "vbscript"
        Dim gg1, gg2, gg3, gg4, XT As String
        XT = "A<600"
   '-----------YB1(T2)为有几条干涉条件 ------YIF(T2, I)是字符型变量,为干涉条件内容: 如"a+B<100"-----------   
        For I = 1 To YB1(T2)                                                         
            XT = XT + "  AND  " + YIF(T2, I)
        Next I
       '--------------------------------------------------------------------------------------
        Dim T1 As Double
        ProgressBar1.Visible = True
        L = 0
        For I = 1 To E
            For J = 1 To E
                T1 = Abs(AC(I) / BD(J) - HH1)
                Dim BOL As Boolean
                BOL = Not (AE(I) = BE(J) Or AE(I) = DE(J) Or CE(I) = BE(J) Or CE(I) = DE(J))
'------- AE(I),BE(J), CE(I),DE(J)为初步计算出的a,b,c,d----------------
                If T1 <= ERR1 And BOL Then
                    gg1 = CStr(AE(I)) : gg2 = CStr(BE(J)) : gg3 = CStr(CE(I)) : gg4 = CStr(DE(J))
                    gg1 = "a= " & gg1 : gg2 = "b= " & gg2 : gg3 = "c= " & gg3 : gg4 = "d= " & gg4
                    s.AddCode(gg1) : s.AddCode(gg2) : s.AddCode(gg3) : s.AddCode(gg4)
                    If s.Eval(XT) Then

guitar230

回复 1# hj611512

348527760

我还不可以下载啊

梁启权

能下么？我是刚学滚齿的。能提供么？谢谢了我QQ723231453

speed_long

回复 chen_yh 的帖子

在计算不求人软件中可以随意定义表达式,
比较表达式,
值表达式
查数据库表达式等等.