| | | KISTERS 3DViewStation: Unterstützung für 3D CAD Kollaboration mit Lieferanten, eine Pressemitteilung
|
Autor
|
Thema: Reactivate Produkt im StrukturBaum (451 / mal gelesen)
|
Sylas Mitglied
Beiträge: 349 Registriert: 19.11.2012 Dell Precision T3500 Intel Xeon W3550 @ 3,07 GHz 12 GB RAM CATIA V5 R28
|
erstellt am: 04. Mrz. 2021 09:36 <-- editieren / zitieren --> Unities abgeben:
Hallo Freunde! Ich versuche jetzt ein Makro schreiben, mit welschem Ich wurde selektierte Products aktivieren/deaktiviren konnen.
Code:
Sub CATMain() Dim oProduct As Product Dim sSel As Selection Set sSel = CATIA.ActiveDocument.Selection Set oSel = sSel Dim sArray(0) As Variant sArray(0) = "Product" Dim prodName As String Dim oParam As Parameter Dim oRootProd As Product Dim sProdName As String Set oRootProd = CATIA.ActiveDocument.Product oSel.Clear Dim sStatus sStatus = oSel.SelectElement3(sArray, "Wybierz party, ktore chcesz deaktywować", True, CATMultiSelTriggWhenUserValidatesSelection, False)
For i = 1 To oSel.Count Set oProduct = oSel.Item(i).Value sProdName = oProduct.Name Set oParam = oRootProd.Products.Item(sProdName).Parameters.Item(oRootProd.Name & "\" & oRootProd.Products.Item(sProdName).Name & "\Component Activation State") If someBooleanCondition Then oParam.ValuateFromString ("true") Else oParam.ValuateFromString ("False") Next End Sub
Zur Zeit, es funktioniert Halbweg (es deaktiviert Produkte, aber wenn ich starte das Makro nochmal, es kann nicht der Gruppe wieder aktivieren). Kann mir jemand sagen, was habe ich Falsch gemacht? Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 12005 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 04. Mrz. 2021 09:52 <-- editieren / zitieren --> Unities abgeben: Nur für Sylas
Servus Sylas Was ist someBooleanCondition bei dir? Würde nicht: Code: if oParam.Value then 'bzw == tue oParam.Value = false else oParam.Value = true end if
reichen? Gruß Bernd EDIT: Hier wird ein alternativer Weg (sprachunabhängig, eventuell schneller) auf den Aktivierungsstatus zuzugreifen ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sylas Mitglied
Beiträge: 349 Registriert: 19.11.2012 Dell Precision T3500 Intel Xeon W3550 @ 3,07 GHz 12 GB RAM CATIA V5 R28
|
erstellt am: 04. Mrz. 2021 10:06 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|