---

Hallo,

habe ein problem, das meine sketche nicht immer gleich beim ersten update Aktualisiert sind. habe überlegt das mit einer Update schleife zu machen, das ein Update eines GeoSet so lange durchgefuhrt wird bis alle Sketche geupdatet sind.

Hat dafür jemant eine Makro lösung? Wäre echt nett, wenn jemand den Code mitschickt.
Danke

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

---

kannst du deinen bisherigen code mal posten?

------------------
NJ | Inoffizielle CATIA Hilfeseite | ???

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

---

Hallo,

ich poste mal aber glaube nicht das der dir viel weiterhilft.

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart")

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("External References")

part1.UpdateObject hybridBody1

Set hybridBody2 = hybridBodies1.Item("Sketche Senkrecht zur Axis")

Set hybridBodies2 = hybridBody2.HybridBodies

Set hybridBody3 = hybridBodies2.Item("Beschnitt Scharnierachse V und Lagetoleranzen")

part1.UpdateObject hybridBody3

Set hybridShapes1 = hybridBody2.HybridShapes

Set hybridShapeExtrude1 = hybridShapes1.Item("Extrude.9")

part1.UpdateObject hybridShapeExtrude1

Set hybridShapeIntersection1 = hybridShapes1.Item("Intersect.1")

part1.UpdateObject hybridShapeIntersection1

Set hybridShapeRotate1 = hybridShapes1.Item("Rotate.1")

part1.UpdateObject hybridShapeRotate1

Set hybridShape3DCurveOffset1 = hybridShapes1.Item("3D curve offset 1mm")

part1.UpdateObject hybridShape3DCurveOffset1

Set hybridShapeProject1 = hybridShapes1.Item("Project Offset 1mm")

part1.UpdateObject hybridShapeProject1

Set hybridBody4 = hybridBodies2.Item("Plane und Punkt für Sketch")

part1.UpdateObject hybridBody4

For I = 0 To 66

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart")

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("Sketche Senkrecht zur Axis")

Set hybridBodies2 = hybridBody1.HybridBodies

Set hybridBody2 = hybridBodies2.Item("Sketche")

Set sketches1 = hybridBody2.HybridSketches

Set sketch1 = sketches1.Item("Sketch."+ CStr(I))

Set constraints1 = sketch1.Constraints

Set constraint3 = constraints1.Item("Radius.Freigang")
part1.Inactivate constraint3

'-------------------------------------------------------------------------

Next

Set hybridBody2 = hybridBodies2.Item("Sketche")

part1.UpdateObject hybridBody2

For I = 0 To 66

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart")

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("Sketche Senkrecht zur Axis")

Set hybridBodies2 = hybridBody1.HybridBodies

Set hybridBody2 = hybridBodies2.Item("Sketche")

Set sketches1 = hybridBody2.HybridSketches

Set sketch1 = sketches1.Item("Sketch."+ CStr(I))

Set constraints1 = sketch1.Constraints

Set constraint7 = constraints1.Item("Coincidence.43")
part1.Inactivate constraint7

Set constraint7 = constraints1.Item("Coincidence.Punkt")
part1.Activate constraint7

Sketch1.OpenEdition
Sketch1.Evaluate
Sketch1.CloseEdition

'-------------------------------------------------------------------------
Next

Set hybridBody2 = hybridBodies2.Item("Sketche")

part1.UpdateObject hybridBody2

For I = 0 To 66

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart")

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("Sketche Senkrecht zur Axis")

Set hybridBodies2 = hybridBody1.HybridBodies

Set hybridBody2 = hybridBodies2.Item("Sketche")

Set sketches1 = hybridBody2.HybridSketches

Set sketch1 = sketches1.Item("Sketch."+ CStr(I))

Set constraints1 = sketch1.Constraints

Set constraint7 = constraints1.Item("Coincidence.Punkt")
part1.Inactivate constraint7

Sketch1.OpenEdition
Sketch1.Evaluate
Sketch1.CloseEdition

'------------------------------------------------------------------------
Next

Set hybridBody2 = hybridBodies2.Item("Sketche")

part1.UpdateObject hybridBody2

For I = 0 To 66

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart")

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("Sketche Senkrecht zur Axis")

Set hybridBodies2 = hybridBody1.HybridBodies

Set hybridBody2 = hybridBodies2.Item("Sketche")

Set sketches1 = hybridBody2.HybridSketches

Set sketch1 = sketches1.Item("Sketch."+ CStr(I))

Set constraints1 = sketch1.Constraints

Sketch1.OpenEdition
Set constraint3 = constraints1.Item("Radius.Freigang")
part1.Activate constraint3
Sketch1.Evaluate

Set constraint7 = constraints1.Item("Coincidence.43")
part1.Activate constraint7

Sketch1.CloseEdition

Next

Part1.Update

MsgBox "Macro ist beendet.",0,"Info"

End Sub

Ist nicht ganz professionel da das meiste aufgenommen wurde und ich dann bisschen drin gearbeitet habe, ich habe vorher noch nie mit makros gearbeitet und habe auch keine ahnung wie so etwas funktioniert, bzw wie so ein makro abläuft und arbeitet.

danke
grüße

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

---

zu deinem update problem. du könntest einfach mal

Code:

---

part1.update

---

an der stelle ausführen, wo du deine sketche updaten willst. damit sollten alle elemente im part aktualisiert werden.

Leider wird mir aus deinem code nicht ganz ersichtlich, was du genau vor hast. Ein paar hinweise:

es reicht aus

Code:

---

Set documents1 = CATIA.Documents

---

und

Code:

---

Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart")

---

usw. einmal am anfang zu definieren.

Variablen sollten vor ihrer benutzung deklariert werden

Code:

---

Dim documents1 as documents
  Set documents1 = CATIA.documents

---

du hast 4 for-schleifen in deinem code, könnte man das nicht alles in einer machen?

------------------
NJ | Inoffizielle CATIA Hilfeseite | ???

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

---

Hallo,
zusätzlich möchte ich noch darauf hinweisen, dass innerhalb einer Schleife und je nach Befehl auch mehrfach immer ein DoEvents gehört.

------------------
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

---

Hallo,
danke sehr für die schnelle antwort,also konnte das so aus sehen:

Language="VBSCRIPT"

Sub CATMain()

MsgBox "Fugenbegrenzung A-Säule Aktualisieren.Dies kann einige Minuten dauern.",0,"Info"

Dim documents1 as documents
Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart")

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("External References")

part1.UpdateObject hybridBody1

Set hybridBody2 = hybridBodies1.Item("Sketche Senkrecht zur Axis")

Set hybridBodies2 = hybridBody2.HybridBodies

Set hybridBody3 = hybridBodies2.Item("Beschnitt Scharnierachse V und Lagetoleranzen")

part1.UpdateObject hybridBody3

Set hybridShapes1 = hybridBody2.HybridShapes

Set hybridShapeExtrude1 = hybridShapes1.Item("Extrude.9")

part1.UpdateObject hybridShapeExtrude1

Set hybridShapeIntersection1 = hybridShapes1.Item("Intersect.1")

part1.UpdateObject hybridShapeIntersection1

Set hybridShapeRotate1 = hybridShapes1.Item("Rotate.1")

part1.UpdateObject hybridShapeRotate1

Set hybridShape3DCurveOffset1 = hybridShapes1.Item("3D curve offset 1mm")

part1.UpdateObject hybridShape3DCurveOffset1

Set hybridShapeProject1 = hybridShapes1.Item("Project Offset 1mm")

part1.UpdateObject hybridShapeProject1

Set hybridBody4 = hybridBodies2.Item("Plane und Punkt für Sketch")

part1.UpdateObject hybridBody4

For I = 0 To 66

Set constraint3 = constraints1.Item("Radius.Freigang")
part1.Inactivate constraint3

Set constraint7 = constraints1.Item("Offset.Freigang1")
part1.Inactivate constraint7
'-------------------------------------------------------------------------

Next

Set hybridBody2 = hybridBodies2.Item("Sketche")

part1.UpdateObject hybridBody2

For I = 0 To 66

Set constraint7 = constraints1.Item("Coincidence.43")
part1.Inactivate constraint7

Set constraint7 = constraints1.Item("Coincidence.Punkt")
part1.Activate constraint7

Sketch1.OpenEdition
Sketch1.Evaluate
Sketch1.CloseEdition

'-------------------------------------------------------------------------
Next

Set hybridBody2 = hybridBodies2.Item("Sketche")

part1.UpdateObject hybridBody2

For I = 0 To 66

Set constraint7 = constraints1.Item("Coincidence.Punkt")
part1.Inactivate constraint7

Sketch1.OpenEdition
Sketch1.Evaluate
Sketch1.CloseEdition

'------------------------------------------------------------------------
Next

Set hybridBody2 = hybridBodies2.Item("Sketche")

part1.UpdateObject hybridBody2

For I = 0 To 66

Sketch1.OpenEdition
Set constraint3 = constraints1.Item("Radius.Freigang")
part1.Activate constraint3
Sketch1.Evaluate

Set constraint7 = constraints1.Item("Coincidence.43")
part1.Activate constraint7

Sketch1.CloseEdition

Next

Set hybridBody2 = hybridBodies2.Item("Sketche")

part1.UpdateObject hybridBody2

For I = 0 To 66

Set constraint3 = constraints1.Item("Radius.Freigang")
part1.Inactivate constraint3

Set constraint7 = constraints1.Item("Offset.Freigang1")
part1.Activate constraint7

'-------------------------------------------------------------------------

Next

Set hybridBody2 = hybridBodies2.Item("Sketche")

part1.UpdateObject hybridBody2

Part1.Update

MsgBox "Macro ist beendet.",0,"Info"

End Sub

Dann erkläre ich das mal bisschen. Wie du gesehen hast habe ich 67 sketche. In diesen sind Intersection drine die sich jedesmal ändern bzw ändern können. Die Sketche sind alle genau bemaßt, und wenn ich ein update mache springen die sketche irgend wo hin im raum. Um dies zu verhindern, deaktiviere ich einige Bedingungen und mache dann ein Update. Damit die Sketche am richtigen ort sind muss ich die Bedingung wieder aktivieren und wieder updaten. Deswegen habe ich 4 for-schleifen. Ich habe das auch alles schon in einer probiert, leider funtioniert das nicht und es kommt immer zu update fehlern oder das die sketche überbemasst sind, was eigentlich unlogisch ist.
Das ist so grob da makro.
Und da meine sketche interativ aufgebaut sind. Also sich die genaue lage schrittweise nähern. Updaten mir die Sketche nicht alle gleich beim ersten Update. Deswegen wollte ich irgend ein code der so lange ein update macht, bis alles upgadatet ist oder nach einer anzahl von updates abbricht.

danke noch mal

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

---

ich bin mir nicht sicher ob das der richtige weg ist das part zu updaten. es ist schwer viel dazu zu sagen ohne das part zu kennen.. aber wenn das manuelle update nicht geht bezweifle ich das es per makro funktionieren wird.

in deinem neuen code fehlt in den for-schleifen jetzt das

Code:

---

Set sketch1 = sketches1.Item("Sketch."+ CStr(I))

---

die anweisung muss schon in jeder schleife drinstehen, sonst macht die 67 mal das gleiche, bzw. gar nichts.

das

Code:

---

Dim documents1 as documents
Set documents1 = CATIA.Documents

---

ist schon ein guter anfang, aber du solltest alle variablen deklarieren (zumindest im VBA, im VBS besser nicht.)

Code:

---

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart")

Dim part1 as Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = ... usw.

---

ich schätze du benutzt den cat-skript editor? falls ja dann -> http://v5vb.wordpress.com/2010/07/10/compelling-reasons-vba/

und schau dir vielleicht mal den artikel 'Fehler mit OnError Goto / Resume Next abfangen' an. http://www.vbarchiv.net/tipps/tipp_812-fehler-mit-onerror-goto-resume-next-abfangen.html

gruß

------------------
NJ | Inoffizielle CATIA Hilfeseite | ???

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

---

Danke für den Tipp.

Ja das ist auch nicht leicht zu erklären. Ja manuell geht ja aber da muss ich mindestens 5 mal hintereinander update durchfüheren und meistens mehr.

Aber ich werde mir den Artikel durchlesen vielleicht bringt der mich weiter. Danke noch mal war eine echt große hilfe.

Aber sollte ich nicht alles in VBS deklarieren und nicht in VBA? weil ich schreiben im VBA und wenn ich die aufnahmefunktion benutzte und in VBS umstelle da macht er mir überall DIM vor umd deklariert das. Haste vielleicht dich da vertan?

[Diese Nachricht wurde von cul-david am 06. Sep. 2011 editiert.]

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

---

Servus
AFAIR:
im CATScript müssen alle Variablen Dimensioniert sein, in CATvbs dürfen diese nicht dimensioniert sein. In VBA kannst du auf den "strict"-Modus umschalten (ist sinnvoll), dann müssen ach wieder alle Dimensioniert sein.
Zu deinem Problem:
Wenn du dein Modell wirklich 5mal updaten musst bis alles aktuell ist, solltest du dir ein paar Gedanken zur Methodik machen.
Ich hab die Erfahrung gemacht, dass das Projizieren (oder auch Schneiden) von Elementen in die Skizze da oft Probleme macht. Besser ist es dich direkt auf die 3D-Geometrie und auf Element von anderen Skizzen zu referenzieren (ohne Projizieren): Verschneidungen könntest du auch schon im Fläche/Wireframe-Modul machen.

Gruß
Bernd

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

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

---

Hallo,

danke für die Antwort.
Ja das referenzierem auf andere Skizzen geht leider nicht, weil das die erste Skizze ist. Die Skizzen ligen alle auf einer eigenen Ebene, die sich auch ständig ändert. In alle Richtungen X Y Z. Die Ebenen sind senkrecht zu einer Achse. Diese kann verschiedene Neigungen und Lagen einnehmen. Dadruch sehen auch die Verscheidungen auch immer anders aus und liegen auch immer wo anders. Ich glaube ich muss eine Formel finden, die dann ein Punkt auf der Verscheidung berechnet. Daduch glaube ich wird das Problem mit dem Update gelöst werden. Leider habe ich noch keine Lösung dafür da das viel zu komplex ist. Naja wird ja noch irgend eine andere Lösung geben.

mfg

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

---

Servus
Versuch mal eine Verschneidung im 3D (im GSD) zu verwenden.
Wenn um die Positionierung der Skizzen geht, könntest du "positionierte Skizzen" verwenden (auf die Verschneidung vom GSD) bezogen.

Gruß
Bernd

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

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