| |
| 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 (1218 mal gelesen)
|
GeorgK Mitglied
Beiträge: 619 Registriert: 06.06.2001
|
erstellt am: 16. Sep. 2016 10:31 <-- editieren / zitieren --> Unities abgeben:
|
RolandD Mitglied
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 / zitieren --> Unities abgeben: Nur für GeorgK
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
Beiträge: 619 Registriert: 06.06.2001
|
erstellt am: 20. Sep. 2016 14:49 <-- editieren / zitieren --> Unities abgeben:
|
RolandD Mitglied
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 / zitieren --> Unities abgeben: Nur für GeorgK
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 |
| Technischen Zeichner / Konstrukteur Anlagenplanung Walzwerk (m/w/d) | Wir sind ein smarter unabhängiger Mittelständler, der die Welt des Stahls besser macht. Wir sind die Pioniere der renommierten 3-Walzentechnologie in der internationalen Stahlbranche. Engineering bedeutet bei uns, über das Bestehende hinauszudenken. Seit mehr als sieben Jahrzehnten steht KOCKS rolled® steel für exzellente Güte. Die Kultur bei KOCKS ist weltoffen, kollegial & aufrichtig: ... | Anzeige ansehen | Technischer Zeichner, Bauzeichner |
|
GeorgK Mitglied
Beiträge: 619 Registriert: 06.06.2001
|
erstellt am: 21. Sep. 2016 12:06 <-- editieren / zitieren --> Unities abgeben:
|