---

Screenshot2024-06-25095618.jpg

Hallo Community,

ich benötige mal wieder euere Hilfe 
Ich versuche per VBA Script auf ein ausgewähltes Rauigkeitssymbol (siehe Bild) in einer Zeichnung zuzugreifen.
In der Catia Visual Basic Beschreibung habe ich auch das Objekt Roughness gefunden und wollte in einem kurzem Testcode abfragen ob das Rauigkeitssymbol ausgewählt ist oder nicht.
Leider erkennt er nicht wenn das Symbol ausgewählt ist. Könnt Ihr mir da weiter helfen, wie ich auf das Symbol zugreifen kann?

Vielen Dank schon mal

Nachfolgend noch der kurze Testcode

Liebe Grüße Andy

------------------------------------------------------------------------------------------
Testcode:

Option Explicit
Public drawingDocument1 As DrawingDocument
Public drawingSheets1 As DrawingSheets
Public drawingSheet1 As DrawingSheet
Public drwViews1 As DrawingViews
Public drwView1 As DrawingView
Public USel
Public MyComp As DrawingComponent
Public PosX As Double
Public PosY As Double

Sub CATMain()
Set drawingDocument1 = CATIA.ActiveDocument                'selection active DRW documents
Set drawingSheets1 = drawingDocument1.Sheets                'select all sheets of active DRW documents
Set drawingSheet1 = drawingSheets1.ActiveSheet              'select the first sheet of the active DRW document
Set drwViews1 = drawingSheet1.Views                        'creat a list of all Drawing Views
Set drwView1 = drwViews1.ActiveView                        'selection of the first DrawingView

Dim I As Integer

Set USel = CATIA.ActiveDocument.Selection

For I = 1 To USel.Count
    If USel.Item(I).Type = "Roughness" Then
        MsgBox ("it work")
    Else
        MsgBox ("don't work")
    End If
Next

End Sub

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

---

Servus

AFAIK kann man per Makro nicht auf diese Symbole zugreifen. (maximal per Suche selektieren und löschen)
Lass dir mal den TypeName eines selektierten Oberflächensymbols ausgeben.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

vielen Dank für die Rückmeldung.
Wenn ich mir den USel.Item().Type ausgeben lasse, bekomme ich DrawingView zurück.

Grüße

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