Zobrazit plnou verzi příspěvku: CHYBA V PRAVIDLE

Lukáš Záruba
26.11.2018, 16:46
Zdravím, mám pravidlo které mi vytvoří textový parametr a následně ho vyplní číslem součásti. V díle to funguje skvěle ale chci to použít pro sestavu a tam mi to píše toho:Já nevím co po mě přesně chce.Pravidlo je to toto:Dim part As PartDocument = doc = ThisDoc.Document
Dim userParams = part.ComponentDefinition.Parameters.UserParameters
Dim p As Inventor.Parameter
Try
p = userParams("POPIS_DILU")
Catch
p = userParams.AddByValue("POPIS_DILU","XXXXXXX", UnitsTypeEnum.kTextUnits)
End Try
p.Comment = "GRAVURA"

iProperties.Value("Project", "Part Number") = ThisDoc.FileName(False) 'without extension

Parameter("POPIS_DILU") = iProperties.Value("Project", "Part Number")

iProperties.Value("Project", "Stock Number") = iProperties.Value("Project", "Part Number")Nevíte někdo jak to zprovoznit?

Navara
26.11.2018, 17:09

První řádek nedává smyslMusíte si vybrat buď doc, nebo ThisDoc,Document ale ne obojí