Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  API Solidworks Featuretyp automatisch färben

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 SOLIDWORKS
  
PLM TechnologieForum Bamberg
Autor Thema:  API Solidworks Featuretyp automatisch färben (737 mal gelesen)
Selfowned
Mitglied



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

Beiträge: 10
Registriert: 09.03.2020

SolidWorks2017 Professional

erstellt am: 28. Mai. 2020 16:12    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 CAD-Gemeinde,

ich hätte mal eine Frage, um bei der Konstruktion Zeit zu sparen.

In unserer Firma haben wir die Norm,

Bohrungen gelb
Gewinde grün
gefräste Oberflächen rot (linear ausgetragener Schnitt)

zu färben. Es ist natürlich recht zeitinsiv die einzelnen Farben über Drag and Drop  bzw. mit markieren und Rechtsklick einzufärben. Deshalb besteht für mich die Frage, ob es möglich ist beim Erstellen eines bestimmten Features die Farbe der Featurefläche direkt einzufärben. Alternativ gibt es bestimmt auch eine Möglichkeit die Features im nachhinein mit einer Wenn-Feature A dann Fläche des Features=RGB (255,0,0) etc. Leider bin ich im Internet nicht fündig geworden außer folgenden Code:

Sub main()
    On Error Resume Next
   
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swSelMgr As SldWorks.SelectionMgr
 
    Dim swFaces As New Collection
    Dim swFace As SldWorks.Face2
    Dim vFaceProp As Variant
    Dim bRet As Boolean
    Dim i As Integer
     
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager
    Set swFace = swSelMgr.GetSelectedObject5(i)
 
     
    Count = swSelMgr.GetSelectedObjectCount2(-1)
 
    ' zuerst mal abfragen, ob überhaupt was selektiert war
    If Count < "1" Then
    Call MsgBox("Keine Fläche markiert!", vbOKOnly + vbExclamation, "                  INFORMATION      ")
        End
    End If
 
    ' dann die Schleife über alle selektierten Objekte und diese merken
    For i = 1 To Count
        ' das nächste selektierte Objekt holen
        ' und überprüfen on es eine Fläche ist
        If swSelMgr.GetSelectedObjectType(i) = swSelFACES Then
            Set swFace = swSelMgr.GetSelectedObject5(i)
            ' und in derCollection merken
            swFaces.Add swFace
        End If
    Next i
 
    ' und nacheinander alle gemerkten Flächen wieder selektieren
    ' und mit den gewünschten Materialproperties versehen
    For Each swFace In swFaces
        swFace.Select False
        bRet = swModel.SelectedFaceProperties(RGB(0, 255, 0), (1), (1), (1), (0.3), (0), (0), False, "")
    Next

    ' die vorhandene Selektion vergessen
    swModel.ClearSelection2 True

End Sub


Dabei werden alle markierten Flächen einer Farbe zugeordnet.(Quelle: http://ww3.cad.de/foren/ubb/Forum2/HTML/019777.shtml)

Vielleicht kann einer mir helfen mit einem Codeansatz bzw. einer Alternative.

Vielen Dank.

Gruß 
Selfi


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

jimi1st
Mitglied
Konstrukteur


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

Beiträge: 24
Registriert: 20.02.2012

erstellt am: 29. Mai. 2020 10:41    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 Selfowned 10 Unities + Antwort hilfreich

Hallo

vll hilft dir das weiter:

[URL=https://forum.solidworks.com/thread/76171][/URL]

------------------


------------------
Form follows f*cking function.

[Diese Nachricht wurde von jimi1st am 29. Mai. 2020 editiert.]

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)2024 CAD.de | Impressum | Datenschutz