---

Hallo an alle 

Gibt es bei Inventor eine möglichkeit in einer Skizze alle Linien eines Typs auf einmal auszuwählen?
Also das ich zum Beispiel alle Konstruktions- oder Mittellinien in einer Skizze auf einmal auswähle und dann löschen kann.

------------------
Mit freundlichen Grüßen

Chris

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

---

Moin!

Ich glaube nicht.

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

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

---

Hallo

Geht im Standard nicht, aber man könnte sich mit ein paar Makros behelfen. Mal als Beispiel:

Code:

---

Private Sub select_constructionlines()

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim oSketch As Sketch
Set oSketch = ThisApplication.ActiveEditObject

Dim oColl As ObjectCollection
Set oColl = ThisApplication.TransientObjects.CreateObjectCollection

Dim oSketchEntity As SketchEntity

If oDoc.SelectSet.Count > 0 Then
    oDoc.SelectSet.Clear
End If

For Each oSketchEntity In oSketch.SketchEntities
    If oSketchEntity.Construction = True Then
        Call oColl.Add(oSketchEntity)
    End If
Next

Call oDoc.SelectSet.SelectMultiple(oColl)

End Sub

---

oder

Code:

---

Private Sub select_centerlines()

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim oSketch As Sketch
Set oSketch = ThisApplication.ActiveEditObject

Dim oColl As ObjectCollection
Set oColl = ThisApplication.TransientObjects.CreateObjectCollection

Dim oSketchEntity As SketchEntity

If oDoc.SelectSet.Count > 0 Then
    oDoc.SelectSet.Clear
End If

For Each oSketchEntity In oSketch.SketchEntities
    If TypeOf oSketchEntity Is SketchLine Then
        If oSketchEntity.Centerline = True Then
            Call oColl.Add(oSketchEntity)
        End If
    End If
Next

Call oDoc.SelectSet.SelectMultiple(oColl)

End Sub

---

------------------
MfG
Ralf

[Diese Nachricht wurde von rkauskh am 23. Okt. 2013 editiert.]

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

---

Vielen Dank.
Ich werde es gleich mal ausprobieren. ^^

Ich hätte nicht gedacht, das gleich wer mit nem Makro um die Ecke kommt. Dieses Forum ist der Hammer!

------------------
Mit freundlichen Grüßen

Chris

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