---

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

---

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

---

Hi Bernd

Lang nicht gehört 

Warum einfach, wenn Man kann es kompliziert   

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP