问题：平时用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。
注意：实际使用过程中，会出现点击该宏后，零件找不到的情况，得想想怎么改善该代码。