[摘要]：计量产品时用计算器有时比较麻烦,本文根据 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.
留言评论