---

Hallo,

Ich bin gerade dabei ein vba-Programm innerhalb von Catia zu schreiben.
da möchte ich innerhalb des Codes eine 3D-Linie in einem Geoset 1mm dick und gestrichelt machen. zudem will ich noch eine beliebige Farbe per RGP-System zuweißen.

weiß jemand wie man das macht?

hier ein ansatz meines Codes... aber irgendwie will der die linie nicht einfärben (zeigt keinen Fehler und auch keine reaktion an) :-(

.
.
.
        Dim Selection4001 As Selection
        Set Selection4001 = AktuellesPartDocument.Selection
        Selection4001.Clear
        Selection4001.Add HybridShapePointDirectionLine_Hauptentformrichtung
        Selection4001.VisProperties.SetVisibleColor 0, 128, 0, 0
.
.
.

(System: Catia V5R19SP7)

vielen dank schonmal im voraus

Lg Beny

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

---

Hallo!

Das ist einfach:
CATIA.ActiveDocument.Selection.Add Line 'line Selection

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties

visProperties1.SetRealColor 0, 128, 0, 1 'Farbe

visProperties1.SetRealLineType 4, 1 'Line Type

visProperties1.SetRealWidth 4, 1 'Dick Line

------------------
Mit freundlichen Grüßen,
JuPaV

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

---

Hallo,

vielen dank dank dir hab ich das mit dem Code hinbekommen ;-)

anbei der veränderte Code

        Dim Selection4001 As Selection
        Set Selection4001 = AktuellesPartDocument.Selection
        Selection4001.Add HSPtDirLi_HER
        Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
        visProperties1.SetRealColor 0, 128, 0, 1 'Farbe
        visProperties1.SetRealLineType 4, 1 'Line Type
        visProperties1.SetRealWidth 4, 1 'Dick Line
        Selection4001.Clear

MFG

Beny

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