děkuji za radu - ušetřil jste mě dost otravné práce s vypisováním iVlastností ...

s pozdravem Popelka

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ínka

Název souboru = 450 

Upínka + Název souboru

Upínka 450

Dě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)

        ThisApplication.SilentOperation = True

        docFile.Close(False) ' SkipSave bool = false => Save file on close

        ThisApplication.SilentOperation = False

Next

End Sub