Zobrazit plnou verzi příspěvku: Přenášení vlastností

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

Vladimír Michl
23.10.2023, 19:08
To by mělo být celkem jednoduché - upravit řádek nastavení na:[CODE]docFile.PropertySets("Inventor User Defined Properties")("NÁZEV-ROZMĚR").Value = "Upínka" & docName[/CODE]

PopelkaM
24.10.2023, 07:07
Dobrý den pane Michl,děkuji za radu - ušetřil jste mě dost otravné práce s vypisováním iVlastností ...s pozdravem Popelka