Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 4647 
Arkance Systems CZ
FB TW YT LN Blog
PORTÁLY PRODUKTŮ
AutoCAD AutoCAD a LT
Inventor Inventor
Revit Revit
Civil 3D Civil 3D
Fusion 360 Fusion 360
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

 

NápovědaCAD diskuze, rady, výměna zkušeností

 
CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy Arkance Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Přenášení vlastností
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
PopelkaM Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.čvc.2010
Lokalita: ČR (PA)
Používám:
Inventor 2023
Stav: Offline
Bodů: 108
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace PopelkaM Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Téma: Přenášení vlastností
    Zasláno: 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
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 21493
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Vladimír Michl Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 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 Systems s.r.o. - www.arkance-systems.cz
(podpora viz hd.cads.cz)
Zpět nahoru
PopelkaM Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.čvc.2010
Lokalita: ČR (PA)
Používám:
Inventor 2023
Stav: Offline
Bodů: 108
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace PopelkaM Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 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
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

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 6203:Tipy pro zvýšení výkonu AutoCAD Mapu (např. pod Citrix XenApp).


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,508 sekund.
CF
CAD Fórum - tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion 360 a další Autodesk aplikace (support firmy Arkance Systems)
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance-systems.com
tel. +420 910 970 111
  Copyright ©2024 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
FB TW YT LN Blog
TOPlist
img