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
Kopirovani iVlastnosti z IDW do IPT a IAM |
Odpovědět | archiv |
Autor | ||
Shum
Nováček Přihlášen: 22.led.2015 Lokalita: ČR (PA) Používám: Inventor Stav: Offline Bodů: 6 |
Téma: Kopirovani iVlastnosti z IDW do IPT a IAM Zasláno: 22.led.2015 v 13:46 |
|
Jde v Inventoru 2012 (pozdeji i ve verzi 2015 ) nejak jednoduse pridat ve vykresu ikonu s nejakym makrem nebo funkci, ktrera by mi zkopirovala z iVlastnosti IDW souboru do IPT nebo IAM souboru?
Priklad: v iVlastnosti IDW souboru (napr. pokus.idw) mam "AES_MD_NAME" s hodnotou 7777777 a tuto hodnotu bych chtel zkopirovat do IPT (IAM) souboru (pokus.ipt nebo pokus.iam) do iVlastnosti "AES_MM_LEG_ERP_PSAP" Dekuji |
||
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ů: 1637 |
Zasláno: 22.led.2015 v 14:14 | |
Běžný postup je obrácený. Vlastnosti z modelu se zobrazují na výkrese. Tam potom není ani potřeba nic programovat. Pokud jde opravdu o dotaz zda jde přidat ikonu s vlastním makrem, tak lze.
V ribbonu pod pravým tlačítkem je volba Přizpůsobit uživatelské příkazy a tam si můžete vybrat hotové VBA makro. Podrobnější návod je u nás v Helpdesku |
||
Shum
Nováček Přihlášen: 22.led.2015 Lokalita: ČR (PA) Používám: Inventor Stav: Offline Bodů: 6 |
Zasláno: 22.led.2015 v 14:30 | |
Opravdu musim kopirovat opacne (iVlastnosti v IDW souboru jsou generovany automaticky a ja je musim kopirovat do IPT AIM souboru)
Ted jen udelat to VBA makro. Sice s Inventorem nejaky ten patek delam, ale tohle normalne nepouzivam. Ma s makry nekdo zkusenosti? Kdo by mi s tim mohl pomoci? Myslim si, ze kdo s makry dela, tak by to pro meho mohla byt hracka. |
||
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ů: 1637 |
Zasláno: 22.led.2015 v 14:55 | |
Nejjednodušší je to pomocí iLogicu, kde kód pro zkopírování hodnoty iVlastnosti MyProperty je následující
ve VBA je to trochu komplikovanější a nejsou tu ošetřené chyby
|
||
Shum
Nováček Přihlášen: 22.led.2015 Lokalita: ČR (PA) Používám: Inventor Stav: Offline Bodů: 6 |
Zasláno: 23.led.2015 v 07:14 | |
Dekuji moc. Funguji me obe varianty.
Pomoci iLogicu jsem ale nenasel jak si jednoduse pridat ikonu do ribbonu, kdezto pro VBA to jde vcelku jednoduse. Jeste jednou diky |
||
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ů: 1637 |
Zasláno: 23.led.2015 v 08:14 | |
Tvorba vlastních tlačítek pro iLogic je zatím možná pouze pomocí iLogic formulářů. Snad v příští verzi X-Tools bude možnost si tvořit i vlastní tlačítka pro iLogic do ribbonu.
|
||
Shum
Nováček Přihlášen: 22.led.2015 Lokalita: ČR (PA) Používám: Inventor Stav: Offline Bodů: 6 |
Zasláno: 27.led.2015 v 10:59 | |
Jeste se mi tu vyskytl mensi problem. U novych IPT (IAM) souboru mi v iVlastnostech konkretni iVlastnost chybi a tudiz makro nefunguje. Lze do kodu makra pridat funkci, ktera by mi v IPT (IAM) souboru pred samotnym kopirovanim tuto iVlastnost vytvorila? Pripadna existujici iVlastnost by mohla byt prepsana. Muze mi tento prikaz nekde poradit?
A pote uz by melo vse fungovat jak ma. Dekuji vsem |
||
Shum
Nováček Přihlášen: 22.led.2015 Lokalita: ČR (PA) Používám: Inventor Stav: Offline Bodů: 6 |
Zasláno: 16.úno.2015 v 14:43 | |
Tak mam makro hotove - kopirovani 2 hodnot z IDW do IPT (IAM)
Kdyby se nekomu hodilo tak je tu. Sub CopyNumberAndDescriptionToModel() On Error GoTo CHYBY 'nazvy prislusnych iVlastnosti - pokud by byly jine, staci je zmenit tady a zbytek programu bude fungovat stejne Const iVlastDraw_1 As String = "AES_MD_NAME" Const iVlastModel_1 As String = "AES_MM_LEG_ERP_PSAP" Const iVlastDraw_2 As String = "AES_MD_DRW_DESCR_L2_EN" Const iVlastModel_2 As String = "AES_MM_INT_COMMENT" 'reference na vykres Dim oDrawDoc As DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocument 'reference na model, ze ktereho je vykres vytvoren (pokud jich je vic, beru prvni) Dim oModel As Document Set oModel = oDrawDoc.AllReferencedDocuments(1) 'reference na iVlastnosti vykresu Dim oDrawPropSet As PropertySet Set oDrawPropSet = oDrawDoc.PropertySets("Inventor User Defined Properties") 'reference na iVlastnosti modelu Dim oModelPropSet As PropertySet Set oModelPropSet = oModel.PropertySets("Inventor User Defined Properties") On Error Resume Next Call Err.Clear 'iVlastnost vykresu_1 Dim oDrawProp_1 As Property Set oDrawProp_1 = oDrawPropSet(iVlastDraw_1) 'iVlastnost modelu_1 Dim oModelProp_1 As Property Set oModelProp_1 = oModelPropSet(iVlastModel_1) 'prirazeni do vlastnosti_1 oModelProp_1.Value = oDrawProp_1.Value 'pokud vznikla chyba, nepodarilo se priradit do promennych, tak chci nejdrive iVlastnost vytvorit (rovnou i s prislusnou hodnotou) !predpokladam, ze iVlasnost ve vykrese existuje! If Err.Number <> 0 Then On Error GoTo CHYBY Set oModelProp_1 = oModelPropSet.Add(oDrawProp_1.Value, iVlastModel_1) End If On Error Resume Next Call Err.Clear 'iVlastnost vykresu_2 Dim oDrawProp_2 As Property Set oDrawProp_2 = oDrawPropSet(iVlastDraw_2) 'iVlastnost modelu_2 Dim oModelProp_2 As Property Set oModelProp_2 = oModelPropSet(iVlastModel_2) 'prirazeni do vlastnosti_2 oModelProp_2.Value = oDrawProp_2.Value 'pokud vznikla chyba, nepodarilo se priradit do promennych, tak chci nejdrive iVlastnost vytvorit (rovnou i s prislusnou hodnotou) !predpokladam, ze iVlasnost ve vykrese existuje! If Err.Number <> 0 Then On Error GoTo CHYBY Set oModelProp_2 = oModelPropSet.Add(oDrawProp_2.Value, iVlastModel_2) End If On Error GoTo CHYBY Exit Sub CHYBY: Call MsgBox("Neco se pokazilo...!", vbCritical, "Copy Number And Description To Model") Exit Sub End Sub |
||
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 1,914 sekund.