---

Hallo zusammen,

wie kann ich gleiche Bohrungen in einem Bauteil auswählen? Der nächste Schritt wäre es diese zu ändern.

Vielen Dank

Georg

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

---

Hallo Georg,
du könntest vielleicht:

1. eine Bohrung markieren lassen (Master)
2. alle Bohrungen prüfen, ob sie die gleichen Parameter haben, wie der Master
  wenn JA - zu Selection hinzufügen
3. für den Master den Bohrungsdialog aufrufen
4. überprüfen, welche Parameter am Master im Bohrungsdialog verändert wurden
5. die gleichen Parameter für alle Bohrungen der Selection ändern

------------------
Gruß Roland

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

---

Hallo Roland,

das wäre im Prinzip genau das was ich suche. Nur wie kann ich am besten die Bohrungen vergleichen?

Grüße

Georg

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

---

Hallo Georg,

du musst die oDoc.ComponentDefinition.Features.HoleFeatures auswerten.
Siehe Beispiel, da blende ich vor dem Erzeugen des DXF die Senkungen aus (und stelle sie später wieder her).
Setz dir mal einen Haltepunkt nachdem oDoc definiert ist und schau dir die Struktur der HoleFeatures an.

Code:

---

Sub DXF_Senkungen()
Dim oApp As Application
    Set oApp = ThisApplication
    Dim oDoc As Document
    Set oDoc = oApp.ActiveDocument
   
'***** Senkungen für DXF ausblenden
Dim hF As PartFeature
Set hF = Nothing
Dim SenkDur As Double
SenkDur = 0

'Bohrungen vorhanden? -> Senkungen entfernen
If oDoc.ComponentDefinition.Features.HoleFeatures.Count > 0 Then
    '1. Werte merken
    Dim i As Integer
   
    '2. SenkDur = BohrungsDur setzen
    For i = 1 To oDoc.ComponentDefinition.Features.HoleFeatures.Count
        'Bohrungstiefe "bis" abfangen (sonst wird die Bohrung ganz ausgeblendet)
        If oDoc.ComponentDefinition.Features.HoleFeatures.Item(i).ExtentType = kToExtent Then
            Dim BohrName As String
            BohrName = oDoc.ComponentDefinition.Features.HoleFeatures.Item(i).Name
            MsgBox ("Fehler in Bohrung " & BohrName & vbLf & vbLf & "Bohrungstiefe ist **bis** angegeben")
            Exit Sub
        End If
       
        Set hF = oDoc.ComponentDefinition.Features.HoleFeatures.Item(i)
        If hF.HoleType = HoleTypeEnum.kCounterSinkHole Then  '21506
            SenkDur = hF.CSinkDiameter.Value
            hF.CSinkDiameter.Value = hF.HoleDiameter.Value
        End If

        If hF.HoleType = HoleTypeEnum.kCounterBoreHole Then  '21507
            SenkDur = hF.CBoreDiameter.Value
            hF.CBoreDiameter.Value = hF.HoleDiameter.Value
        End If
    Next i

    Call oDoc.Update
    MsgBox ("Senkungen ausgeblendet")
End If 'oDoc.ComponentDefinition.Features.HoleFeatures.Count > 0

End Sub 'DXF_Senkungen

---

------------------
Gruß Roland

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

---

Hallo Roland,

vielen Dank für das Beispiel.

Werde es mir heute anschauen.

Georg

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