---

Guten Morgen Catia User,

Was müsste ich in meinem Scriptcode ändern damit das Körper bzw. Body ausblenden funktioniert?

------------------

msgInput = MsgBox("Körper einblenden?", vbYesNoCancel, "Körper")

If msgInput = vbYes Then
  selection1.Search  "CATPrtSearch.Body,all"
  Set visPropertySet1 = selection1.VisProperties
  visPropertySet1.SetShow 1
end if
-----------------

Danke im Voraus

Jürgen

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

---

Servus
Versuch es mal mit "visPropertySet1.SetShow 0" oder "visPropertySet1.SetShow catVisPropertyNoShowAttr"
(siehe auch in der V5Automation.chm)

Gruß
Bernd

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

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

---

Danke für die schnelle Antwort,

  selection1.Search "CATPrtSearch.Body,all"

Wahrscheinlich liegt es an den Body hier oben ich weiß nicht ob das der rechtige Eintrag ist.
Bei Ebene habe ich plane eingesetzt und bei Skizze  das Sketch und es funktioniert nur der Body geht nicht .
Gruß Jürgen

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

---

Servus
Ach so, du suchst den richtigen Suchstring:
selection1.Search "CATPrtSearch.BodyFeature,all"
Am einfachsten bekommt man diesen über den Makrorekorder (Suchfunktion aufzeichnen)

Gruß
Bernd

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

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

---

Danke klappt super,

jetzt nur noch kurz, was kann mam eingeben das der

Partbody
oder der aktive body

genommen wird zb zum Einblenden.

Gruß Jürgen

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

---

Servus
An den Hauptkörper kommst direkt vom Part aus:

Code:

---

selection1.clear
selection1.add oPart.Mainbody

---

Beim aktuellen Körper sollte es über "InWorkObject" gehen zB (ungetestet)

Code:

---

selection1.clear
if Typename(oPart.InWorkObject) <> "Body" then
         exit Sub
end if
selection1.add oPart.InworkObject

---

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 14. Sep. 2012 editiert.]

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

---

Danke

werd ich gleich mal probieren.

Schönes Wochenende Hast mir sehr geholfen

Jürgen

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