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
