Již 10.000+ CAD tipů.
Přes 118.000 registrovaných u nás, celkem 1.091.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Odpovědět ![]() |
archiv |
Autor | |
madep ![]() Zasloužilý člen ![]() Přihlášen: 01.pro.2006 Lokalita: ČR (Pha) Používám: Inventor 2022 Stav: Offline Bodů: 198 |
![]() 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 |
|
![]() |
|
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 support ![]() ![]() Arkance Systems Přihlášen: 08.zář.2008 Lokalita: ČR (Pha) Používám: Inventor Stav: Offline Bodů: 1637 |
![]() |
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.
|
|
![]() |
|
madep ![]() Zasloužilý člen ![]() Přihlášen: 01.pro.2006 Lokalita: ČR (Pha) Používám: Inventor 2022 Stav: Offline Bodů: 198 |
![]() |
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 |
|
![]() |
|
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 support ![]() ![]() Arkance Systems Přihlášen: 08.zář.2008 Lokalita: ČR (Pha) Používám: Inventor Stav: Offline Bodů: 1637 |
![]() |
Tohle je samozřejmě mnohem čistší
![]() |
|
![]() |
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,316 sekund.