---

offset.jpg

Hallo Forum,

ich habe ein Problem mit Linien die mit dem Befehl "offset" versetzt wurden.
Aus dem beigefügten Bild kann man mein Problem erkennen. Nach dem ich die Linie2 versetzt habe möchte ich diese bis zur Linie1 stutzen.

Der Befehl "IntersectWith(...)" funktioniert leider nicht. Da ein Objekt vorausgesetzt wird. Die mit dem Befehl "Offset" versetzten Linien haben aber den Datentyp "Variant".
Im Lokalfenster sehe ich zwar die Koordinaten der versetzten Linie, aber ich komm einfach nicht daran (Objekt fehlt).

Im Forum habe ich keine schlüssige Lösung für mein Problem gefunden.
Hat jemand eine Idee? Danke schon mal im voraus.

Nachfolgend noch mein Code:

Sub Versetzten()
    Dim GewähltesObjekt As Object

    Dim Linie1(3) As Double
    Dim Linie2Obj As AcadLWPolyline
    Dim Datenfeld() As Double
       
    Dim VersetzteLinie As Variant
    Dim Abstand As Double
       
       
    ThisDrawing.Utility.GetEntity GewähltesObjekt, PickedPoint, "Linie 1 wählen:"
    'Linie ausgewählt
    Datenfeld = GewähltesObjekt.StartPoint
    Linie1(0) = Datenfeld(0)
    Linie1(1) = Datenfeld(1)
    Datenfeld = GewähltesObjekt.EndPoint
    Linie1(2) = Datenfeld(0)
    Linie1(3) = Datenfeld(1)
   
    ThisDrawing.Utility.GetEntity GewähltesObjekt, PickedPoint, "Linie 2 wählen:"
    Datenfeld = GewähltesObjekt.Coordinates

    Set Linie2Obj = ThisDrawing.ModelSpace.AddLightWeightPolyline(Datenfeld)

     
     
    Abstand = 1.2
    VersetzteLinie = Linie2Obj.Offset(-Abstand)

    'Gedoppelte Linie2 löschen
    Linie2Obj.Delete
End Sub

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

---

Ganz einfach kann man nach dem Offset wohl das zuletzt erzeugte Objekt in der Zeichnungsdatenbank erfragen.

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Danke für den Tipp,

durch:
    Dim CrEnt As AcadEntity
    Set CrEnt = ModelSpace.Item(0)
    Datenfeld = CrEnt.Coordinates

komm ich schon mal an die Daten.
Das mit dem Stutzen werde ich morgen angehen.

10  für Sie Herr Hübner

Gruß Sarotti

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

---

Hallo Sarotti,

Warum arbeitst du denn nicht mit deiner Variable "VersetzteLinie" weiter? Da ist doch das Objekt, welches du stutzen willst.
Du kannst ausserdem den Kram mit Line2Obj weglassen, wenn du die Zeile

VersetzteLinie = Linie2Obj.Offset(-Abstand)

wie folgt änderst:

VersetzteLinie = GewähltesObjekt.Offset(-Abstand)

Empfehlen würde ich dir noch, das du bei den Abfragen der Objekte noch eine Fehlerabfrage einbaust, da du sonst bei den falschen Objekten eine Fehlermeldung / Abbruch des Makros bekommst.

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 17. Aug. 2006 editiert.]

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

---

Hallo zusammen,

ich habe es geschafft. Danke nochmals für Eure Hilfe!
Ich habe den nachfolgenden Code auf das wesentliche beschränkt.
Also keine Fehlerabfangung, wie Carsten schon richtig bemerkt.

Sub Versetzten()
    Dim Linie1Obj As Object
    Dim Linie2Obj As Object
    Dim Datenfeld() As Double
       
    Dim VersetzteLinie As Variant
    Dim Abstand As Double
    Dim intPoints As Variant
       
    ThisDrawing.Utility.GetEntity Linie1Obj, PickedPoint, "Linie 1 wählen:"
   
    ThisDrawing.Utility.GetEntity Linie2Obj, PickedPoint, "Linie 2 wählen:"

    'Versetzte Linie erzeugen
    Abstand = 1.2
    VersetzteLinie = Linie2Obj.Offset(-Abstand)
   
    'Versetzte Linie stutzen
    'Die zu letzt erzeugte versetzte Linie wird dem Objekt CrEnt zugewiesen
    Dim CrEnt As AcadEntity
    Set CrEnt = ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
    intPoints = Linie1Obj.IntersectWith(CrEnt, acExtendBoth)
    Datenfeld = CrEnt.Coordinates
    Datenfeld(0) = intPoints(0)
    Datenfeld(1) = intPoints(1)
    CrEnt.Coordinates = Datenfeld
End Sub

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