Parts
Alle Bodies
eines Parts auflisten
|
Imports System
Imports NXOpen
public
CompArray() as
Component
public
CompCount as
Integer = -1
Sub Main()
dim theSession
as Session =
Session.GetSession()
dim workPart
as Part =
theSession.Parts.Work
dim bodies
as Object
dim body
as Body
dim bodyName
as String
dim lw
as
ListingWindow = theSession.ListingWindow
lw.Open()
bodies = workPart.Bodies.ToArray()
for each body
in bodies
bodyName = body.Name
lw.WriteLine(bodyName)
next
end Sub
End Module |
|