---

Hallo zusammen,

wie kann ich bei einer 2D-Profilskizze zwei kollineare Elemente über API identifizieren?
Es gibt laut Hilfe Object.GetRelatedObject(Index, GraphicObject, Keypoint_Index)
das auf Relation2d anwendbar sein soll, geht aber irgendwie nicht...

Kennt das jemand von euch?
Vielen Dank schon mal und Grüße

Roland

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

---

gaaanz simples beispiel:

    Dim oObj As Object
    Dim lIndex As Long
    Dim x1 as Long
    Dim lKp As Long
    Set mApp = GetObject(, "SolidEdge.Application")
    Set mPart = mApp.ActiveDocument
    '
    ' 2 unconnected lines only
    ' profile environment
    ' colinear, NO other relations
    '
    ' -1337543801 = colinear (igColinearRelation2d)
    ' -280074960 = horizontal (igHorizontalRelation2d)
    ' -83892864  = vertical (igVerticalRelation2d)
    '
    If Abs(mPart.ProfileSets.Item(1).Profiles.Item(1).Relations2d.Item(1).Type) = 1337543801 Then
        Call mPart.ProfileSets.Item(1).Profiles.Item(1).Relations2d.Item(1).GetRelatedObjectCount(lIndex)
        For x1 = 1 To lIndex
            Call mPart.ProfileSets.Item(1).Profiles.Item(1).Relations2d.Item(1).GetRelatedObject(x1, oObj, lKp)
            MsgBox "name=" & x1 & ":  " & oObj.Name & "  Keypoint: " & lKp
        Next
    End If

------------------
Lieber Fehler riskieren als Initiative verhindern (R. Mohn)

[Diese Nachricht wurde von modeng am 14. Jan. 2008 editiert.]

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