Hi, ich hab ein kleines Problem.
Ich habe ein Part mit mehreren Körpern, welche auf unterschiedlichen Layern liegen.
Was ich brauche ist eine Liste der Körper (Ihre Namen) mit den Layernummern der Layer auf denen sie halt liegen.
Kann mir jemand sagen wie ich den Layer eines Körpers ermittele?
Hier mein Program:
Sub CATMain()
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
msgbox "Anzahl der Körper:" & bodies1.count
Dim solarray(999)
Dim layarray(999)
for n = 1 to bodies1.count
solarray(n) = bodies1.Item(n).name
layarray(n) = bodies1.Item(n).??????LAYERNUMMER?????
next
End Sub
------------------
Software is like sex - its better when ist free!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP