---

Hallo Forum,

ich habe folgendes Problem: Die Technologischen Ergebnisse verursachen bei mir enorme Rechenzeiten. Aus diesem Grund habe ich mir überlegt das ich gerne ein Makro hätte, das ausgeführt in einer Baugruppe alle Technologischen Eigenschaften heraussucht und diese dann aktiviert bzw. inaktiviert....dabei ist es möglich das die Ergebnisse bereit teilweise aktiviert bzw. inaktiviert sind.....kann mir hier bitte jemand helfen....bin schwer am verzweifeln und für jeden Lösungsvorschlag dankbar....

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

---

Hi Knechta,

zu meinem Verständnis:
Was bzw. welche technologischen Eigenschaften meinst Du konkret?

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

ich meine die technologischen Ergebnisse mit denen die gewindeinformationen weitergegeben werden

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

---

Tut mir leid. Versteh ich noch nicht.
Wo/wie aktivierst Du die?
Wo stehen die? Baum?
Einen Screenshot bitte.

Tschau,
Joe

PS: Bitte im cad.de-Profil die Arbeitsumgebung angeben.

------------------
Inoffizielle Catia Hilfeseite

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

---

111.jpg

siehe screen

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

---

ach. In der deutschen Oberfläche heissen die so!

OK. Und kannst Du sie von Hand inaktivieren?

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Servus

IMHO geht das nicht so einfach da es keinen Parameter für den Aktivierungsstatus dafür gibt

Workaround (Idee): per Suche die "Technologischen Ergebnisse" selektieren (einzeln) und per StartCOmmand dies aktivieren/deaktivieren

@Joe:
Die erstellt man über: Körper selektieren -> RMT -> technologische Ergebnisse erzeugen

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

ich kann sie suchen über die Suchfunktion und ich kann sie auch per Hand aktivieren und inaktivieren....würde es aber gerne per makro machen......

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

---

Sieht für mich so aus, als ob Ihr schon eine Lösung gefunden habt.

@ Bernd: Schon wieder was gelernt heute! :-)

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

also per Recorder geht's....aber nur in der Baugruppe in der ich gerade steh....

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "CATPrtSearch.MechanicalFeature.NameInGraph='Technologische Ergebnisse',all"

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As Document
Set partDocument1 = documents1.Item("12345001_Context_Form_KMP_COAUAS.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim item1 As Item
' No resolution found for the object item1...

part1.Activate item1

Dim item2 As Item
' No resolution found for the object item2...

part1.Activate item2

Dim item3 As Item
' No resolution found for the object item3...

part1.Activate item3

Dim item4 As Item
' No resolution found for the object item4...

part1.Activate item4

Dim item5 As Item
' No resolution found for the object item5...

part1.Activate item5

End Sub

[Diese Nachricht wurde von Weberknechta am 06. Nov. 2015 editiert.]

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

---

ich hab sowas ähnliches um ebenen usw auszublenden und das funktioniert einwandfrei über die gesamte BG-Strukturr.....und ich bräuchte jetzt dahingehend hilfe....beide makros zu vereinene

Language="VBSCRIPT"

Sub CATMain()

CATIA.Caption = theCATTitle

On Error Resume Next
'Fehlermeldung aussgeschaltet'

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

CATIA.Caption = "Achsensysteme, die sichtbar sind ausblenden"
Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "(.Achsensystem & Sichtbarkeit=sichtbar);Alle"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1
selection1.Clear

CATIA.Caption ="Ebenen, die sichtbar sind  werden ausgeblendet"
Dim selection2 As Selection
Set selection2 = productDocument1.Selection

selection2.Search "(.Ebene & Sichtbarkeit=sichtbar);Alle"
Set visPropertySet2 = selection2.VisProperties
visPropertySet2.SetShow 1
selection2.Clear

CATIA.Caption = "Bedingungen, die sichtbar sind ausblenden"
Dim selection3 As Selection
Set selection3 = productDocument1.Selection

selection3.Search "(.Bedingung & Sichtbarkeit=sichtbar);Alle"
Set visPropertySet3 = selection3.VisProperties
visPropertySet3.SetShow 1
selection3.Clear

CATIA.Caption = theCATTitle

End Sub

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

---

Was mich an dem Ausblendmakro stört:

Eigentlich wär's

Catia.statusbar statt Catia.caption

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

habt ihr ne lösung für das Problem????Ich wäre euch echt dankbar :-)

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

---

Hi knechta,

warum die Makros vereinen?

Mach Unterroutinen und ruf sie nacheinander in CatMain auf(ungetestet):

Code:

---

sub CatMain

Blendaus
Deactivate

end sub

Sub Blendaus

CATIA.Caption = theCATTitle

On Error Resume Next
'Fehlermeldung aussgeschaltet'

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

CATIA.Caption = "Achsensysteme, die sichtbar sind ausblenden"
Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "(.Achsensystem & Sichtbarkeit=sichtbar);Alle"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1
selection1.Clear

CATIA.Caption ="Ebenen, die sichtbar sind  werden ausgeblendet"
Dim selection2 As Selection
Set selection2 = productDocument1.Selection

selection2.Search "(.Ebene & Sichtbarkeit=sichtbar);Alle"
Set visPropertySet2 = selection2.VisProperties
visPropertySet2.SetShow 1
selection2.Clear

CATIA.Caption = "Bedingungen, die sichtbar sind ausblenden"
Dim selection3 As Selection
Set selection3 = productDocument1.Selection

selection3.Search "(.Bedingung & Sichtbarkeit=sichtbar);Alle"
Set visPropertySet3 = selection3.VisProperties
visPropertySet3.SetShow 1
selection3.Clear

CATIA.Caption = theCATTitle
end sub

sub Deactivate
.
.
.
.
.

End sub

---

------------------
Inoffizielle Catia Hilfeseite

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

---

Sorry ich glaub da haben wir uns falsch verstanden.....eignetlich will ich nur ein Makro um die Technologischen Ergebnisse zu aktivieren bzw. inaktiveren....

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

---

Hi kechta,

Zitat:

---

und ich bräuchte jetzt dahingehend hilfe....beide makros zu vereinene

---

Das hab ichschon verstanden; Du musst halt schreiben was Du meinst.

Zitat:

---

aber nur in der Baugruppe in der ich gerade steh....

---

Baugruppe oder CatPart?

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

also....meine hauptbaugruppe umfasst mehrere Unterbaugruppe in der wiederum mehrere Parts angelegt sind....in diesen Parts gibt es mehrere körper in denen die technologischen Ergebnisse sich befinden die ich aktivieren bzw. inaktivieren möchte.....

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

---

gerne kann ich dir das mal per webex oder so zeigen um verständlicher zu machen was genau ich meine.....

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

---

Servus Weberknechta

Hier ein Code zum die "Technologischen Ergebnisse" in einem Part aktivieren (Vorraumsetzung: deutsche Umgebung)

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
dim oFeature as Object
dim oPart as Part
Dim selection1 As Selection
dim i as integer

Set partDocument1 = CATIA.ActiveDocument
Set selection1 = partDocument1.Selection
Set oPart = partDocument1.part

selection1.Search "CATPrtSearch.MechanicalFeature.Name=Technologische*,all"

if selection1.count <> 0 then
for i = 1 to selection1.count
Set oFeature = selection1.item(i).value
if oPart.IsInactive(oFeature) then
oPart.Activate(oFeature)
end if
next
end if

oPart.Update

End Sub

---

In der Baugruppe wird es komplexer, da die "Technologischen Ergebnisse" etwas störrisch sind (haben keine Parents).
Dort könnte folgendes gehen:
- alle Parts in der Baugruppe suchen und Selektieren
- die Selektion in einem Array zwischenspeichern
- jedes Part mit dem (etwas angepassten) Code von oben abarbeiten.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

das aktivieren funktioniert ja einwandfrei...und wie kann ich es wieder inaktivieren??? wenn ich nur die die befehle tausche kommt ne Fehlermeldung...

[Diese Nachricht wurde von Weberknechta am 07. Nov. 2015 editiert.]

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

---

zum deaktivieren:
Aus

Code:

---

if oPart.IsInactive(oFeature) then
  oPart.Activate(oFeature)
end if

---

mach

Code:

---

if oPart.IsInactive(oFeature) = False then
  oPart.InActivate(oFeature)
end if

---

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Super...danke funktioniert auf partebene echt wunderbar......meint ihr wir können es noch irgendwie auf Baugruppenebene hinbekommen.....Ihr seid echt ne Riesenhilfe für nen absoluten programmieranfänger wie mich :-) ....Danke an dieser Stelle für eure Hilfe.....

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

---

Also: Der Bernd hat Dir schon einen Weg aufgezeigt

Ausserdem:
Bitte im cad.de-Profil die Arbeitsumgebung angeben.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

So Profil ist aktualisiert....

Danke für die Info....leider bräuchte ich Hilfe um den von Bernd aufgezeigten Weg gehen zu können....

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

---

Also:

- erster Schritt: alle Parts im Produkt suchen und auswählen
- zweiter Schritt: alle Items aus der Selektion in einem Array zwischenspeichern

Den ersten Schritt kannst im Makro-Rekorder aufzeichnen.

Für den zweiten musst wissen, wie ein (dynamisches) Array
angelegt wird und den Array-Elementen Werte zugewiesen werden.

Da hilft die VB-Online-Hilfe weiter.
Stichworte: Array, Redim; Dim; Ubound, LBound;

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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