---

Hallo Zusammen,
ich habe eine recht einfache Frage, stehe selbst aber irgendwie auf dem Schlauch.
Ich brauche via CATScript die Länge einer betimmten 2D-Linie (Drawing) z.B. "Linie.13"

Grund ich muß eine Abfrage basteln. "wenn die Linie kürzer als 1 mm ist färbe sie Rot ein , anderenfalls lass es bleiben.

Wie gesagt ich brauche nur die Länge der Linie, den Rest bekomme ich hin.

MFG Heiko

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

---

Da das Objekt Line2D über 2 Punkte erzeugt wird, musst du die Länge über den Abstand Start- und Endpunkt errechnen lassen.

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

---

... und wie mach ich das?

ist ein Codebeispiel sehr aufwendig?

Wäre Euch sehr dankbar!!!

MFG Heiko

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

---

Hallo Heiko,

anbei eine Lösung. Es gilt nur für die selber gezeichneten Linien, Drawing geöffnet, auf aktueller Blatt und in der aktuellen Ansicht:

Code:

---

Sub test()
    Dim oActDoc As DrawingDocument
    Set oActDoc = CATIA.ActiveDocument
    Dim oSheet As DrawingSheet
    Set oSheet = oActDoc.Sheets.ActiveSheet
    Dim oSel As Selection
    Set oSel = oActDoc.Selection
    Dim DrwViews As DrawingViews
    Set DrwViews = oSheet.Views
    Dim oView As DrawingView
    Set oView = DrwViews.ActiveView

    Dim oGeometricElements As GeometricElements
    Set oGeometricElements = oView.GeometricElements

    Dim oGeomElement As GeometricElement
    oSel.Clear
    For Each oGeomElement In oGeometricElements
        If oGeomElement.GeometricType = catGeoTypeLine2D Then
            Dim oStartPoint 'As Point2D
            Dim oEndPoint 'As Point2D
            Set oStartPoint = oGeomElement.StartPoint
            Set oEndPoint = oGeomElement.EndPoint
            Dim adStartPoint(1)
            Dim adEndPoint(1)
            oStartPoint.GetCoordinates adStartPoint
            oEndPoint.GetCoordinates adEndPoint
            Dim dLength As Double
            dLength = Sqr((adEndPoint(0) - adStartPoint(0)) ^ 2 + (adEndPoint(1) - adStartPoint(1)) ^ 2)
            MsgBox (dLength)
            If dLength <= 1 Then
                oSel.Add oGeomElement
            End If
        End If
    Next

    Dim oVisProperties As VisPropertySet
    If oSel.Count2 > 0 Then
        Set oVisProperties = oSel.VisProperties
        oVisProperties.SetRealColor 255, 0, 0, 0
    End If
    oSel.Clear
End Sub

---

Gruß,
Zoltan

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

---

Hallo Zoltan

Vielen Dank für Deine Hilfe.
Funzt Prima

10 Units sind auf dem Weg zu Dir.

Gruß heiko

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