---

Hallo zusammen,

mein heutiges Problem: Ich möchte die grafischen Eigenschaften einer Fläche ändern die selektiert wurde.
Was ich ändern kann ist:
- Farbe der Fläche ändern
- Linientyp der Kanten der Fläche ändern
- Strichstärke der Kanten der Fläche ändern

Was ich  n i c h t  ändern kann ist:
- Farbe der Kanten der Fäche

Wie geht das? Hier ein Auszug aus meinem bisherigen Code (VB.NET 2005):

Code:

---

    Dim oActiveDocument As INFITF.Document
    Dim oSelection As INFITF.Selection
    Dim oVisPropertySet As INFITF.VisPropertySet
    Dim iInheritance As Integer
    oActiveDocument = oCATIA.ActiveDocument
    oSelection = oActiveDocument.Selection
    oVisPropertySet = oSelection.VisProperties
    iInheritance = 0
    oVisPropertySet.SetRealColor(255, 0, 0, iInheritance) 'Farbe der Fläche ändern klappt
    oVisPropertySet.SetRealWidth(3, iInheritance) 'Strichstärke der Kanten der Fläche ändern klappt
    oVisPropertySet.SetRealLineType(6, iInheritance) 'Linentyp der Kanten der Fläche ändern klappt

---

Im Eigenschaftsfenster von CATIA kann ich die Farbe der Kanten manuell ändern, dann müßte das doch auch per Code gehen - so zumindest meine Hoffnung.

Thomas

------------------
Brauchen Sie Hilfe, sind Sie in Not? Wir retten Sie mit unserem Code!
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |             kontakt@schuler-da.de        
----------------------------------------------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
(John Osborne 1929 - 1994)

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

---

Dialog.gif

Hallo zusammen,

vielleicht habe ich mich etwas unverständlich ausgedrückt, deshalb hier nochmal kurz mein Problem. Ich möchte von einer ausgewählten Fläche die Farbe der Kanten ändern. Ich habe keine Eigenschaft gefunden, wo ich die Farbe der Kanten auslesen kann noch einen Befehl um die Farbe zu setzen. Kennt jemand von Euch die Lösung? Über die visuellen Eigenschaften der Selektion kann ich alle anderen Werte auslesen wie im Bild dargestellt, nur eben nicht die Farbe der Kanten.

Hier mal noch der Eigenschaftsdialog von CATIA in dem man das alles manuell einstellen kann.

Thomas

------------------
Brauchen Sie Hilfe, sind Sie in Not? Wir retten Sie mit unserem Code!
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |             kontakt@schuler-da.de        
----------------------------------------------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
(John Osborne 1929 - 1994)

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

---

hmm

Dim Properties As VisPropertySet
Set Properties = Selektion.VisProperties
Properties.SetRealColor 255,255,0,0

versuch hier mit was

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