Ich bin jetzt ein bisschen weiter gekommen. Die Schleife funktioniert soweit, aber die Dateinamen trage ich immer noch per Hand ein in "numbers". Schön wäre es wenn man alle Teile die unter dem Reiter: Fenster/Weitere... sind automatisch in die Liste von "numbers" einträgt
. Ein kleiner Tipp wäre wieder nett
.
Dim numbers() As String =
{
"475480331",
"925640394",
"555470738",
"645940460",
"455460332",
"205040315",
"185450833"}
For Each number As String In numbers
'Part finden-----------------------------------------
Dim session_UndoMarkId1 As Session.UndoMarkId
session_UndoMarkId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Change Display Part")
Dim part1 As Part = CType(theSession.Parts.FindObject(number), Part)
Dim partLoadStatus1 As PartLoadStatus
Dim partCollection_SdpsStatus1 As PartCollection.SdpsStatus
partCollection_SdpsStatus1 = theSession.Parts.SetDisplay(part1, True, True, partLoadStatus1)
partLoadStatus1.Dispose()
'Attribute schreiben-----------------------------------------
'Attribute schreiben ende-----------------------------------------
Next
End Sub
End Module
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP