Vytisknout stránku | Zavřít okno

Přenášení vlastností

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: iLogic a ETO
Popis fóra: Funkce a makra iLogic, Inventor Engineering to Order (ETO), automatizace a konfigurace výrobků
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=34668
Datum vytištění: 04.kvě.2026 v 10:04


Téma: Přenášení vlastností
Odeslal: PopelkaM
Předmět: Přenášení vlastností
Datum odeslání: 23.říj.2023 v 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ínka

Název souboru = 450 
Upínka + Název souboru

Výsledně:
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)
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 = False
Next
End Sub


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 23.říj.2023 v 19:08
To by mělo být celkem jednoduché - upravit řádek nastavení na:

docFile.PropertySets("Inventor User Defined Properties")("NÁZEV-ROZMĚR").Value = "Upínka" & docName


-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

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


Vytisknout stránku | Zavřít okno