[摘要]:计量产品时用计算器有时比较麻烦,本文根据 PC-DMIS 软件可以新建菜单项目的功能,用 VB 编个计算器程序,实现在计量产品时常用到的计算、反算角度、角度转换等功能,在计量产品需要计算 器时,只要轻轻一点菜单,方便并且计算得快,从而提高工作效率。
[关键词]:PC-DMIS、VB、旋转建坐标系、简便计算器
我们在用三坐标计量产品时,经常要用到普通计算器计算各种尺寸。有时我们要到 处找计算器电脑上打开计算器的快捷方式,而我们拿到计算器后要算一个反正玄或反正切也比较烦琐,针对这一点我用 VB 做了个程序,将快捷方式图标插在三坐标的菜单上,打开三坐标的时候,简便计算器就 在菜单上,要用的时候很方便,提高了工作效率。特别是计算反正切或者反正弦的时候, 只要输入两个数据,再按确定就计算出来。有时角度要用度分秒表示,该计算器增加了这 个功能。
在 PCDMIS 工具栏上的 视图(V)---工具栏(T)---自定义(z)---工具栏,如图点击新 建、项目,出现如图 1、图 2 所示:
选择可执行文件的的路径,然后按确定。这时 JSQ 这个图标就被添加到用户自定义的 菜单里,如图 1 所示的 a 处,在工具栏定义的下拉菜单中选一项,假如选上“构造特征”电脑上打开计算器的快捷方式, 选上 a 处的 JSQ---添加,再按确定,这时 将出现在工具栏定义的构造特征里面,如图(3) 所示,再按确定。
回到测量程序里,我们可以看到下面的菜单(节选主要部分), 在构造这项里多出这 个图标。在测量产品时需要计算时,点击 就会出现图(4)所示:
举个例子,如上图我们在 a 里输入 40,在 b 里输入 20,选中”-”号按确定。里面 出现 20,我们再选中“+”号,按“OK”在 d 里面出现 60,按 ATAN(c/d),则 20 除以 60 的反正切角度 18.43945 出现在 e 文本框里,同理按 ASIN(c/d),则反正玄的角度 19.47122 出现。由于在三坐标测量产品时,建坐标系用的是角度的小数形式,e,f 文本框就以小数 表示;图纸上一般以度分秒表示角度,又增加角度的互换,从而解决常见的问题。除此功 能外举两个具体的例子说明它的应用:
1、如上面的间图图 5 所示,如我们要求 6 个孔的位置度直径 0.06,在建坐标系时, 我们要算出 B 孔与水平 X 轴的夹角,然后进行旋转建坐标系,算角度时点开快捷图标,在 图(4)的 c 中输入 49,在 d 中输入 86,点 e 前面的 ATAN(c/d),则反正切角度算出为 29.67308 度,如下图图(6)e 中所示:
则建坐标系时,在旋转一栏填上 29.67308,建好正X 轴PC-DMIS 简便计算器设计及自定义菜单,比较方便简捷。
2、 求∠COE 的度数。
我们用三坐标测出 3#孔的数据为:半径 R 为 14.982,极半径 PR 为 49.49,极角 PA (即∠COD)为 150°10′,在计算器的 c 里输入半径 14.982,d 里输入 49.49PC-DMIS 简便计算器设计及自定义菜单,点一下“ASIN (c/d)” ,则算出∠DOE 的度数 17.62152,点一下“转换”,角度转换为 17°37′17″, 则∠COE 的度数为∠COD+∠DOE=150°10′+17°37′17″=167°47′17″,如图(7)所 示。
PC-DMIS 的功能很强大,我们在学习实践的基础上,不断地发现它的优点,和其他办公 软件结合起来,更好的利用他来计量好产品。
当然我们也可以添加电脑上自带的 计算器或者任何你想添加的软件菜单。
附件 1:
计算器的 VB 主要代码如下:
Public a As Double
Public b As Double
Public c As Double
Public d As Double
Public e As Double
Public f As Double
Public g As Double
Public h As Double
Dim X As Double
Dim du As Double
Dim S As Double
Dim M As Double
Dim DMS As Double
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
If Option1.Value = True Then
c = a + b
Text3.Text = c
Else
If Option2.Value = True Then
c = a - b
Text3.Text = c
Else
If Option3.Value = True Then
c = a * b
Text3.Text = c
If Option4.Value = True Then
c = a / b
Text3.Text = c
End If
End If
End If
End If
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Option4.Enabled = True
End Sub
Private Sub Command2_Click()
a = Text1.Text
b = Text2.Text
If Option1.Value = True Then
c = a + b
Text4.Text = c
Else
If Option2.Value = True Then
c = a - b
Text4.Text = c
Else
If Option3.Value = True Then
c = a * b
Text4.Text = c
Else
If Option4.Value = True Then
c = a / b
Text4.Text = c
End If
End If
End If
End If
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Option4.Enabled = True
End Sub
Private Sub Command3_Click()
e = (Atn(Text3.Text / Text4.Text)) * 57.2957804
Text5.Text = Format(e, "0.00000")
End Sub
Private Sub Command4_Click()
f = Text3.Text / Text4.Text
g = f / (Sqr(1 - f * f))
h = (Atn(g)) * 57.2957804
Text6.Text = Format(h, "0.00000")
End Sub
Private Sub Command5_Click()
X = Text6.Text
du = Int(X)
M = Int((X - du) * 60)
S = (X - du - M / 60) * 3600
┊略
End Sub
Private Sub Option1_Click()
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = False
End Sub
往期精彩回顾,点击直接打开:
视屏学习资料:
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
留言评论