Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Hide/Show

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Hide/Show (2322 mal gelesen)
Erich
Mitglied
Senior Consultant selbstständig


Sehen Sie sich das Profil von Erich an!   Senden Sie eine Private Message an Erich  Schreiben Sie einen Gästebucheintrag für Erich

Beiträge: 198
Registriert: 03.10.2000

i7-9850H
RAM 32,0 GB
Nvidia Quadro T2000
Windows 7 Professional 64Bit

erstellt am: 08. Dez. 2008 14:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen
folgende Frage:
Wie kann ich in einer Rule Geometrien z.B. eine inaktivierte Verrundung, ins HIDE schieben?

------------------
mfg
Erich

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

denyo_1
Moderator
Manager


Sehen Sie sich das Profil von denyo_1 an!   Senden Sie eine Private Message an DanielFr.  Schreiben Sie einen Gästebucheintrag für DanielFr.

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 08. Dez. 2008 15:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Erich 10 Unities + Antwort hilfreich

Hallo,

geht IMHOIn my humble oppinion (Meiner Meinung nach) mit ner Rule nicht. Da kannst du nur die ActivationStat ändern. Hide/Show geht nur über ne Selektion und den VisProperties. Ev. kannst es ja mit ner Reaction machen, da kannst dann in nem VB-Skript die Selektion und die VisProperties ändern.

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

Tamo
Mitglied
Maschinenbautechniker


Sehen Sie sich das Profil von Tamo an!   Senden Sie eine Private Message an Tamo  Schreiben Sie einen Gästebucheintrag für Tamo

Beiträge: 53
Registriert: 20.10.2009

erstellt am: 20. Feb. 2012 15:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Erich 10 Unities + Antwort hilfreich


Unbenannt.JPG

 
Hallo,

möchte einen Split ins Hide stellen und den 2. Splitt dann einblenden. Leider bekomme ich bei dem Quelltext immer die Fehlermeldung im ANhang. Kann mir jemand einen Tipp geben was ich falsch machen??

Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("Part01_mounted")
Set hybridBodies1 = body1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Seam_mounted")
Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapeSplit1 = hybridShapes1.Item("Split.151")
Set hybridShapes1 = hybridShapeSplit1.Parent

Set visPropertySet1 = hybridShapesSplit1.VisProperties
visPropertySet1.SetShow 0


Gruß

[Diese Nachricht wurde von Tamo am 20. Feb. 2012 editiert.]

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

HoBLila
Mitglied
Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx


Sehen Sie sich das Profil von HoBLila an!   Senden Sie eine Private Message an HoBLila  Schreiben Sie einen Gästebucheintrag für HoBLila

Beiträge: 1118
Registriert: 29.05.2008

DELL PRECISION T3500
Intel(R) Xeon(R) CPU W3540 @ 2.93GHz
12285 MB RAM
NVIDIA Quadro FX 1800
Microsoft Windows 7 Enterprise Service Pack 1
CATIA V5 R19 SP09 HF69
VB6.5
CAA RADE CDC

erstellt am: 20. Feb. 2012 15:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Erich 10 Unities + Antwort hilfreich

Ich behaupte es gibt keinen Split.151

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

Tamo
Mitglied
Maschinenbautechniker


Sehen Sie sich das Profil von Tamo an!   Senden Sie eine Private Message an Tamo  Schreiben Sie einen Gästebucheintrag für Tamo

Beiträge: 53
Registriert: 20.10.2009

erstellt am: 21. Feb. 2012 07:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Erich 10 Unities + Antwort hilfreich


strukturbaum.JPG

 
Guten Morgen,

anbei der Strukturbaum mit dem "Split151".

Das ganze steht in einem Script.

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As Body
Set body1 = bodies1.Item("Part01_mounted_1.1")
Dim shapes1 As Shapes
Set shapes1 = body1.Shapes
Dim split1 As Shape
Set split1 = shapes1.Item("Split.119")
split1.SplittingSide = catNegativeSide

Dim part2 As Part
Set part2 = partDocument1.Part
Dim bodies2 As Bodies
Set bodies2 = part2.Bodies
Dim body2 As Body
Set body2 = bodies2.Item("Part01_mounted_1.3")
Dim shapes2 As Shapes
Set shapes2 = body2.Shapes
Dim split2 As Shape
Set split2 = shapes2.Item("Split.120")
split2.SplittingSide = catNegativeSide

Dim part3 As Part
Set part3 = partDocument1.Part
Dim bodies3 As Bodies
Set bodies3 = part3.Bodies
Dim body3 As Body
Set body3 = bodies3.Item("Part01_mounted_1.4")
Dim shapes3 As Shapes
Set shapes3 = body3.Shapes
Dim split3 As Shape
Set split3 = shapes3.Item("Split.123")
split3.SplittingSide = catPositiveSide

Dim part4 As Part
Set part4 = partDocument1.Part
Dim bodies4 As Bodies
Set bodies4 = part4.Bodies
Dim body4 As Body
Set body4 = bodies4.Item("Part01_mounted_1.2")
Dim shapes4 As Shapes
Set shapes4 = body4.Shapes
Dim split4 As Shape
Set split4 = shapes4.Item("Split.121")
split4.SplittingSide = catPositiveSide


Set body1 = bodies1.Item("Part01_mounted")
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = body1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Seam_mounted")
Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes
Dim hybridShapeSplit1 As HybridShape
Set hybridShapeSplit1 = hybridShapes1.Item("Split.150")
hybridShapesplit1.Orientation = 1

Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("Part01_mounted")
Set hybridBodies1 = body1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Seam_mounted")
Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapeSplit1 = hybridShapes1.Item("Split.151")
Set hybridShapes1 = hybridShapeSplit1.Parent

Set visPropertySet1 = hybridShapesSplit1.VisProperties
visPropertySet1.SetShow 0

Set body3 = bodies3.Item("Part01_mounted")
Dim hybridBodies3 As HybridBodies
Set hybridBodies3 = body1.HybridBodies
Dim hybridBody3 As HybridBody
Set hybridBody3 = hybridBodies3.Item("Seam_mounted")
Dim hybridShapes3 As HybridShapes
Set hybridShapes3 = hybridBody3.HybridShapes
Dim hybridShapeSplit3 As HybridShape
Set hybridShapeSplit3 = hybridShapes3.Item("Split.152")
visPropertySet3.SetShow 0

Gruß

[Diese Nachricht wurde von Tamo am 21. Feb. 2012 editiert.]

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 21. Feb. 2012 07:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Erich 10 Unities + Antwort hilfreich

Servus
AFAIR muss du zum ausblende/einblenden erst das Feature selektieren. (siehe auch Forensuche und Doku)

Gruß
Bernd

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

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

Tamo
Mitglied
Maschinenbautechniker


Sehen Sie sich das Profil von Tamo an!   Senden Sie eine Private Message an Tamo  Schreiben Sie einen Gästebucheintrag für Tamo

Beiträge: 53
Registriert: 20.10.2009

erstellt am: 21. Feb. 2012 10:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Erich 10 Unities + Antwort hilfreich

So habe ich es nun gelöst.

Kann man das noch irgendwie verschlanken/optimieren?

Set partDocument1 = CATIA.ActiveDocument
Set selection1 = partDocument1.Selection
Set visPropertySet1 = selection1.VisProperties
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("Part01_mounted")
Set hybridBodies1 = body1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Seam_mounted")
Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapeSplit1 = hybridShapes1.Item("Split.151")
Set hybridShapes1 = hybridShapeSplit1.Parent

Dim bSTR1
bSTR1 = hybridShapeSplit1.Name
selection1.Add hybridShapeSplit1
Set visPropertySet1 = visPropertySet1.Parent
Dim bSTR2
bSTR2 = visPropertySet1.Name
Dim bSTR3
bSTR3 = visPropertySet1.Name
visPropertySet1.SetShow 0
selection1.Clear

'___________________________________________________________________________________________________________________

'Split.152 wird ausgeblendet


Set selection2 = partDocument1.Selection
Set visPropertySet2 = selection2.VisProperties
Set hybridShapes2 = hybridBody1.HybridShapes
Set hybridShapeSplit2 = hybridShapes2.Item("Split.152")
Set hybridShapes2 = hybridShapeSplit2.Parent

Dim bSTR4
bSTR4 = hybridShapeSplit2.Name
selection2.Add hybridShapeSplit2
Set visPropertySet2 = visPropertySet2.Parent
Dim bSTR5
bSTR5 = visPropertySet2.Name
Dim bSTR6
bSTR6 = visPropertySet2.Name
visPropertySet2.SetShow 1
selection2.Clear


Gruß

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



Planungsingenieur*in PV

DEINE KARRIERE BEI DER GP JOULE GRUPPE

Den gesamten Energieverbrauch erneuerbar zu produzieren, ist für uns mehr als ein Ziel. Es ist unsere Verantwortung. Mit Strom aus Wind und Sonne, mit Grünem Wasserstoff, mit CO2-freier Mobilität, mit smarter Speicherung und Nutzung bauen wir das Energiesystem der Zukunft. So stellt GP JOULE die Energieversorgung als universeller Anbieter für erneuerbare Energien für Generationen sicher....

Anzeige ansehenElektrotechnik, Elektronik
HoBLila
Mitglied
Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx


Sehen Sie sich das Profil von HoBLila an!   Senden Sie eine Private Message an HoBLila  Schreiben Sie einen Gästebucheintrag für HoBLila

Beiträge: 1118
Registriert: 29.05.2008

DELL PRECISION T3500
Intel(R) Xeon(R) CPU W3540 @ 2.93GHz
12285 MB RAM
NVIDIA Quadro FX 1800
Microsoft Windows 7 Enterprise Service Pack 1
CATIA V5 R19 SP09 HF69
VB6.5
CAA RADE CDC

erstellt am: 21. Feb. 2012 13:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Erich 10 Unities + Antwort hilfreich

Klar, statt der ganzen Set würde ich ein Selection.Search() machen und

Dim bSTR1
bSTR1 = hybridShapeSplit1.Name
selection1.Add hybridShapeSplit1
Set visPropertySet1 = visPropertySet1.Parent
Dim bSTR2
bSTR2 = visPropertySet1.Name
Dim bSTR3
bSTR3 = visPropertySet1.Name
visPropertySet1.SetShow 0
selection1.Clear

sieht sehr unnötig aus, da müsste

selection1.visPropertySet1.SetShow 0

reichen, wenn das Objekt in der Selection ist.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz