CAD Fórum : PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. https://www.cadforum.cz/forum/ Sat, 09 May 2026 18:24:40 +0000 Mon, 04 Feb 2019 10:48:26 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=28335 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. : Nevím, jestli je tohle někde...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115472&title=pridani-parametru-a-uzivl#115472 Autor: Navara
Předmět: 28335
Zasláno: 04.úno.2019 v 10:48

Nevím, jestli je tohle někde zdokumentované.
Referenční příručka k iLogicu je dostupná tady: http://help.autodesk.com/view/INVNTOR/2019/ENU/?guid=GUID-AB9EE660-299E-408F-BBE1-AFE44C723F59
 
Možná to nějak půjde, ale nevím jak.
Navíc tyhle spouštěče jsou opět uložené v dokumentu a pokud v budoucnu pravidlo nebude dostupné, nastane chyba. Pokud budete chtít další přidat, máte stejný problém, jako kdyby bylo pravidlo lokální.
Já jsem pro tenhle účel napsal do XTools právě ty vlastní spouštěče, protože nejsou závislé na tom, aby byly uvedené v dokumentu, pokud v budoucnu zmizí, tak se nic nestane (takový stav je ošetřen), pokud přibydou, tak se jednoduše doplní.
 
]]> Mon, 04 Feb 2019 10:48:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115472&title=pridani-parametru-a-uzivl#115472 <![CDATA[PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. : Ok, děkuji za doporučení.Je tedy...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115432&title=pridani-parametru-a-uzivl#115432 Autor: Lukáš Záruba
Předmět: 28335
Zasláno: 31.led.2019 v 14:10

Ok, děkuji za doporučení.

Je tedy možné na konec tohoto pravidla napsat příkaz, která mi přiřadí jednotlivá externí pravidla k událostem při který se mají spouštět? viz výstřižek níže? 




]]> Thu, 31 Jan 2019 14:10:17 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115432&title=pridani-parametru-a-uzivl#115432 <![CDATA[PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. : Používání interních pravidel...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115431&title=pridani-parametru-a-uzivl#115431 Autor: Navara
Předmět: 28335
Zasláno: 31.led.2019 v 13:25

Používání interních pravidel v dokumentu není vhodná cesta.
Nejvíc se mi v praxi osvědčilo hlídání určité události nad dokumentem (nejčastěji před uložením) a na tuto událost spouštět externí pravidla.
K tomu je v XTools přímo možnost nastavit pravidlo, které se má spouštět. Toto pravidlo pak může volat další pravidla atd...
Důvody jsem tu už rozebíral mnohokrát, ale nejdůležitější je: Až (ne jestli!) bude potřeba v budoucnu změnit tato pravidla, budete mít opravdu velký problém. U externích to změníte na jednom místě a máte klid.
]]> Thu, 31 Jan 2019 13:25:51 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115431&title=pridani-parametru-a-uzivl#115431 <![CDATA[PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. : Ano to funguje když ho potřebuji...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115426&title=pridani-parametru-a-uzivl#115426 Autor: Lukáš Záruba
Předmět: 28335
Zasláno: 31.led.2019 v 12:01

Ano to funguje když ho potřebuji spustit ale já bych ho chtěl uložit přímo do itp a iam. Pravidlo výše popsané mi připraví parametry a vlastnosti pro itp a iam, které jsou přeukládané ze starších projektů a ty je nemají. Nové již mají vše připravené v šablonách. Proto se snažím vytvořit si pravidlo které by mi po přeuložení starého modelu na nové pomohlo co nejvíce nastavit díl tak aby bez větších zásahů byl jako nová šablona.]]> Thu, 31 Jan 2019 12:01:42 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115426&title=pridani-parametru-a-uzivl#115426 <![CDATA[PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. : Zkuste se podívat na RunExternalRule...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115425&title=pridani-parametru-a-uzivl#115425 Autor: Navara
Předmět: 28335
Zasláno: 31.led.2019 v 11:42

Zkuste se podívat na RunExternalRule]]> Thu, 31 Jan 2019 11:42:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115425&title=pridani-parametru-a-uzivl#115425 <![CDATA[PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. : Napadá mě, že když už mám pravidlo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115424&title=pridani-parametru-a-uzivl#115424 Autor: Lukáš Záruba
Předmět: 28335
Zasláno: 31.led.2019 v 11:29

Napadá mě, že když už mám pravidlo které mi vytvoří všechny potřebné parametry a vlastnosti aby z nich jiné pravidlo mohlo poskládat texty. Nedalo by se na konec tohoto pravidla napsat příkaz?

Něco takového - 

Vlož do tohoto dokumentu externí pravidlo :

1) NADPIS
2) POPIS
3) MAT 
]]> Thu, 31 Jan 2019 11:29:46 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115424&title=pridani-parametru-a-uzivl#115424 <![CDATA[PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. : OK, díky to je ono. Již to funguje...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115423&title=pridani-parametru-a-uzivl#115423 Autor: Lukáš Záruba
Předmět: 28335
Zasláno: 31.led.2019 v 11:08

OK, díky to je ono. Již to funguje a vypadá to takto:

Sub Main()    Dim userParams As UserParameters = GetUserParams(ThisDoc.Document)     EnsureParameter(userParams, "R1", comment:="NADPIS - ROZM�R")    EnsureParameter(userParams, "R2", comment:="NADPIS - ROZM�R")    EnsureParameter(userParams, "R3", comment:="NADPIS - ROZM�R")    EnsureParameter(userParams, "R4", comment:="NADPIS - ROZM�R")    EnsureParameter(userParams, "R5", comment:="NADPIS - ROZM�R")    EnsureParameter(userParams, "PR1", comment:="POPIS - ROZM�R")    EnsureParameter(userParams, "PR2", comment:="POPIS - ROZM�R")    EnsureParameter(userParams, "PR3", comment:="POPIS - ROZM�R")    EnsureParameter(userParams, "PR4", comment:="POPIS - ROZM�R")    EnsureParameter(userParams, "PR5", comment:="POPIS - ROZM�R")    EnsureParameterTEXT(userParams, "TEST", comment:="TESTOVAC� PARAMETR")         Dim customPropertySet = ThisDoc.Document.PropertySets.Item("Inventor User Defined Properties")     EnsureProperty(customPropertySet, "N1")    EnsureProperty(customPropertySet, "N1-M")    EnsureProperty(customPropertySet, "N2")    EnsureProperty(customPropertySet, "N2-M")    EnsureProperty(customPropertySet, "N3")    EnsureProperty(customPropertySet, "N3-M")    EnsureProperty(customPropertySet, "N4")    EnsureProperty(customPropertySet, "N4-M")    EnsureProperty(customPropertySet, "N5")    EnsureProperty(customPropertySet, "N5-M")    EnsureProperty(customPropertySet, "P1")    EnsureProperty(customPropertySet, "P1-M")    EnsureProperty(customPropertySet, "P2")    EnsureProperty(customPropertySet, "P2-M")    EnsureProperty(customPropertySet, "P3")    EnsureProperty(customPropertySet, "P3-M")    EnsureProperty(customPropertySet, "P4")    EnsureProperty(customPropertySet, "P4-M")    EnsureProperty(customPropertySet, "P5")    EnsureProperty(customPropertySet, "P5-M")    EnsureProperty(customPropertySet, "PR1")    EnsureProperty(customPropertySet, "PR1-M")    EnsureProperty(customPropertySet, "PR2")    EnsureProperty(customPropertySet, "PR2-M")    EnsureProperty(customPropertySet, "PR3")    EnsureProperty(customPropertySet, "PR3-M")    EnsureProperty(customPropertySet, "PR4")    EnsureProperty(customPropertySet, "PR4-M")    EnsureProperty(customPropertySet, "PR5")    EnsureProperty(customPropertySet, "PR5-M")    EnsureProperty(customPropertySet, "R1")    EnsureProperty(customPropertySet, "R1-M")    EnsureProperty(customPropertySet, "R2")    EnsureProperty(customPropertySet, "R2-M")    EnsureProperty(customPropertySet, "R3")    EnsureProperty(customPropertySet, "R3-M")    EnsureProperty(customPropertySet, "R4")    EnsureProperty(customPropertySet, "R4-M")    EnsureProperty(customPropertySet, "R5")    EnsureProperty(customPropertySet, "R5-M")    EnsureProperty(customPropertySet, "MAT")    EnsureProperty(customPropertySet, "MAT-M")    EnsureProperty(customPropertySet, "MAT2")    EnsureProperty(customPropertySet, "MAT2-M")    EnsureProperty(customPropertySet, "TYP1")    EnsureProperty(customPropertySet, "TYP1-M")    EnsureProperty(customPropertySet, "TYP2")    EnsureProperty(customPropertySet, "TYP2-M") End SubFunction 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 IfEnd Function Function EnsureParameter(                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 pEnd FunctionFunction EnsureParameterTEXT(                userParams As UserParameters,                paramName As String,                Optional defaultValue As String= "",                Optional comment As String = "") As Parameter    Dim p As Parameter    Try        p = userParams(paramName)    Catch ex As Exception        p = userParams.AddByValue(paramName, defaultValue, "TEXT")        p.Comment = comment    End Try    Return pEnd FunctionFunction EnsureProperty(propertySet As PropertySet, propName As String, Optional defaultValue As String  = "") As [Property]    Dim p As [Property]    Try        p = propertySet(propName)    Catch ex As Exception        p = propertySet.Add(defaultValue,propName)    End Try    Return pEnd Function
]]> Thu, 31 Jan 2019 11:08:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115423&title=pridani-parametru-a-uzivl#115423 <![CDATA[PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. : třeba takhle Function EnsureParameter(...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115419&title=pridani-parametru-a-uzivl#115419 Autor: Navara
Předmět: 28335
Zasláno: 31.led.2019 v 08:39

třeba takhle
 
Function EnsureParameter(
                userParams As UserParameters,
                paramName As String,
                Optional defaultValue As String= "",
                Optional comment As String = "") As Parameter
    Dim p As Parameter
    Try
        p = userParams(paramName)
    Catch ex As Exception
        p = userParams.AddByValue(paramName, defaultValue, "TEXT")
        p.Comment = comment
    End Try
    Return p
End Function
]]> Thu, 31 Jan 2019 08:39:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115419&title=pridani-parametru-a-uzivl#115419 <![CDATA[PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. : Je možné do tohoto ilogicu dopsat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115411&title=pridani-parametru-a-uzivl#115411 Autor: Lukáš Záruba
Předmět: 28335
Zasláno: 29.led.2019 v 18:19

Je možné do tohoto ilogicu dopsat i část která by stejně vkládala textové parametry jako teď číselné parametry ?]]> Tue, 29 Jan 2019 18:19:58 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115411&title=pridani-parametru-a-uzivl#115411 <![CDATA[PŘIDÁNÍ PARAMETRŮ A UŽ.IVL. : díky, už mi to funguje. ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115404&title=pridani-parametru-a-uzivl#115404 Autor: Lukáš Záruba
Předmět: 28335
Zasláno: 29.led.2019 v 16:27

díky, už mi to funguje. Thumbs Up]]> Tue, 29 Jan 2019 16:27:15 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28335&PID=115404&title=pridani-parametru-a-uzivl#115404