我在几何图形集中很少有形状粘贴有链接。我想找出这些形状的来源是否仍然存在。我找不到任何用于hybridshape的功能来做到这一点。
在此图像中,存在第一个形状的来源,但删除了第二个形状的来源,我如何区分它们
可以判断所引用的文档是否存在。
如果您需要检查参考曲面是否仍然存在...不是那么容易。
这是获取和检查链接文档的方法:
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim oDoc As Document
Set oDoc = CATIA.ActiveDocument
Dim oStiDBItem As StiDBItem
Set oStiDBItem = oStiEngine.GetStiDBItemFromCATBSTR(oDoc.fullName)
Dim ochildrenList As StiDBChildren
Set ochildrenList = oStiDBItem.GetChildren
Dim lChildrenNumber As Long
lChildrenNumber = ochildrenList.count
For i = 1 To lChildrenNumber
Dim child As Variant
Set child = ochildrenList.item(i)
Dim linkType As String
linkType = ochildrenList.linkType(i)
Debug.Print vbTab & child.name & " " & child.GetDocumentFullPath & " " & linkType & " FILE " & IIf(CATIA.FileSystem.FileExists(child.GetDocumentFullPath),"EXISTS","MISSING")
Next
您可能需要特定的许可证才能使用StiEngine对象。 SmartTeam本身不是必需的。
从长远来看,您可能应该开始将发布的元素用于文档间链接,以使您的生活更轻松。有一个设置可以强制执行此操作。