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
VYPLNĚNÍ HODNOT PŘIDANÝCH PARAMETRŮ |
Odpovědět | archiv |
Autor | |
Lukáš Záruba
TOP uživatel Přihlášen: 02.lis.2007 Lokalita: ČR (SČ) Používám: inventor 2015 Stav: Offline Bodů: 429 |
Téma: VYPLNĚNÍ HODNOT PŘIDANÝCH PARAMETRŮ Zasláno: 15.úno.2019 v 11:34 |
Zdravím,
Jak mi pan Navara v předchozím dotazu ukázal, tak jsem schopen přidat jakoukoliv vlastnost nebo parametr. Teď bych potřeboval vědět jak vložím hodnoty do těchto parametrů. Mám toto pravidlo, které mi založí UŽIVATELSKÉ PARAMETRY : Sub Main() Dim userParams As UserParameters = GetUserParams(ThisDoc.Document) EnsureParameterMM(userParams, "DELKA", comment:="D�LKA CEL�HO PROFILU") EnsureParameterMM(userParams, "PU_DIRA_PRVNI_Z_LEVA", comment:="N��RT - PRVN� V �AD� OD HRANY") EnsureParameterMM(userParams, "PU_DIRA_POSLEDNI_Z_LEVA", comment:="N��RT - POSLEDN� V �AD� OD HRANY") EnsureParameterUL(userParams, "PU_DIRA_POCET", comment:="POLE - PO�ET PRVK�") EnsureParameterMM(userParams, "PU_DIRA_ROZTEC", comment:="POLE - ROZTE� PRVK�") EnsureParameterMM(userParams, "PU_DIRA_LINIE", comment:="LINIE - D�LKA CEL�HO POLE") EnsureParameterMM(userParams, "PU_DIRA_ROZTEC_ODSAZENI", comment:="MIN. ODSAZEN� OD HRANY ( DOPO�ET ROZD�LU)") EnsureParameterMM(userParams, "PU_DIRA_ROZTEC_ODSATENI_OD_KONCU", comment:="MIN. ODSAZEN� OD HRANY") EnsureParameterMM(userParams, "PU_DIRA_ROZTEC_DOPORUCENA", comment:="P�IBLI�N� ROZTEC") EnsureParameterUL(userParams, "PU_VYKRES_POCET_ROZTECI", comment:="PRO V�KRES") EnsureParameterMM(userParams, "PU_VYKRES_DIRA_ROZTEC", comment:="PRO V�KRES") End Sub Function GetUserParams(doc As Document) As UserParameters If (doc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject) Then Dim asm As AssemblyDocument = doc Return asm.ComponentDefinition.Parameters.UserParameters ElseIf (doc.DocumentType = DocumentTypeEnum.kPartDocumentObject) Then Dim prt As PartDocument = doc Return prt.ComponentDefinition.Parameters.UserParameters Else Throw New ArgumentOutOfRangeException("Document can be AssemblyDocument or PartDocument") End If End Function Function EnsureParameterMM( userParams As UserParameters, paramName As String, Optional defaultValue As Double = 0, Optional units As String = "mm", Optional comment As String = "") As Parameter Dim p As Parameter Try p = userParams(paramName) Catch ex As Exception p = userParams.AddByValue(paramName, defaultValue, units) p.Comment = comment End Try Return p End Function Function EnsureParameterUL( userParams As UserParameters, paramName As String, Optional defaultValue As Double = 0, Optional units As String = "ul", Optional comment As String = "") As Parameter Dim p As Parameter Try p = userParams(paramName) Catch ex As Exception p = userParams.AddByValue(paramName, defaultValue, units) p.Comment = comment End Try Return p End Function
|
|
Budu rád za radu i případně všelijaké postřehy.
|
|
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: 15.úno.2019 v 11:42 |
Návratovou hodnotou funkce EnsureParameter je objekt typu Parameter. Doporučuju si přečíst dokumentaci k tomuto objektu.
Nejdůležitější jsou pro vás v tuto chvíli p.Value a p.Expression
|
|
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,813 sekund.