如何通过VBA修改已放置Solidworks工程图视图的属性？

完全可以在视图放置完成后修改属性，而且不用依赖SelectByID2选中视图——直接操作视图对象更高效可靠，也避免了选中等操作可能带来的误差。

核心思路 #

通过SolidWorks API获取工程图文档对象，再直接定位到目标视图实例，调用视图对象的属性或方法完成修改，无需选中操作。

代码示例 #

以下是几个常用属性的修改代码，你可以根据需求调整：

1. 获取工程图与视图对象

Dim swApp As SldWorks.SldWorks
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.DrawingView

Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc

' 通过视图名称获取目标视图
Set swView = swDraw.GetViewByName("Drawing View1")
If swView Is Nothing Then
    MsgBox "找不到指定的工程图视图"
    Exit Sub
End If

2. 修改视图比例

' 设置比例为1:2（数值为0.5）
swView.Scale = 0.5

3. 切换模型显示状态

' 将视图关联的模型显示状态切换为"Display State1"
swView.SetDisplayState "Display State1"

4. 设置尺寸类型（从动/驱动）

' 设置视图中的关联模型尺寸为从动模式
swView.DrivenDimension = True

5. 调整隐藏线显示样式

' 设置隐藏线显示为灰色
swView.HiddenLinesGray = True

扩展说明 #

• 上述代码中的DrawingView对象还有大量可操作的属性和方法，比如视图对齐、断裂视图设置、剖面线样式等，你可以参考SolidWorks官方API文档中的DrawingView接口详情。
• 如果不知道视图的准确名称，可以通过遍历工程图所有视图的方式获取：

Dim viewNames As Variant
viewNames = swDraw.GetViewNames
Dim i As Integer
For i = 0 To UBound(viewNames)
    Debug.Print viewNames(i) ' 在立即窗口打印所有视图名称
Next i

内容的提问来源于stack exchange，提问作者eherman