Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor .NET
  Gleiche Bohrungen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Gleiche Bohrungen (1205 mal gelesen)
GeorgK
Mitglied



Sehen Sie sich das Profil von GeorgK an!   Senden Sie eine Private Message an GeorgK  Schreiben Sie einen Gästebucheintrag für GeorgK

Beiträge: 619
Registriert: 06.06.2001

erstellt am: 16. Sep. 2016 10:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

RolandD
Mitglied



Sehen Sie sich das Profil von RolandD an!   Senden Sie eine Private Message an RolandD  Schreiben Sie einen Gästebucheintrag für RolandD

Beiträge: 533
Registriert: 07.01.2005

i7-9700k
32GB DDR4-RAM
Nvidia RTX 2060
SSD 970 m.2
Win10-64 (22H2)
AIP 2020.3
Dell U3417W

erstellt am: 16. Sep. 2016 16:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für GeorgK 10 Unities + Antwort hilfreich

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

GeorgK
Mitglied



Sehen Sie sich das Profil von GeorgK an!   Senden Sie eine Private Message an GeorgK  Schreiben Sie einen Gästebucheintrag für GeorgK

Beiträge: 619
Registriert: 06.06.2001

erstellt am: 20. Sep. 2016 14:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

RolandD
Mitglied



Sehen Sie sich das Profil von RolandD an!   Senden Sie eine Private Message an RolandD  Schreiben Sie einen Gästebucheintrag für RolandD

Beiträge: 533
Registriert: 07.01.2005

i7-9700k
32GB DDR4-RAM
Nvidia RTX 2060
SSD 970 m.2
Win10-64 (22H2)
AIP 2020.3
Dell U3417W

erstellt am: 20. Sep. 2016 16:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für GeorgK 10 Unities + Antwort hilfreich

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

GeorgK
Mitglied



Sehen Sie sich das Profil von GeorgK an!   Senden Sie eine Private Message an GeorgK  Schreiben Sie einen Gästebucheintrag für GeorgK

Beiträge: 619
Registriert: 06.06.2001

erstellt am: 21. Sep. 2016 12:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz