如何在solidworks上窗口中按1比1显示零件大小？

问题：平时用SW画一个零件，想知道这个零件在实际中的大小。虽然可以自己使尺比划，但没有在屏幕上比划上来得直接。当有实际零件时，还可以控制鼠标滚轮来精确缩放，这太麻烦了。当没有零件时，用鼠标滚轮缩放就没有参考意义。

处理：故在网上进行搜索方法，需要写一个小脚本来显示，注意，需要根据自己屏幕尺寸来确定scale2的比例值，如下：

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModView As SldWorks.ModelView
Sub main()

' Set swApp = Application.SldWorks

Set swApp = CreateObject("Sldworks.Application")
Set swModel = swApp.ActiveDoc
Set swModView = swModel.ActiveView

swModView.Scale2 = 0.795  '修改scale value
swModel.GraphicsRedraw2

End Sub


' scale value = 0.5(current scale value)/A*100
' A 为屏幕测量的正方形零件边长。

注意：实际使用过程中，会出现点击该宏后，零件找不到的情况，得想想怎么改善该代码。