Diskuzní fórum, poradna

archiv · (moderátor)

   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

Příbuzné CAD tipy:
Tip 286:		Jak vložit výkres AutoCADu do Wordu (nebo jiné aplikace) bez pozadí?
Tip 2258:		Pomalý tisk na HP DesignJet 500 sdílený v síti LAN.
Tip 478:		Jak přenést typy čar z jednoho výkresu do druhého?
Tip 7202:		Automatické právní prohlášení pro ePřenos/eTransmit výkresů.
Tip 6944:		Jak převést knihovnu z Obsahového centra na Vault server či naopak?
Tip 14251:		Vložení textu z Wordu do MTextu bez formátovacích znaků.

Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

Přenášení vlastností

Diskuzní fórum, poradna

?CAD diskuze, rady, výměna zkušeností

Přenášení vlastností

?
CAD diskuze, rady, výměna zkušeností