Mám dvě pravidla. Jedno zapisuje do uživatelské iVlastnosti informaci o materiál, třeba PMMA tl.10mm a druhé pravidlo zapisuje skladové číslo uvedené v řádku "Komentář" do řádku "Skladové číslo". Ptřeboval bych, aby se obě pravidla spouštěla současně, takž jako nejlepší řešení vidím obě pravidla sloučit.Ale nevím jak.První pravidlo:Dim oDoc As PartDocument = ThisDoc.DocumentiProperties.Value("Custom", "Materiál") = oDoc.ActiveMaterial.DisplayNameDruhé pravidlo:If ThisApplication.ActiveDocumentType <> kPartDocumentObject Then Exit SubDim oDoc As PartDocumentoPartDoc = ThisApplication.ActiveDocumentDim oMat As AssetoMat = oPartDoc.ActiveMaterialiProperties.Value("Project", "Stock number") = oMat.Item("physmat_Comments").Value

V principu je stačí napsat za sebe. Ale musíte si dát pozor, abyste nedefinoval proměnnou se stejným názvem dvakrát.[code]'Vypujceno z druheho pravidlaIf ThisDoc.Document.DocumentType <> DocumentTypeEnum. kPartDocumentObject Then Exit Sub'První pravidlo:Dim oPartDoc As PartDocument = ThisDoc.DocumentiProperties.Value("Custom", "Materiál") = oPartDoc.ActiveMaterial.DisplayName'Druhé pravidlo:'Dim oDoc As PartDocument'oPartDoc = ThisApplication.ActiveDocumentDim oMat As AssetoMat = oPartDoc.ActiveMaterialiProperties.Value("Project", "Stock number") = oMat.Item("physmat_Comments").Value[/code]

Takhle mě to napadlo, ale nechtělo mi to fungovat.Tak jsem to udělal takhle:If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kPartDocumentObject Then Exit SubDim oDoc As PartDocument = ThisDoc.DocumentDim oMat As Asset = oDoc.ActiveMaterialiProperties.Value("Custom", "Materiál") = oDoc.ActiveMaterial.DisplayNameiProperties.Value("Project", "Stock number") = oMat.Item("physmat_Comments").Value

Tohle je samozřejmě mnohem čistší