PopelkaM
23.10.2023, 10:46
Dobrý den,níže uvedené iLogic pravidlo kopíruje Název souboru do uživatelské vlastnosti NÁZEV-ROZMĚR v aktivní otevřené sestavě.Chtěl bych před uživatelskou vlastnost NÁZEV-ROZMĚR u všech souborů v sestavě dopsat např. UpínkaNázev souboru = 450 Upínka + Název souboruVýsledně:Upínka 450Děkuji za radu...S pozdravem Popelka-------------------------------------------------------------------------------------------------------------------Sub Main() Dim oDoc As Document oDoc = ThisDoc.Document If Not oDoc.DocumentType = kAssemblyDocumentObject Then MsgBox("Rule to be ran from assembly level only!") Exit Sub End If Dim docFile As Document For Each docFile In oDoc.AllReferencedDocuments ThisApplication.Documents.Open(docFile.FullFileName, True) Dim docName As String docName = System.IO.Path.GetFileNameWithoutExtension(docFile.FullFileName) 'Název souboru do uživatelské vlastnosti (NÁZEV-ROZMĚR) docFile.PropertySets("Inventor User Defined Properties")("NÁZEV-ROZMĚR").Value = docName ThisApplication.SilentOperation = True docFile.Close(False) ' SkipSave bool = false => Save file on close ThisApplication.SilentOperation = FalseNextEnd Sub