NX Journal アセンブリの子部品に対しての処理

アセンブリの子部品に対して処理したいときのプログラムを作成しました。コードは子部品のパートNo.を表示するものです。



Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
    Sub Main (ByVal args() As String) 

        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

        Dim child As Assemblies.Component

        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open

        For Each child In workPart.ComponentAssembly.RootComponent.GetChildren()
            lw.WriteLine(child.GetStringAttribute("DB_PART_NO"))
        Next
        
    End Sub
End Module

コメント

タイトルとURLをコピーしました