Diskuzní fórum, poradna
CAD diskuze, rady, výměna zkušeností |
ilogic |
Odpovědět | archiv |
Autor | |
assaxio
Diskutér Přihlášen: 30.dub.2009 Lokalita: ČR (Pha) Používám: Inventor 2O18 Stav: Offline Bodů: 16 |
Téma: ilogic Zasláno: 08.led.2018 v 09:33 |
Zravím všechny,
mam malinkou prozbu, obdrželi jsme od zákazníka veliké sestavy kde jsou všechny díly namodelovány z plechu. Ale ani u jednoho dílu není zaškrtnuto v parametrech políčko "Exportovat parametr" Thickness. Chtěl bych přes ilogic vše najednou zašrtnout jelikož to dělat po jednou kuse tak to bych dělal do příštích vánoc. Podařilo se mi sehnat tento kod ale nějak mi nejde, možná tam je někde chybička ale já jí nevidim. Dim oAsmDoc As AssemblyDocument oAsmDoc = ThisApplication.ActiveDocument If ThisApplication.ActiveDocument MsgBox("Toto není sestava!", vbExclamation) Return Exit Sub End If
Dim oRefDocs As DocumentsEnumerator oRefDocs = oAsmDoc.AllReferencedDocuments
For Each oRefDoc As PartDocument In oRefDocs Try Parameter.Param(oRefDoc.Displa Catch End Try Next |
|
Vladimír Michl
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
Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21488 |
Zasláno: 08.led.2018 v 10:33 |
Možná něco jako (moc nezkoušeno):
|
|
assaxio
Diskutér Přihlášen: 30.dub.2009 Lokalita: ČR (Pha) Používám: Inventor 2O18 Stav: Offline Bodů: 16 |
Zasláno: 08.led.2018 v 10:46 |
Děkuji za radu ale pořád mi to nechce zaškrtávat Thickness.
Napadlo jestli by někdo nevěděl udělat aby to zašktlo všechny ty okýnka v parametrech. Já bych si pak vybral které budu používat dále. Děkuji
|
|
Vladimír Michl
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
Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21488 |
Zasláno: 08.led.2018 v 11:35 |
Pokud to není uživatelský, ale běžný geometrický parametr, pak:
|
|
assaxio
Diskutér Přihlášen: 30.dub.2009 Lokalita: ČR (Pha) Používám: Inventor 2O18 Stav: Offline Bodů: 16 |
Zasláno: 08.led.2018 v 11:44 |
Děkuji moc už to běhá, jste dobrej.
|
|
assaxio
Diskutér Přihlášen: 30.dub.2009 Lokalita: ČR (Pha) Používám: Inventor 2O18 Stav: Offline Bodů: 16 |
Zasláno: 10.led.2018 v 14:11 |
Ještě jednou chci poprosit. To zašrtnutí "Thickness" už běží, ale věděl by někdo jak napsat aby to zašrtlo všechny parametry. Zkusil jsem to takto ale nedělá to co má.
Dim oAsmDoc As AssemblyDocument oAsmDoc = ThisApplication.ActiveDocument Dim userParam As Parameter Dim oRefDocs As DocumentsEnumerator Dim oRefDoc As Object oRefDocs = oAsmDoc.AllReferencedDocuments For Each oRefDoc In oRefDocs Try For Each userParam In oRefDoc.ComponentDefinition.Parameters ' MsgBox(oRefDoc.DisplayName & "=" & userParam.Name) userParam.ExposedAsProperty = True Next Catch End Try Next Já bych si pak vybral které budu používat dále. Děkuji |
|
Vladimír Michl
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
Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21488 |
Zasláno: 10.led.2018 v 15:21 |
Takto by to fungovat mělo - možná zkuste odkomentovat ten MsgBox, abyste viděl k jakému parametru to dojde - možná vám ten Try vypadne na nějaké chybě.
|
|
assaxio
Diskutér Přihlášen: 30.dub.2009 Lokalita: ČR (Pha) Používám: Inventor 2O18 Stav: Offline Bodů: 16 |
Zasláno: 10.led.2018 v 15:57 |
Nevim proč ale po odmazaní "MsgBox" to šlape, opět děkuji.
|
|
assaxio
Diskutér Přihlášen: 30.dub.2009 Lokalita: ČR (Pha) Používám: Inventor 2O18 Stav: Offline Bodů: 16 |
Zasláno: 10.led.2018 v 16:25 |
tak ještě malinkou pomoct, chtěl bych aby u všech zaškrtnutých parametrů se mi nastavilo "přesnost - na celá čísla" a pak odškrtnout řetězec jednotek a koncové nuly.
vše niz příloha
|
|
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: 11.led.2018 v 10:03 |
třeba takhle:
|
|
assaxio
Diskutér Přihlášen: 30.dub.2009 Lokalita: ČR (Pha) Používám: Inventor 2O18 Stav: Offline Bodů: 16 |
Zasláno: 12.led.2018 v 15:07 |
mohu ještě jednou poprosit, mam asi při pátku zatmění a nějak si nevim rady jak to spasovat dohromady. předem moc děkuji.
Dim oAsmDoc As AssemblyDocument oAsmDoc = ThisApplication.ActiveDocument Dim userParam As Parameter Dim oRefDocs As DocumentsEnumerator Dim oRefDoc As Object oRefDocs = oAsmDoc.AllReferencedDocuments For Each oRefDoc In oRefDocs Try For Each userParam In oRefDoc.ComponentDefinition.Parameters userParam.ExposedAsProperty = True Next Catch End Try Next Dim part As PartDocument = ThisDoc.Document '... userParam.ExposedAsProperty = True propertyFormat.Precision = Inventor.
custompropertyprecisionenum.kZeroDecimalPlacePrecision |
|
Vít Marčík
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: 01.dub.2015 Lokalita: ČR (MS) Používám: Autodesk Factory Design Suite Ultimate Stav: Offline Bodů: 1 |
Zasláno: 15.led.2018 v 13:19 |
zkuste takhle po drobné úpravě:
Dim oAsmDoc As AssemblyDocument oAsmDoc = ThisApplication.ActiveDocument Dim userParam As Parameter Dim oRefDocs As DocumentsEnumerator Dim oRefDoc As Object oRefDocs = oAsmDoc.AllReferencedDocuments For Each oRefDoc In oRefDocs Try For Each userParam In oRefDoc.ComponentDefinition.Parameters userParam.ExposedAsProperty = True Dim propertyFormat = userParam.CustomPropertyFormat oRefDoc.Update propertyFormat.Precision = Inventor. custompropertyprecisionenum.kZeroDecimalPlacePrecision propertyFormat.ShowTrailingZeros = False propertyFormat.ShowUnitsString = False Next Catch End Try Next |
|
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,219 sekund.