一般,titleblockdefiition都会有一个name(名称),用这个名称去确认某个工程图中的标题栏是否是指定的。这里采用一个函数去判断,会比较简单,如下:
Function TBExists(oTBName) As Boolean
Exists = False
dim oTB as TitleBlockDefinitions
For Each oTB in oDrawDoc.TitleBlockDefinitions
If oTB.Name = oTBName Then
Exists = True
End if
Next
Return Exists
End Function