Diskuzní fórum, poradna
CAD diskuze, rady, výměna zkušeností |
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
Automatické přejmenování těles |
Odpovědět | archiv |
Autor | |
madep
Zasloužilý člen Přihlášen: 01.pro.2006 Lokalita: ČR (Pha) Používám: Inventor 2022 Stav: Offline Bodů: 186 |
Téma: Automatické přejmenování těles Zasláno: 02.led.2022 v 14:25 |
Ahoj všem,
Rád používám víceobjemová tělesa jako řídící modely pro sestavy. Abych si ušetřil práci s pojmenováváním souborů při exportu do sestavy, nejdříve si všechna tělesa očísluju. Ruční přepisování je trochu nepohodlné. Podařilo se mi najít výborné pravidlo. Takže všem, kdo takto pracujete je k dispozici níže. Martin Depta Eltodo a.s. '------- start of ilogic ------ 'check for custom iProperty and add it if not found Dim prefix As String = "Prefix" customPropertySet = ThisDoc.Document.PropertySets.Item _ ("Inventor User Defined Properties") Try prop= customPropertySet.Item(prefix) Catch ' Assume error means not found customPropertySet.Add("", prefix) End Try 'write the part number to the Prefix iProperty if it is empty If iProperties.Value("Custom", "Prefix") = "" Then iProperties.Value("Custom", "Prefix") = iProperties.Value("Project", "Part Number") & "_" Else End If 'check that this active document is a part file Dim partDoc As PartDocument If ThisApplication.ActiveDocument.DocumentType <> kPartDocumentObject Then MessageBox.Show ("Please open a part document", "iLogic") End If 'define the active document partDoc = ThisApplication.ActiveDocument Dim solid As SurfaceBody Dim i As Integer 'get input from user prefix = InputBox("Enter a prefix for the solid body names", "iLogic", iProperties.Value("Custom", "Prefix")) 'write input back to custom iProperty iProperties.Value("Custom", "Prefix") = prefix i = 1 'rename all solid bodies incrementing suffix For Each solid In partDoc.ComponentDefinition.SurfaceBodies solid.Name = prefix + IIf(i < 10, "0" + CStr(i), CStr(i)) i = i + 1 Next '------- End Of ilogic ------ |
|
Boleslav
TOP uživatel Přihlášen: 06.led.2009 Lokalita: ČR (Pha) Používám: dříve Solidworks, teď Inventor Stav: Offline Bodů: 324 |
Zasláno: 02.led.2022 v 15:20 |
Dík, to by mohlo být užitečné. |
|
Navara
Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Arkance Systems support Arkance Systems Přihlášen: 08.zář.2008 Lokalita: ČR (Pha) Používám: Inventor Stav: Offline Bodů: 1636 |
Zasláno: 02.led.2022 v 15:49 |
Moc hezký
Tady jsem jenom udělal pár kosmetických změn
|
|
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět | |
Přejít na fórum | Oprávnění fóra Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,537 sekund.