---

Hi Leute,

wollte mal fragen ob jemand weiß wie ich in einem Makro eine Liste erstellen kann, bei der ich dann Center Graph anwenden kann.  
also sagen wir ich suche alle deaktivierten elemente mit
selection1.Search "CATPrtSearch.PartDesign Feature.Activity=FALSE"
dann wirds ja nur markiert.

hab leider sonst nirgends etwas gefunden weder im Forum noch in der VBA Hilfe

Danke schonmal im Vorraus  

------------------
mfg Flix

[Diese Nachricht wurde von Flix92 am 02. Sep. 2013 editiert.]

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

---

Hallo Flix,

also möglich ist das. Mal eben erklärt ist das aber nicht. Eine Liste kann man mit entsprechendem Editor erstellen und muss diese mit den notwendigen Informationen füllen. Notwendig sind hier in jedem Fall die Eigenschaften, die das Element eindeutig indentifizieren. Da kommt natürlich aber auch aufs Element an. z.B. Name, Typ, wo liegt es? etc.. Danach die Liste aufpoppen und bei einem Doppelklick das Element suchen und markieren. Danach per catia.Startcommand"Bildschirmfüllend anzeigen" zentrieren. Der Befehl ist allerdings von der Umgebungssprache abhängig.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Hi Schulz

Puh klingt komplizierter als ich mir dachte
ok... gibts vielleicht die Möglichkeit das Suchfenster zu öffnen und als Liste zu nutzen?

------------------
mfg Flix

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

---

Hallo Flix,

dann musst du die normale Suche verwenden. Wenn du selbst programmierst, dann musst du dir auch die Ausgabefenster programmieren. Allerdings hast du im Suchfenster direkt die Möglichkeit.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

ok alles klar danke
vielleicht weißt du dazu auch was
ich hab mir im VB editor ein UserForm erstellt mit einem Button der beim klicken alle Deaktivierten Elemente sucht.
allerdings ist das ja kein richtiges Makro (sorry wenn ich so red, aber da bin ich heute erst draufgekommen)
also jetzt würd ich gern ein Modul erstellen (schon geschafft) und auf die UserForm verweisen damit die gestartet wird.
hab schon in anderen Foren den Call befehl gefunden nur der funzt iwie nicht oder UserForm1=TRUE geht leider auch nicht

vielleicht weißt du da auch ne Lösung danke 

------------------
mfg Flix

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

---

Ähm du musst in das Klickereignis des Knopfes den Aufruf des Moduls packen. Das Modul sollte dann mit Public Sub Name_Modul() benannt werden, da ansonsten das Modul nicht außerhalb der eigenen Umgebung aufgerufen werden kann. Die Form ist aber eine andere Umgebung. Daher Public!...

Was für ein Fehler kommt denn? Oder poste doch mal etwas Code, dann kann ich dir mit Sicherheit helfen.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Code:

---

Sub CATMain()

End Sub

und die UserForm mit dem Code zum suchen

Public Sub CommandButton1_Click()

'error handling
On Error Resume Next

Dim partDocument1 'As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

If Err.Number = 0 Then

        Dim selection1 'As Selection
        Set selection1 = partDocument1.Selection
      selection1.Search "CATPrtSearch.PartDesign Feature.Activity=FALSE"
End If

End Sub

---

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

---

Sorry falsche Funktion genutzt.  

Code:

---

Sub CATMain()
  UserForm.show
End Sub

Public Sub CommandButton1_Click()

  'error handling
  On Error Resume Next

  Dim partDocument1 'As Document
  Set partDocument1 = CATIA.ActiveDocument

  Dim part1 As Part
  Set part1 = partDocument1.Part

  If Err.Number = 0 Then

      Dim selection1 'As Selection
      Set selection1 = partDocument1.Selection
      selection1.Search "CATPrtSearch.PartDesign Feature.Activity=FALSE"

  End If

End Sub

---

Da fehlte noch das Show der Form.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Servus
Das was du gerade probieren willst gib es auch schon fertig: Tools -> Parametrisierungsanalyse.
Wenn du es unbedingt programmieren willst wird es jetzt erst richtig interessant:
- einer Listbox die gefundenen Element (zbw nur deren Name) füllen (Methode AddItem)
- beim Klick auf einen Button das markierte Feature zentrieren:
  - mit StartCommand?
  - wie bekommt man das Feature wieder (nr aus dem Namen ist ggf nicht eindeutig)

Gruß
Bernd

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

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

---

Also ein rießiges Dankeschön an Rick 
klappt jetzt endlich

und an Bernd ...    
wenn ich das meinen Kollegen zeig wissen sie das die ganze Arbeit die ich mir mit den Makros gemacht hab umsonst war 
Trotzdem auch ein großes Dankeschön 

Ich mach mich mal auf den Heimweg
bis morgen dann
hab schon eine neue Idee im Hinterkopf 

------------------
mfg Flix

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