ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
Registrujte se na konferenci CADfórum 2025 - automatizace navrhování
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD 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, 3ds Max, Vault a s dalšími CAD/BIM/PDM 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 (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoPomoc s Makrem
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
Albeda Zobrazit panel
Nováček
Nováček

Přihlášen: 03.čvc.2012
Lokalita: ČR (OL)
Používám:
Inventor12
Stav: Offline
Bodů: 8
 Přímý odkaz na tuto zprávu Téma: Pomoc s Makrem
    Zasláno: 25.čvc.2013 v 12:58
Zdravím,
dělám v práci databázi šroubů a je to velká otročina v klikání.

Chtěl bych si práci ulehčit a hlavně ji zrychlit pomocí makra na určitou činnost, ale potřeboval bych kousek kódu pomoc vytvořit, abych se ve VB opět zorientoval.

Jestli je to tedy vůbec možné, chtěl bych, aby mě makro dělalo následující věc:
 - nazev souboru SROUB DIN 933 - M10  x 12 - z toho vybere do proměnné vždy vše za řetězcem " - " (čili "M10x12").
 - Tento řetězec bych potřeboval dosadit do iVlastností -> karta Sourn -> Klíčová slova
 - do iVlastností -> karta Projekt -> Číslo součásti bych potřeboval dosadit název souboru.

Kdyby někdo věděl jak na to, byl bych Vám opravdu vděčný. Jinak tuto činnost budu muset dělat ručně cca pro 300+ položek.

S pozdravem
Martin
Zpět nahoru
Boleslav Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 06.led.2009
Lokalita: ČR (Pha)
Používám:
dříve Solidworks, teď Inventor
Stav: Offline
Bodů: 341
 Přímý odkaz na tuto zprávu Zasláno: 25.čvc.2013 v 14:08
Můžu se zeptat co je cílem? Databáze šroubů přece v Inventoru už je.
Zpět nahoru
dusek Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 09.lis.2010
Lokalita: ČR (Pha)
Používám:
Inventor 2014
Stav: Offline
Bodů: 901
 Přímý odkaz na tuto zprávu Zasláno: 25.čvc.2013 v 14:19
teda úplně to nechápu, ale proč si nepřidáte požadované vlastnosti rodiny v obsahovém centru a pak nedáte obnovit součásti z obsahového centra? Vlastnost se vám vyplní pro celou rodinu.
Václav Dušek
Zpět nahoru
Boleslav Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 06.led.2009
Lokalita: ČR (Pha)
Používám:
dříve Solidworks, teď Inventor
Stav: Offline
Bodů: 341
 Přímý odkaz na tuto zprávu Zasláno: 25.čvc.2013 v 14:42
Kdybyste to potřeboval na něco jiného než na knihovny, tak nedávno sem dávali pánové z CAD Studia podobné makro - http://www.cadforum.cz/cadforum/pouziti-ilogic-na-rozklad-jmena-ipt-souboru-naplneni-ivlastnosti-tip9341
Zpět nahoru
Navara Zobrazit panel
ARKANCE support
ARKANCE support
Avatar
Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1637
 Přímý odkaz na tuto zprávu Zasláno: 25.čvc.2013 v 15:42
Přiklonil bych se k názoru pana Duška. Projděte si možnosti práce s obsahovým centrem. Tam je možné pomocí výrazů skládat textové řetězce a mapovat je na libovolné vlastnosti výsledných modelů.
Pokud byste toto měl dělat pro 300+ rodin (norem) tak se můžeme na nějakém makru dohodnout, ale pokud je těch norem cca 10-20, tak se to nevyplatí.
Zpět nahoru
Albeda Zobrazit panel
Nováček
Nováček

Přihlášen: 03.čvc.2012
Lokalita: ČR (OL)
Používám:
Inventor12
Stav: Offline
Bodů: 8
 Přímý odkaz na tuto zprávu Zasláno: 26.čvc.2013 v 10:44
Děkuji vám za odpovědi. Když jsem se díval na toto makro, tak by mě vystačilo, jen bych ho musel poupravit. Bohužel jsem zjistil, že moje znalosti VB jsou až moc základní na tyto věci a proměnná typu string mi zde asi stačit nebude.

Názvy souborů budou všechny stejné př. "DIN 933 - M4  x 40" (mezi "4  x" jsou dvě mezery nevím proč). Já bych potřeboval následující:

A = "DIN 933"
B = "M4x40" (bez mezer)

Proměnné dosadit do kolonek tímto způsobem:

iProperties -> Summary -> Keywords = B
iProperties -> Project -> Part Number = A & " " & B

Toto by mě bohatě stačilo a ušetřilo by mi to hodiny a hodiny práce. Potřebuji to kvůli kusovníku a náš kusovník je "zvláštně" udělaný např. číslo revize je hmotnost součásti v kg.

Děkuji za jakékoliv odpovědi.
Student
Martin



Upravil Albeda - 26.čvc.2013 v 10:51
Zpět nahoru
Cheff Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 19.led.2006
Lokalita: Czech Republic
Používám:
Inv 2013 Pro (SP2 Upd6), AutoCAD 2013 (SP2)
Stav: Offline
Bodů: 971
 Přímý odkaz na tuto zprávu Zasláno: 31.čvc.2013 v 08:02
Tím jsem si prošel nedávno... Jak radí víše opravdu je nejlepší upravit si (resp. vytvořit vlastní knihovnu OC) - TV mém případě se rovnala dle dodavatele = téměř celá znovu...

Nehledě na výhodu, že po definování vlastní knihovny (která bude výrazně menší než originál ISO) se práce po odpojení původních knihoven OC celkem zrychlí.

Je to práce sice protivná, ale člověk si může pomoci excelem (externí soubor, kde si s texty můžete dělat co chcete...) - nejjendodušší bylo otevřít upravovanou rodinu a zkopírovat všechny sloupce do nového souboru excelu a tam odtud zpět. Pokud budete data upravovat přímo otevřením Excelu z OC, tak po přijmutí změn přijdete o funkční vzorce - proto ta klička do nezávyslého souboru...
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21952
 Přímý odkaz na tuto zprávu Zasláno: 31.čvc.2013 v 10:14
Původně odeslal(a) Albeda Albeda napsal(a):

Názvy souborů budou všechny stejné př. "DIN 933 - M4  x 40" (mezi "4  x" jsou dvě mezery nevím proč). Já bych potřeboval následující:
 
A = "DIN 933"
B = "M4x40" (bez mezer)

Proměnné dosadit do kolonek tímto způsobem:

iProperties -> Summary -> Keywords = B
iProperties -> Project -> Part Number = A & " " & B
 
V onom makru zkuste nahradit regulární výraz:
\b([^-]+)-*([^-]+).*\b
výrazem (nezkoušeno):
\b(.+) - (.+)\b
 
to vyhazování mezer je složitější, musel bych vidět jak vypadají ostatní názvy.
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Navara Zobrazit panel
ARKANCE support
ARKANCE support
Avatar
Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1637
 Přímý odkaz na tuto zprávu Zasláno: 31.čvc.2013 v 12:16
Pokud používáte VBA, tak zkuste tohle:
    Dim filename As String
    filename = "DIN 933 - M4  x 40"
    
    Dim s() As String
    s = Split(filename, "-", 2)
    
    Dim A As String
    A = s(0)
    
    Dim B As String
    B = Replace(s(1), " ", "")
    
    Debug.Print A
    Debug.Print B
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 8631:Mluvící iLogic pravidlo pro kontrolu materiálu součásti Inventoru (výchozí materiál).
Tip 8717:Jak ve výkresu zobrazit těžiště podsestavy?
Tip 9476:Ukládání DWG kopie IDW výkresu pojmenované podle revize.
Tip 11550:iLogic: Spuštění externího procesu s parametry
Tip 9467:Automatické publikování schválených výkresů z Inventoru.
Tip 9341:Použití iLogic na rozklad jména IPT souboru a naplnění iVlastností.


 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,297 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img