Private Sub NameÄndern()
Dim oApp As Inventor.Application
oApp = CType(GetObject(, "Inventor.Application"), Application)
Dim ptDoc As PartDocument
If oApp.ActiveDocument.DocumentType <> DocumentTypeEnum.kPartDocumentObject Then
MsgBox("please open a part document")
Exit Sub
End If
ptDoc = CType(oApp.ActiveDocument, PartDocument)
Dim solid As SurfaceBody
Dim j As Integer
Dim prefix As String
prefix = ptDoc.DisplayName.ToString
prefix = prefix.Remove(4)
j = 1
For Each solid In ptDoc.ComponentDefinition.SurfaceBodies
If solid.Name.contains( "-00") then
j = j + 1
end if
Next
For Each solid In ptDoc.ComponentDefinition.SurfaceBodies
If not solid.Name.contains( "-00") then
solid.Name = prefix & "-00" & j
j = j + 1
end if
Next
ptDoc.Update()
ptDoc.Save()
End Sub
so sollte es funktionieren
------------------
----------------------------------
Mit freundlichen Grüßen
Felix
[Diese Nachricht wurde von Fiedel93felix am 08. Jun. 2017 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP