Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  Feature mit Farbe markieren

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
  
Wie Hersteller von Industrieanlagen Konstruktions- und Entwicklungsherausforderungen mit SOLIDWORKS meistern
Autor Thema:  Feature mit Farbe markieren (1211 mal gelesen)
JFuks
Mitglied



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

Beiträge: 28
Registriert: 20.11.2012

SWX 2019

erstellt am: 20. Feb. 2014 09:07    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,

ich muß ein Makro erstellen, mit welchem ich die Farbe von Featuere ändern kann. Hier habe ich gefunden, wie das bei einer Fläche funktioniert.

http://help.solidworks.com/2012/English/api/sldworksapi/Change_Color_of_Face_Example_VB.htm

Weiß jemand, wie ich das an den Features anpassen kann?

Dankeschön

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

JFuks
Mitglied



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

Beiträge: 28
Registriert: 20.11.2012

SWX 2019

erstellt am: 20. Feb. 2014 09:16    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

Jetzt habe ich das gefunden:

Dim swApp                  As SldWorks.SldWorks

    Dim swModel                As SldWorks.ModelDoc2

    Dim swSelMgr                As SldWorks.SelectionMgr

    Dim swSelData              As SldWorks.SelectData

    Dim swFeat                  As SldWorks.Feature

    Dim swFaceFeat              As SldWorks.Feature

    Dim vFaceArr                As Variant

    Dim vFace                  As Variant

    Dim vFeatColor              As Variant

    Dim swFace                  As SldWorks.Face2

    Dim swEnt                  As SldWorks.Entity

    Dim i                      As Long

    Dim bRet                    As Boolean

   

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swFeat = swSelMgr.GetSelectedObject5(1)

    Set swSelData = swSelMgr.CreateSelectData

   

    Debug.Print "Feature = " + swFeat.name + " [" + swFeat.GetTypeName + "]"

    Debug.Print "  Face count = " & swFeat.GetFaceCount

   

    swModel.ClearSelection2 True

   

    vFeatColor = swModel.MaterialPropertyValues

    vFeatColor(0) = myR 'R

    vFeatColor(1) = myG  'G

    vFeatColor(2) = myB  'B

    vFaceArr = swFeat.GetFaces: If IsEmpty(vFaceArr) Then Exit Sub

    For Each vFace In vFaceArr

        Set swFace = vFace

        Set swEnt = swFace

        Set swFaceFeat = swFace.GetFeature

       

        ' Check to see if face is owned by multiple features

        If swFaceFeat Is swFeat Then

            bRet = swEnt.Select4(True, swSelData): Debug.Assert bRet

            swFace.MaterialPropertyValues = vFeatColor

        Else

            Debug.Print "  Other feature = " & swFaceFeat.name + " [" + swFaceFeat.GetTypeName + "]"

        End If

    Next

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

StefanBerlitz
Guter-Geist-Moderator
IT Admin (CAx)



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

Beiträge: 8756
Registriert: 02.03.2000

SunZu sagt:
Analysiere die Vorteile, die
du aus meinem Ratschlag ziehst.
Dann gliedere deine Kräfte
entsprechend und mache dir
außergewöhnliche Taktiken zunutze.

erstellt am: 20. Feb. 2014 10: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 Nur für JFuks 10 Unities + Antwort hilfreich


26880_featurefarben-dokument.png

 
Hallo JFuks,

falls du nicht die Farber für spezielle Features brauchst sondern anhand der Farbe z.B. den Featuretyp erkennen willst (sprich: alle Biegungen rötbraun, alle Fasen hellgrün, alle Radien dunkelblau usw.) kannst du das auch in den Dokumentoptionen einstellen. Vielleicht ist das für deine Anwendung ja schon ausreichend, dann kannst du das einfach in den Vorlagen einstellen und alle neuen Teile bekommen die Einstellungen automatisch.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

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

JFuks
Mitglied



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

Beiträge: 28
Registriert: 20.11.2012

SWX 2019

erstellt am: 20. Feb. 2014 12:04    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

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