<img src="/common/bigicon-diskuze.png" style="vertical-align:middle;height:80px" alt="Diskuze"/> Diskuzní fórum, poradna

Navštívit stránky člena

ARKANCE support

Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1637

Téma: Pomoc s Makrem
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

Vladimír Michl Zobrazit panel

Navštívit stránky člena

Moderátor

ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21952

Zasláno: 31.čvc.2013 v 10:14

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)

Cheff

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

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...

Albeda

Nováček

Přihlášen: 03.čvc.2012
Lokalita: ČR (OL)
Používám:
Inventor12
Stav: Offline
Bodů: 8

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

Navara

Navštívit stránky člena

ARKANCE support

Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1637

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í.

Boleslav

TOP uživatel

Přihlášen: 06.led.2009
Lokalita: ČR (Pha)
Používám:
dříve Solidworks, teď Inventor
Stav: Offline
Bodů: 341

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

dusek

TOP uživatel

Přihlášen: 09.lis.2010
Lokalita: ČR (Pha)
Používám:
Inventor 2014
Stav: Offline
Bodů: 901

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

Boleslav

TOP uživatel

Přihlášen: 06.led.2009
Lokalita: ČR (Pha)
Používám:
dříve Solidworks, teď Inventor
Stav: Offline
Bodů: 341

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.

Albeda