Option Explicit vba检查SolidWorks工程图是否已插入指定名称的图块的实例 Sub CheckBlockInstanceExists() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swDraw As SldWorks.DrawingDoc Dim swSketchMgr As SldWorks.SketchManager Dim vBlockDefs As Variant Dim swBlockDef As SldWorks.SketchBlockDefinition Dim swBlockInst As SldWorks.SketchBlockInstance Dim vBlockInstances As Variant Dim i As Long, j As Long Dim targetBlockName As String Dim foundDefinition As Boolean Dim foundInstance As Boolean 1. 设置要查找的图块名称 targetBlockName 标题栏 请将此替换为你需要检查的图块名称 2. 获取 SolidWorks 应用程序和当前活动文档 Set swApp Application.SldWorks Set swModel swApp.ActiveDoc 3. 确认当前打开的是工程图文档 If swModel.GetType swDocDRAWING Then MsgBox 请先打开一个工程图文档。 Exit Sub End If Set swDraw swModel Set swSketchMgr swModel.SketchManager 4. 获取当前工程图中的所有图块定义 vBlockDefs swSketchMgr.GetSketchBlockDefinitions 5. 检查是否获取到任何图块定义 If IsEmpty(vBlockDefs) Then MsgBox 当前工程图中没有任何图块定义。 Exit Sub End If 6. 遍历所有图块定义查找目标图块 For i 0 To UBound(vBlockDefs) Set swBlockDef vBlockDefs(i) 通过图块定义的特征获取其名称SolidWorks API 中较常见的方式[citation:1][citation:5] Dim swFeat As SldWorks.Feature Set swFeat swBlockDef.GetFeature If Not swFeat Is Nothing Then If swFeat.Name targetBlockName Then foundDefinition True 找到了定义检查它是否有实例 获取该定义的所有实例 [citation:1][citation:3] vBlockInstances swBlockDef.GetInstances If Not IsEmpty(vBlockInstances) Then 如果数组不为空说明有实例存在 foundInstance True End If Exit For 找到目标定义后即可退出循环 End If End If Next i 7. 输出检查结果 If Not foundDefinition Then MsgBox 当前工程图中不存在名为 targetBlockName 的图块定义。 ElseIf foundInstance Then MsgBox 成功工程图中已插入 targetBlockName 图块的实例。 Else MsgBox 工程图中存在 targetBlockName 图块的定义但尚未插入任何实例。 End If End Sub