| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | |  | NVIDIA Run:ai RTX PRO Server Promotion, eine Pressemitteilung
|
|
Autor
|
Thema: Farben Bohrungen/Features (1751 / mal gelesen)
|
BenediktKuepper
Mitglied
   Beiträge: 13
Registriert: 12.05.2016 Autodesk Product Design Suite Ultimate 2016 64-Bit-Edition
SP1 Update 1
|
erstellt am: 30. Sep. 2016 11:14  <-- editieren / zitieren -->   Unities abgeben:          
Hallo zusammen, wir nutzen Inventor 2016 und wollen folgendes realisieren. Wenn ein Bauteil erstellt wird, soll beim speichern eine Routine ablaufen, dass Bohrungen durchsucht werden, welche Gewinde sind, welche Bohrungen ohne Passung, welche Bohrungen mit bestimmten Passungen sind. Jede dieser Bohrungen/Gewinde soll eine Farbe zugewiesen bekommen. Beispielsweise: Gewinde: Blau, Bohrungen ohne Passung: Schwarz, Bohrungen mit Passung N7: Gelb Bohrungen mit Passung D9: Grün. Gibt es da schon etwas? Habe leider noch nichts vergleichbares gefunden... Mit freundlichen Grüßen,
Benedikt Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RolandD
Mitglied
Beiträge: 559
Registriert: 07.01.2005 i7-9700k
32GB DDR4-RAM
Nvidia RTX 2060
SSD 970 m.2
Win10-64 (21H2)
AIP 2020.3
Dell U3417W
|
erstellt am: 30. Sep. 2016 20:44 <-- editieren / zitieren --> Unities abgeben: Nur für BenediktKuepper 
Hallo Benedikt, schau mal in dem Thread, da geht es auch um Bohrungsanalyse. Du musst alle Bohrungen prüfen und je nach Typ dann die Eigenschaft überschreiben.
Such mal in der API nach HoleFeature.Appearance Property
Code:
'Bohrungen vorhanden? -> einfärben
If oDoc.ComponentDefinition.Features.HoleFeatures.Count > 0 ThenDim hF As PartFeature
Set hF = Nothing
Dim i As Integer For i = 1 To oDoc.ComponentDefinition.Features.HoleFeatures.Count
'Gewinde: blau
Set hF = oDoc.ComponentDefinition.Features.HoleFeatures.Item(i)
If hF.Tapped = True Then 'Gewinde gefunden 'hier dann irgendwie hF.Appearance ändern
'mit deiner Änderung muss hF.Appearance = blau werden End If Next i Call oDoc.Update
MsgBox ("Bohrungen eingefärbt")
End If 'oDoc.ComponentDefinition.Features.HoleFeatures.Count > 0
------------------
Gruß Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| |
Volker E
Mitglied
Konstrukteur
Beiträge: 164
Registriert: 20.08.2012 Win 7 64 bit,
Inventor 2015 Sp2 64 bit
Intel Xeon CPU E5-1607 3,00 GHz 32GB RAM
Nvidia Quadro 4000
Space Explorer
|
erstellt am: 01. Okt. 2016 14:59 <-- editieren / zitieren --> Unities abgeben: Nur für BenediktKuepper
Hallo Benedikt Ist wahrscheinlich von der Automobilbranche abgekuckt.
Aber bei Catia ,NX u. ProE werden die Bohrungseigenschaften intern anders benannt. Schau Dir mal den ScreenShot an. Die Bohrungen hier ein Gewinde werden fortlaufend Nummeriert und bei Mustern weiß ich nicht ob man die Musterung übergehen kann bei catia heist die Bohrung einfach Gewinde ,Senkbohrung ,Planeinsekung usw. dort kann man ein Makro ohne großen Aufwand programmieren. Bei Inventor habe ich so etwas noch nicht gesehen und die ganzen Autodeskverkäufer hätten da auch schon etwas gemacht wenn die Nachfrage groß genug wäre. Machbar ist das bestimmt ist nur dié Frage wie groß ist der Aufwand.Hab Dir mal ein Makro angefügt vielleicht hilft Dir das etwas weiter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de
| 
