---

Hallo,
ich habe 2 Objekte, die über eine Winkelabhängigkeit verbunden sind. Ich möchte das Ganze jetzt üver VBA animieren und dazu den Winkel mit VBA ändern. Dazu meine Fragen:

1) Wie geht das? Wie heißt die Eigenschaft, die ich dazu ändern muss?

2) In welcher Datei mache ich das am besten? In der Animations oder in der Baugruppendatei?

Vielen Dnak,
Tappo

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

---

Hi Tappo,
nach Sicht Deiner Homepage --> SPITZE.
Deine Roboter sehen aus wie das Mindstorms-Projekt von einer bekannten Spielzeugfirma.

Eine Idee zur Lösung ist vielleicht in dem Beispiel von ROLF 2 enthalten: http://ww3.cad.de/foren/ubb/uploads/ROLF+2/IGUS.zip

------------------
gruß
robby

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

---

Hallo,
vielen Dank für Deine Antwort! Zeichnungen der Kette sehen sehr toll aus, leider kann ich sie nicht öffnen, da ich zu den Dinosauriern gehöre, die nur Version 5.0 haben. Verdammt...

Viele Grüße,
Tappo

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

---

Hi Tappo,
schade, aber ich suche nach einer Lösung.

------------------
gruß
robby

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

---

EditWinkelConst.zip

Hi Tappo,

anbei ein Beispiel, wie Winkelabhängigkeit über VBA geändert werden könnte.
Hoffe es hilft weiter, für alle mit Inv VI, Beispiel in ZIP-Datei

Public Sub EditAbhängigkeit()
   
    ' Set a reference to the assembly constraints.
    ' This assumes an assembly document is open.
    Dim oAsmCompDef As AssemblyComponentDefinition
    Set oAsmCompDef = _ ThisApplication.ActiveDocument.ComponentDefinition
   
    ' Set a refernce to all constraints
    Dim oAsmConst As AssemblyConstraints
    Set oAsmConst = oAsmCompDef.Constraints

    ' Abhängigkeiten durchsuchen
    Dim oConst As AssemblyConstraint
    Dim Found As Boolean
   
    Found = False
    For Each oConst In oAsmConst
        If oConst.Name = "VBAWinkel" Then
            Found = True
            Exit For
        End If
    Next
   
    ' Abhängigkeit ändern
    oConst.Angle.Value = oConst.Angle.Value * 2
   
    'Anzeige aktualisieren
    ThisApplication.ActiveDocument.Update
   
End Sub

------------------
HKE GmbH
Automatisierungstechnik

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

---

Hallo,
vielen Dank für das Beispiel. Genau das habe ich gesucht!
Ich möchte hier kurz allgemein loben: die Qualität der Hilfe, die man in diesem Forum bekommt, ist wirklich außerordentlich gut. Ich habe hier mehr gelernt als aus so manchem Buch.

Vielen Dank,
Tappo

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