---

Leute!

Als total Unwissender brauche ich jetzt genau
Eure Hilfe 

In meiner aktuellen Firma werden Vorrichtungen für die Automobilindustrie gebaut.
Größe einer Vorrichtung ca.:

4,2m x 1,8m x 2m

Viele viele Standardteile eingebaut, die hauseigens die Ursprungsebenen eingeblendet sind, Achsensysteme etc. pp.

Wenn ich eine, mir unbekannte Vorrichtung öffne, lasse ich erstmal mein Makro laufen um den 3D Raum optisch zu säubern:

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search  "CATAsmSearch.MfConstraint,all"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1

selection1.Search "CATPrtSearch.AxisSystem,all"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1

selection1.Search "CATPrtSearch.Plane,all"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1

End Sub

Jedoch wird alles immer und immer größer, sodass es etwas dauert bis das gute Stück fertig ist mit seiner Arbeit.

Ich würde mir jetzt gerne, direkt nach dem Start des Makros, eine Abfrage einbauen was ich ausblenden möchte.

Ebenen
Bedinungen
Achsensysteme

Aber wie oben schon erwähnt: "0" Ahnung!

Geht das überhaupt, und wenn ja könntet ihr mir ja ein klein wenig unter die Arme greifen?!

Jens

------------------
SuFu wurde immer benutzt, jedoch ohne den gewünschten Erfolg!

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

---

Hallo,
die "Unschöne" Lösung wäre, eine Inputbox vorzuschalten, wo der User über  1,2, oder die Auswahl trifft. Die Inputbox wird dann abgefragt und je nach Eingabe wir dann die jeweilige Aktion ausgeführt (Select Case).
Die schönere Variante wäre, dies als VBA-Fenster umzusetzen, wo die Optionen mit der Maus angewählt werden könnten.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

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

---

Hallo Jens,

so sollte eine Auswahl möglich sein:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

msgInput = MsgBox("Alle Constraints ausblenden?", vbYesNoCancel, "Constraints")

If msgInput = vbYes Then
  selection1.Search  "CATAsmSearch.MfConstraint,all"
  Set visPropertySet1 = selection1.VisProperties
  visPropertySet1.SetShow 1
end if

msgInput = MsgBox("Alle Achsen ausblenden?", vbYesNoCancel, "Achsensysteme")
If msgInput = vbYes Then
  selection1.Search "CATPrtSearch.AxisSystem,all"
  Set visPropertySet1 = selection1.VisProperties
  visPropertySet1.SetShow 1
end if

msgInput = MsgBox("Alle Ebenen ausblenden?", vbYesNoCancel, "Ebene")
If msgInput = vbYes Then
  selection1.Search "CATPrtSearch.Plane,all"
  Set visPropertySet1 = selection1.VisProperties
  visPropertySet1.SetShow 1
end if

End Sub

---

Falls du eine richtige Oberfläche haben willst, also z.B. mit Option-Buttons, dann musst du den Weg über VB, bzw. VBA gehen

grüße Dominik

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

---

Moin!

Saubere Sache Dominik, so können
wir arbeiten 

LG
Jens 

------------------
SuFu wurde immer benutzt, jedoch ohne den gewünschten Erfolg!

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