寻找局部视图中显示出来的部件

最新推荐文章于 2021-12-17 10:39:04 发布

原创最新推荐文章于 2021-12-17 10:39:04 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

工程图专栏收录该内容

24 篇文章

订阅专栏

本文介绍了一种通过遍历装配文档来确定局部视图中显示的部件的方法，并提供了一个具体的VBScript示例代码。

最近在全球论坛有个问题是想知道局部视图中显示出来的部件。可考虑两个方法:

1. 遍历装配文档，依次用Drawingview.DrawingCurves查看是否有视图曲线

2. 遍历视图曲线，依次访问其ModelGeometry，看看是哪些部件产生的。

以下代码用了方法1。假定图纸中第二个视图是局部视图。

Public Sub GetViewComponents()

    Dim doc As DrawingDocument
    Set doc = ThisApplication.ActiveDocument
    
    Dim sectionView As SectionDrawingView
    Set sectionView = doc.ActiveSheet.DrawingViews(2)
    
    Dim docDesc As DocumentDescriptor
    Set docDesc = sectionView.ReferencedDocumentDescriptor

    Dim asm As AssemblyDocument
    Set asm = docDesc.ReferencedDocument
    
    Debug.Print "Occurrences in View: " & sectionView.name
    
    On Error Resume Next
    
    Dim occurrence As ComponentOccurrence
    For Each occurrence In asm.ComponentDefinition.Occurrences
    
        Dim curves As DrawingCurvesEnumerator
        Set curves = sectionView.DrawingCurves(occurrence)
        
        If Err Then
            'DrawingCurves fails if no curves...
            Err.Clear
        ElseIf curves Is Nothing Or curves.count = 0 Then
            'Component not in view...
        Else
            'Component is in section view
            Debug.Print occurrence.name
        End If
    
    Next
    
End Sub