---

Hallo Leute,

ich hoffe Ihr könnt mir helfen:

Ich möchte in der Skizzierumgebung (Diva 9) alle erzeugten constraints auf einmal löschen. Gibt's da ein Möglichkeit (ev. Makro) oder muß man da jede Abhängigkeit einzeln löschen  ?

Für Eure Hilfe wäre ich sehr dankbar!

LG an das geniale Forum!!!

Andi

------------------
Das Maß aller Dinge:
6 Zylinder - 4 Ringe!

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

---

Ist es da nicht schneller, einfach das entsprechende Skizzenelement zu löschen und nochmal zu zeichnen ?? 

Oder was willst Du damit bezwecken ?

Übrigens: Herzlich Willkommen im WBF 
------------------
Gruß, Lars

CAU Kiel
AG Extraterrestrische Physik

[Diese Nachricht wurde von larswars am 30. Mrz. 2005 editiert.]

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

---

Hi,
Du könntest dir auch in der Sizzierumgebung mit RMK alle Abhängigkeiten anzeigen lassen und diese dann mit einem Auswahlrahmen (Ziehen mit gedrückter Maustaste) die dementsprechenden Elemente wählen und löschen. Aber Vorsicht! Löscht natürlich auch Grafikelemente. 

Andreas

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

---

Alle Constraints löschen? Oh,oh,oh.
Spätestens wenn die Koinzidenz-Constraints weg sind, wird er das wohl übelnehmen, der Erfinder ..

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

---

Zitat:

---

Original erstellt von W. Holzwarth:
[b]Alle Constraints löschen? Oh,oh,oh.
Spätestens wenn die Koinzidenz-Constraints weg sind, wird er das wohl übelnehmen, der Erfinder ..[/B]

---

Jau, da ist dann Neuzeichnen die schnellere Methode.

Andreas

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

---

Danke vorerst für die schnellen Antworten. Was ich eigentlich möchte ist folgendes:

Ich habe mit hilfe des Macros "3D Text" einen Text auf eine Fläche gelegt (für ein Datenschild). Um diesen Text nicht extrudieren zu müssen (aus Performancegründen) und aber diesen trotzdem in der 2D Ableitung UND in der Baugruppe zu sehen, habe ich diese Weg gewählt  (Leider kann man Textblöcke und Decals einer Skizze in der IDW mit "Get Model Sketches" nicht abrufen  ). Nur wird die ganze Geschichte durch die vielen Constraints sehr sehr langsam  . Drum dachte ich mir einfach die einfach alle Constarints löschen, nur wie???

@Holzwarth: Ist das bei unverbrauchte Skizzen wirklich so schlimm, wenn die coincident Beziehungen weg sind? Ich könnte ja anschließend die ganze Skizze mit fix einfrieren, oder? 

LG Andi

------------------
Das Maß aller Dinge:
6 Zylinder - 4 Ringe!

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

---

Skizze fixieren? Jawoll, kann man machen

Übrigens hat Dein Nick etwas mit diesem Thread zu tun?

Andreas

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

---

O Herr, vergib mir.
Ich hab' mir das grad mal angeschaut, mit ein paar Testbuchstaben. Das wimmelt ja geradezu von Constraints und Linienelementen.

Kannste denn Dein Schild nicht rasch als SAT exportieren und wieder einlesen?

Noch zu den Skizzen ohne Koinzidenz-Constraints:
Ich habe mal versuchsweise für einen Buchstaben sämtliche Koinzidenzen entfernt. Danach ist dieser Bereich der Skizze für Extrusionen nicht mehr anwählbar.

[Diese Nachricht wurde von W. Holzwarth am 30. Mrz. 2005 editiert.]

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

---

vielevieleconstraints.gif

Hab das mit den SAT Export schon probiert, leider sind dann alle unverbrauchten Skizzen weg.

Wenn die coincident Beziehungen weg sind, wäre in meinem Fall egal, da ich ja sowieso keine Extrusion mit der Skizze machen möchte.

Ich bilde mir ein, Mal gelesen zu haben, dass es ein Makro geben soll, dass alle constraints auf einmal löscht, weiß aber beim besten Willen nicht mehr wo.  (Könnte aber auch Einbildung gewesen sein, oder ich hab das mit was anderem verwechselt)

Anbei ein Bild wie's da mit den constraints abgeht! 

LG Andy

------------------
Das Maß aller Dinge:
6 Zylinder - 4 Ringe!

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

---

konst_losch.zip

Hallo!

die BAS Datei in den VBA Editor einlesen (Datei > importieren) und dann ausführen und die abhängigkeiten sind weg.

VBA Code von Kent Keller von mir leicht modifiziert!

Verwendung von BAS-Dateien ist auch hier erklärt.

------------------
Grüsse
Jürgen
www.inventor-faq.de
Autodesk Inventor Certified Expert

[Diese Nachricht wurde von invhp am 30. Mrz. 2005 editiert.]

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

---

vielevieleconstraints1.gif vielevieleconstraints2.gif

Hatte heute einen Geistesblitz  , wie man die vielen constraints einer Skizze (bei einem 3D Text zum Beispiel) am schnellsten löscht. Einfach alle constraints einblenden die Skizze um 90 Grad drehen, mit einem Fenster alle constraints markieren und löschen. 

So einfach kann's gehen! 

------------------
Das Maß aller Dinge:
6 Zylinder - 4 Ringe!

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

---

nicht schlecht 

------------------
Grüße von Harry

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

---

  Boah, Eyy!  

Das war wirklich eine Eingebung!
Man lernt nie aus.

------------------
lg      
Tom

...so geht mein Boot manchmal unter...

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

---

Genial einfach ... einfach genial !!!

Darauf muss man aber erstmal kommen, auch wenn es so naheliegend scheint.
Das zeigt wieder einmal mehr, dass man die Dinge von mehreren Seiten betrachten sollte. 

------------------
Michael Puschner
Autodesk Inventor Certified Expert
Scholle und Partner GmbH

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

---

Hallo Andi,

is ja toll! Wirklich eine geniale Lösung!
Dies fällt ja schon unter die Kategorie, so einfach das es eine weile dauert um darauf zu kommen! 

------------------
Fg Mario

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

---

Zitat:

---

Original erstellt von invhp:
Hallo!

die BAS Datei in den VBA Editor einlesen (Datei > importieren) und dann ausführen und die abhängigkeiten sind weg.

VBA Code von Kent Keller von mir leicht modifiziert!
...

---

Hi Jürgen,

so richtig geht das Programm aber noch nicht - bei mir jedenfalls läuft es immer wieder in eine Fehlermeldung  .
Dabei habe ich ein Teil mit nur einer einzigen Extrusion von einem Rechteck 

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

So - jetzt habe ich das Moped noch mal auf die Bühne geschoben:

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Public Sub ConstraintsLoeschen()
' Löscht alle Constraints in allen Skizzen eines PartDocuments

' (c) Kent Keller modifiziert von invhp und LBCAD

Dim oPartDoc As partDocument
Set oPartDoc = ThisApplication.ActiveDocument
Dim oSketch As sketch
Dim oSketchEntity As SketchEntity
Dim oSketchEntityConstraint As SketchConstraintsEnumerator

Dim i As Integer

For Each oSketch In oPartDoc.ComponentDefinition.Sketches
    For Each oSketchEntity In oSketch.SketchEntities
        For i = oSketchEntity.Constraints.Count To 1 Step -1
           
            Select Case oSketchEntity.Constraints(i).Type
           
            Case Is = kCoincidentConstraintObject
                'Ties a sketch point to any other sketch entity.
                oSketchEntity.Constraints(i).Delete
               
            Case Is = kCollinearConstraintObject
                'Makes a line or the specified axis of an ellipse collinear to another line or ellipse axis.
                oSketchEntity.Constraints(i).Delete
               
            Case Is = kConcentricConstraintObject
                'Makes a circle, arc, ellipse, or elliptical arc concentric to another circle, arc, ellipse, or elliptical arc.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kEqualLengthConstraintObject
                'kMakes two lines equal in length
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kEqualRadiusConstraintObject
                'Makes the radius of a circle or arc equal to another circle or arc.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kHorizontalAlignConstraintObject
                'Makes two sketch points align along the same horizontal axis. In other words, the two sketch points will have the same Y coordinate value.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kHorizontalConstraintObject
                'Causes a lines or the specified axis of an ellipse to be horizontal.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kMidpointConstraintObject
                'Causes a sketch point to be positioned at the midpoint of a line.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kOffsetConstraintObject
                'Makes four entities behave in a way where two are the result of offsetting from the other two.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kParallelConstraintObject
                'Makes a line or the specified axis of an ellipse parallel to another line or ellipse axis.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kPatternConstraintObject
                'Defines the relationship between entities that were the result of creating a pattern.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kPerpendicularConstraintObject
                'Makes a line or the specified axis of an ellipse perpendicular to another line or ellipse axis.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kSplineFitPointConstraintObject
                'Defines the connection between a spline and the sketch points it is tied to.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kSymmetryConstraintObject
                'Causes two sketch entities of the same type to be symmetric about a line.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kTangentSketchConstraintObject
                'Causes two sketch entities to be tangent to each other.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kVerticalAlignConstraintObject
                'Makes two sketch points align along the same vertical axis. In other words, the two sketch points will have the same X coordinate value.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kVerticalConstraintObject
                'Causes a lines or the specified axis of an ellipse to be vertical.
                oSketchEntity.Constraints(i).Delete
           
            Case Is = kGroundConstraintObject
                'Causes any sketch entity to be fully constrained.
                oSketchEntity.Constraints(i).Delete
           
            Case Else
            End Select
           
        Next i
    Next oSketchEntity
Next oSketch

End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Ich hoffe es hilft. Man kann jetzt auch aucwählen, welche Constraints gelöscht werden sollen. Dazu einfach die entsprechende Zeile auskommenieren.

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

Hallo Zusammen,

warum einfach machen wenn's kompliziert auch geht ?

Hier die einfache variante:

Private Sub delAllConstraints()

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication

  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument
  If oDoc.SketchActive = True Then

  Dim oSketch As PlanarSketch
  Set oSketch = oDoc.ActivatedObject
 
  Dim oConsts As GeometricConstraints
  Set oConsts = oSketch.GeometricConstraints
 
  Dim oConst As GeometricConstraint
   
  For Each oConst In oConsts
   
    On Error Resume Next
    Call oConst.Delete
 
  Next oConst
 
End If

End Sub

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Sei ehrlich Paul - das macht ganz ein wenig was anderes - oder ...

Trotzdem ich bin ja immer froh, wenn ich Dich ein wenig aus der Reserve locken kann 

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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