CAD Fórum : Sloučení dvou pravidel https://www.cadforum.cz/forum/ Sat, 09 May 2026 22:53:04 +0000 Sun, 16 Aug 2020 16:27:07 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=30888 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Sloučení dvou pravidel : Tohle je samozřejmě mnohem čistší...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30888&PID=121136&title=slouceni-dvou-pravidel#121136 Autor: Navara
Předmět: 30888
Zasláno: 16.srp.2020 v 16:27

Tohle je samozřejmě mnohem čistší Smile]]> Sun, 16 Aug 2020 16:27:07 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30888&PID=121136&title=slouceni-dvou-pravidel#121136 <![CDATA[Sloučení dvou pravidel : Takhle mě to napadlo, ale nechtělo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30888&PID=121135&title=slouceni-dvou-pravidel#121135 Autor: madep
Předmět: 30888
Zasláno: 16.srp.2020 v 15:45

Takhle mě to napadlo, ale nechtělo mi to fungovat.
Tak jsem to udělal takhle:

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kPartDocumentObject Then Exit Sub

Dim oDoc As PartDocument = ThisDoc.Document
Dim oMat As Asset = oDoc.ActiveMaterial

iProperties.Value("Custom", "Materiál") = oDoc.ActiveMaterial.DisplayName
iProperties.Value("Project", "Stock number") = oMat.Item("physmat_Comments").Value]]> Sun, 16 Aug 2020 15:45:23 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30888&PID=121135&title=slouceni-dvou-pravidel#121135 <![CDATA[Sloučení dvou pravidel : V principu je stačí napsat za...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30888&PID=121130&title=slouceni-dvou-pravidel#121130 Autor: Navara
Předmět: 30888
Zasláno: 15.srp.2020 v 22:04

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.

'Vypujceno z druheho pravidla
If ThisDoc.Document.DocumentType <> DocumentTypeEnum. kPartDocumentObject Then Exit Sub
'První pravidlo:
Dim oPartDoc As PartDocument = ThisDoc.Document

iProperties.Value("Custom", "Materiál") = oPartDoc.ActiveMaterial.DisplayName

'Druhé pravidlo:

'Dim oDoc As PartDocument
'oPartDoc = ThisApplication.ActiveDocument

Dim oMat As Asset
oMat = oPartDoc.ActiveMaterial

iProperties.Value("Project", "Stock number") = oMat.Item("physmat_Comments").Value
]]> Sat, 15 Aug 2020 22:04:22 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30888&PID=121130&title=slouceni-dvou-pravidel#121130 <![CDATA[Sloučení dvou pravidel : Mám dvě pravidla. Jedno zapisuje...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30888&PID=121128&title=slouceni-dvou-pravidel#121128 Autor: madep
Předmět: 30888
Zasláno: 15.srp.2020 v 19:37

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.Document
iProperties.Value("Custom", "Materiál") = oDoc.ActiveMaterial.DisplayName

Druhé pravidlo:
If ThisApplication.ActiveDocumentType <> kPartDocumentObject Then Exit Sub

Dim oDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument

Dim oMat As Asset
oMat = oPartDoc.ActiveMaterial

iProperties.Value("Project", "Stock number") = oMat.Item("physmat_Comments").Value]]> Sat, 15 Aug 2020 19:37:36 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30888&PID=121128&title=slouceni-dvou-pravidel#121128