PC-DMIS 简便计算器设计及自定义菜单

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

标签:   文本   标签   识别

留言评论