如何在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 为屏幕测量的正方形零件边长。

使用过程示例如下图（根据我的屏幕大小，我的scale值调整到了1.085）。

0、绘制了一个边长为30mm的正方形；

1、点击宏按钮运行后，模型位置发生了变化；

2、再拿屏幕尺子（已校准）检测模型是否1比1显示，结果很接近1比1。

 

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