---

Hi,
diesmal steh ich im Wald der Konstanten.
Ich habe eine senkrechte Linie, nun kommt eine weitere linie dazu.
Der startpunkt diese linie soll auf der senkrechten Linie liegen aber nicht mit deren eigenpunkten verbunden sein.
bisher hab ich nur Konstanten für Start-, Mittel- und Endpunkte gefunden.
Nun die Frage wie lautet die Konstant für die Beziehung "Punkt auf linie"?

MfG
AMG

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

---

Servus AMG,

Vorschlag von mir: einfach zwei Linien im Draft zeichnen und dann erst ausrichten:

    Dim seApp As SolidEdgeFramework.Application
    Dim seDraft As SolidEdgeDraft.DraftDocument
    Dim seLinie1 As SolidEdgeFrameworkSupport.Line2d
    Dim seLinie2 As SolidEdgeFrameworkSupport.Line2d
    Set seApp = GetObject(, "SolidEdge.Application")
    Set seDraft = seApp.ActiveDocument
    Set seLinie1 = seDraft.ActiveSheet.Lines2d.Item(1)
    Set seLinie2 = seDraft.ActiveSheet.Lines2d.Item(2)
   
   
    Dim seRelation2D As SolidEdgeFrameworkSupport.Relation2d
   
    Set seRelation2D = seDraft.ActiveSheet.Relations2d.AddPointOn(seLinie1, igLineEnd, seLinie2)
   
    Set seLinie1 = Nothing
    Set seLinie2 = Nothing
    Set seDraft = Nothing
    Set seApp = Nothing

Jürgen

------------------
54* SEV15SR8, 4*SEV16.00.01.03

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

---

Moin,

sollte:  Relations.AddPointOn(LineA,igLineEnd,LineB)  sein

Klaus

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

---

Hi,

besten Danke.
Ihr seid großartig. :-)

bis die Tage
AMG

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