---

Hallo zusammen,

ich verwende die Funktion IntersectWith um
Linie (Rohrleitung) zu schneiden wenn ich darauf einen
Block (Ventil) platziere.
Ich verwende die Funktion schon in Auotcad 2002, 2004 und 2006.
Jetzt in der Version 2008 gibt es das problem das die Funktion
Intersectwith öfters keine Schnittpunkte ausgibt.  
Manchmal hilft es das man einfach eine Linie neu zeichnet
und darauf dann den Block erneut platziert.
Aber das hilft auch nicht immer.
Block und Linie liegen in der Z-Achse immer auf Null.

Hat jemand von Euch einen Tip woran das Problem liegt.

------------------
Gruß Jörn

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

---

Hi Jörn,

Hast du mal ne Beispiel Zeichnung, wo das der Fall ist?!

Gruß, Carsten

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

---

Beispiel-DWG-Intersect.txt Demo-Intersect.gif

Hallo Carsten.

beiliegend eine GIF wie das auf meinem Rechner aussieht.
Dann die Beispiel DWG (TXT umbenennen in DWG)
und dann nachfolgend der Code dazu.

Sub Inters()

On Error Resume Next
Set ssetObj = ThisDrawing.SelectionSets("IntersectTest")
If Err.Number <> 0 Then
    Set ssetObj = ThisDrawing.SelectionSets.Add("IntersectTest")
End If
On Error GoTo 0
ssetObj.Clear

MsgBox ("Bitte zwei sich schneidende Komponenten wählen")
ssetObj.SelectOnScreen

If ssetObj.Count = 2 Then
    Set oObject1 = ssetObj.Item(0)
    Set oObject2 = ssetObj.Item(1)
   
    intPoints = oObject1.IntersectWith(oObject2, acExtendNone)
    ' Print all the intersection points
    Dim I As Integer, j As Integer, k As Integer
    Dim str As String
    If VarType(intPoints) <> vbEmpty And UBound(intPoints) > -1 Then
        For I = LBound(intPoints) To UBound(intPoints)
            str = "Intersection Point[" & k & "] is: " & intPoints(j) & "," & intPoints(j + 1) & "," & intPoints(j + 2)
            MsgBox str, , "IntersectWith Example"
            str = ""
            I = I + 2
            j = j + 3
            k = k + 1
        Next
    Else
        MsgBox "keine Schnittpunkte"
    End If
End If
End Sub

------------------
Gruß Jörn

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

---

Hallo Jörn,

Sowas habe ich bis jetzt auch noch nicht gehabt. Ich teste das Morgen mal mit ner 2006er Version.
Ich hab mal ein wenig mit Linien und dem Marko herum gespielt. Erstelle ich in AutoCAD eine Linie auf Basis deiner unteren Linie findet er keine Schnittpunkte. Erstelle ich eine Linie mit dem rechten Punkte deiner unteren Linie als Startpunkt und der senkrechten Linie in der Mitte als Endpunkt findet AutoCAD die Schnittpunkte wieder?! 
Ich denke mit der Lösung die Linie neu zu erstellen und die alte zu löschen wirst du am besten fahren. Vielleicht finde ich ja noch etwas.

Gruß, Carsten

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

---

Hallo Carsten,

 

Zitat:

---

Ich denke mit der Lösung die Linie neu zu erstellen und die alte zu löschen wirst du am besten fahren.

---

Das hilft aber nach meinen Erfahrungen nicht, sonst würde ich das gerne übernehmen.

------------------
Gruß Jörn

[Diese Nachricht wurde von yamaha am 18. Feb. 2008 editiert.]

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

---

Hi Jörn,

Im 2006er läuft das Makro ohne Probleme. Ich werde die noch mal was testen, ob es wirklich am 2008er AutoCAD liegt.

Gruß, Carsten

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