---

Hallo Zusammen,

ich bin gerade dabei ein kleines Makro zu programmieren um eine Gruppe zu aktivieren.
Dies klappt auch wunderbar:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

CATIA.StartCommand ("Select Content")
CATIA.StartCommand ("Activate Terminal Node")

End Sub

---

Jedoch will ich jetzt, dass wenn ich ein Product, Part oder Ähnliches selektiert habe nur der Befehl "Activate Terminal Node" ausgeführt wird.
Und wenn ich eine Gruppe selektiert habe die beiden Befehle (wie oben).
ausgeführt werden.
Also warscheinlich mit if,then und else. Jedoch bin ich ziemlicher Anfänger in der Makro-welt.

Ich hab schon einiges ausprobiert, aber ich schaffe es nur, wenn ich zuerst das Makro starte und dann die Auswahl treffe. Wenn ich aber vorher selektiere funktioniert es nicht.
Kann mir jemand helfen?

Gruß graaas

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

---

Hallo,
Eine einfache UserSelektion :

Code:

---

Dim UserSelektion As Selection
Set  UserSelektion = CATIA.ActiveDocument.Selection

if Err Then
msgbox ("KEIN TEIL SELEKTIERT" , vbCritical, "Abbruch")
Exit sub
end if

---

hier musst du noch eine Abfrage einbauen was du Selektiert hast, und dann wiederum darauf reagieren.

In etwa so:

Code:

---

Set oRefDocument = SelectedProduct.ReferenceProduct.Parent 'oRefProduct.Parent
If TypeName(oRefDocument) = "PartDocument" Then

'************* Code****************

End if
'##############################################################

'Set oRefDocument = SelectedProduct.ReferenceProduct.Parent'oRefProduct.Parent
If TypeName(oRefDocument) = " ProductDocument" Then

'************* Code****************

End if

---

Eine Abfrage für die Gruppe kenne ich nicht

PS: der Code ist ungetestet

Edit:
Zeile:
Set oRefDocument = SelectedProduct.ReferenceProduct.Parent 'oRefProduct.Parent

------------------
Sei Schlau bleib Dumm !!?!!

[Diese Nachricht wurde von K.Siebert am 24. Okt. 2012 editiert.]

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

---

Danke für deine schnelle Hilfe aber Leider funktioniert es bei mir nicht.
Es kommt die Fehlermeldung:

Source:Laufzeitfehler in Microsoft VBScript
Description: Objekt erforderlich 'SelectedProduct'

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

---

Hallo,

sollte so Funktionieren:

Code:

---

Sub CATMain()

Dim UserSelektion As Selection
Set  UserSelektion = CATIA.ActiveDocument.Selection

'_____________Abfrage kein Selekt Elemente _________________________________

For I = 1 to 1

on Error resume Next
NameLeerError = (UserSelektion.Item(I).Value.ReferenceProduct.Name)

if Err Then
Box = msgbox ("KEIN TEIL SELEKTIERT" , vbCritical, "Abbruch")
Exit sub
end if

next

'___________________________________________________________________________

'_____________Abfrage Selektierte Elemente _________________________________

For I = 1 to UserSelektion.Count

Dim SelectedProduct As Product
Set SelectedProduct = CATIA.ActiveDocument.Selection.Item2(I).Value
Dim doc As Document
Set doc = SelectedProduct.ReferenceProduct.Parent

If TypeName(doc) = "PartDocument" then
msgbox "Part"

'************** Code *****************

'************** Code *****************
end if

If TypeName(doc) = "ProductDocument" then
msgbox "Product"

'************** Code *****************

'************** Code *****************
end if

Next
'___________________________________________________________________________

End Sub

---

------------------
Sei Schlau bleib Dumm !!?!!

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