---

Hallo,
brauch mal eure Hilfe. Ich hab folgendes Script im Einsatz.

Language="VBSCRIPT"

Sub CATMain()

On Error Resume Next

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Set Selection1 = ProductDocument1.Selection

Dim selection1 As Selection

Selection1.Search("CATPrtSearch.Plane+CATPrtSearch.AxisSystem+CATPrtSearch.Point+
CATPrtSearch.Line+CATPrtSearch.Curve+CATAsmSearch.MfConstraint,all")

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1
selection1.Clear

End Sub

Funktioniert auch gut soweit. Leider schiebt es alles ins Hide auch wenn die Modelle (CatParts) schon im Hide sind.
Wie bekomme ich es hin dass es nur die Modelle anspricht die auch wirklich auf dem Bildschirm sind und nicht von mir bereits im Hide stehen?
Kann mir jemand helfen?
Danke und Gruß
ausie-r-n

[Diese Nachricht wurde von ausie-r-n am 24. Jan. 2008 editiert.]

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

---

Hi ausie-r-n,

versuch es mal mit folgender Zeile:

Code:

---

Selection1.Search("(CATPrtSearch.Plane+CATPrtSearch.AxisSystem+CATPrtSearch.Point+CATPrtSearch.Line+CATPrtSearch.Curve+CATAsmSearch.MfConstraint) & Visibility=Shown,all")

---

Das sollte dir dein Ergebniss liefern.

Gruß
Proofin

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

---

Hallo Proofin,

das wars. Genau das sollte passieren.

Ich danke Dir nochmals. Kannst Du mir auch bei meinem anderen Problem helfen? "Makro Bodys auf Layer verschieben" http://ww3.cad.de/foren/ubb/Forum137/HTML/002573.shtml

Gruß
ausie-r-n

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

---

Moin ausie-r-n,

nein tut mir Leid, mit Layern hab ich noch nicht gearbeitet.
Da weiß ich nicht mal wie das interaktiv geht.

Gruß
Proofin

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

---

Hallo Proofin,

danke trotzdem.

Gruß

ausie-r-n

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