---

Hallo,

ich lasse eine mako ablaufen das einen punkt auf einer linie verschiebt. Dies geschieht in 20 schritten.

Wie kann ich es hinbekommen, dass jeder einzelne Schritt auf meinem bildschirm sichtbar ist??

Gruss Niko

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

---

Hallo Nico,

warum braucht man den sowas? Wenn du was bewegen möchtest um ein "Vorstands-*.gif" daraus zu machen ist vielleicht eine Animation (DMU) sinnvoller. Ev. könntest du mal CATIA.Display.Refresh versuchen. ICh bin mir aber fast sicher das du keine Chance haben willst. Das CATIA-Objekt ist solange disabled bis eine Codezeile kommt die eine Userinteraktion erfordert (SelectedElement) oder das Makro beendet wird. IMHO wird in dieser Zeit das Display weder gerendert noch aktualisiert 

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

Die KATJA ist halt doch nur ne zickige Französin

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

---

Ich finde auch dass du bei einer "Demo" mit dem DMU Kinematics Modul besser aufgehoben bist. Dann kannst du nach dem Erzeugen eines Machanismus auch eine Sequence erstellen und alles schön ablaufen lassen.

------------------
Grüße aus dem Rheinland

Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

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

---

Hallo Niko,

ist machbar. Du mußt halt jedesmal ein Update machen, und dem Rechner auch Zeit geben.
Die Zauberworte sind .Update und DoEvents.

Hier ein Code der ein Punkt auf der Linie verschiebt.
(Die Namen des Sets und des Punktes, musst du halt im Code anpassen)

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim pt As HybridShapePointOnCurve
Set pt = hybridShapes1.Item("Punkt.2")

Dim i As Integer
For i = 0 To 200 Step 1
pt.Offset.Value = i
part1.Update
DoEvents
Next i
End Sub

------------------
Gruss Markus

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

---

Zitat:

---

Original erstellt von MarkusK:
Hallo Niko,

ist machbar. Du mußt halt jedesmal ein Update machen, und dem Rechner auch Zeit geben.
Die Zauberworte sind .Update und DoEvents.

Hier ein Code der ein Punkt auf der Linie verschiebt.
(Die Namen des Sets und des Punktes, musst du halt im Code anpassen)

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim pt As HybridShapePointOnCurve
Set pt = hybridShapes1.Item("Punkt.2")

Dim i As Integer
For i = 0 To 200 Step 1
pt.Offset.Value = i
part1.Update
DoEvents
Next i
End Sub

---

Ich denke das das viel zu viel Performance kostet und ewig dauert bis das durchgelaufen ist. Ist in dem Sinne dann nicht produktiv. Lieber die Simulation verwenden um einen Punkt auf einer Linie zu verschieben

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

Die KATJA ist halt doch nur ne zickige Französin

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