Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Farben Bohrungen/Features

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:  Farben Bohrungen/Features (1466 mal gelesen)
BenediktKuepper
Mitglied



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

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 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,

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



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 (21H2)
AIP 2020.3
Dell U3417W

erstellt am: 30. Sep. 2016 20:44    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 BenediktKuepper 10 Unities + Antwort hilfreich

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 Then

Dim 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


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

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 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 BenediktKuepper 10 Unities + Antwort hilfreich


Einfarbentest.zip.txt

 
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 >>)

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