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
Měření smyčky v náčrtu |
Odpovědět | archiv |
Autor | ||
kosulic
Zasloužilý člen Přihlášen: 24.úno.2010 Lokalita: ČR (JM) Používám: Inventor 2016 Stav: Offline Bodů: 158 |
Téma: Měření smyčky v náčrtu Zasláno: 18.úno.2014 v 09:33 |
|
Zkouším udělat pravidlo na měření smyčky z náčrtu (model řetězu) Potřebuji vytvořit 4 parametry (nejlépe je označit pro export) Změřit smyčku vypočítat počet článků vypočítat počet spojek Nefunguje mi ale zaokrouhlování a nevím jak parametry označit pro export. Kdyby se našla dobrá duše, která by mi pomohla, byl bych vděčný. Param = ThisDoc.Document.ComponentDefinition.Parameters("DELKA_SMYCKY") Catch Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("DELKA_SMYCKY", 1, "mm" ) End Try Dim se As SketchEntity = ThisDoc.Document.ComponentDefinition.Sketches(1).SketchLines(1) Param.Expression =(ThisApplication.MeasureTools.GetLoopLength(se)*10 & " mm") Parameter("DELKA_SMYCKY") = Round(DELKA_SMYCKY) Try Param = ThisDoc.Document.ComponentDefinition.Parameters("ROZTEC_RETEZU") Catch Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("ROZTEC_RETEZU", 1, "mm" ) End Try Parameter("ROZTEC_RETEZU") = 12.7 Try Param = ThisDoc.Document.ComponentDefinition.Parameters("POCET_CLANKU") Catch Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("POCET_CLANKU", 1, "ul" ) End Try Parameter("POCET_CLANKU") = Round(DELKA_SMYCKY/ROZTEC_RETEZU) Try Param = ThisDoc.Document.ComponentDefinition.Parameters("SPOJKA_POCET") Catch Param = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByExpression("SPOJKA_POCET", 1, "ul" ) End Try Parameter("SPOJKA_POCET") = Floor((DELKA_SMYCKY/5000))+1 |
||
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: 18.úno.2014 v 20:00 | |
V tom kódu je několik formálních chyb a měl by vypadat takhle:
ale asi bych dal přednost zkrácené verzi s voláním funkce pro nastavení parametru a jeho p5enosem do iVlastnosti
|
||
kosulic
Zasloužilý člen Přihlášen: 24.úno.2010 Lokalita: ČR (JM) Používám: Inventor 2016 Stav: Offline Bodů: 158 |
Zasláno: 20.úno.2014 v 10:49 | |
Děkuji, mrknu na to a vyzkouším.
|
||
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,927 sekund.