---

Liebes Forum,

offensichtlich mache ich einen Fehler bei der Benutzung der
InterSectWith-Methode. Ich bitte euch um eure Hilfe.

Problembeschreibung
----------------------
Ich habe eine Zeichnungsdatei, die in Autocad 2004 erstellt
und im Autocad2000-Format gespeichert wurde. In dieser
Datei befinden sich zwei 3DSolids (Acad3DSolid).

Eines der Solids ist grün (3), das andere weiß (256). Ich ziehe
um die Solids eine Region auf, um später durch die Region
(ActiveSelectionSet) zu iterieren (mit VB6, resp. via Active-X).

Code
-----
Option Explicit

Private Sub cmd_Click()

    Dim oAutocad As Object
    Dim oDoc As Object
    Dim oASSet As Object
    Dim o3DSolid1 As Object
    Dim o3DSolid2 As Object
    Dim intPoints As Variant
    Dim lngI As Long
   
    Set oAutocad = GetObject(, "AutoCAD.Application")
    Set oDoc = oAutocad.ActiveDocument
    Set oASSet = oDoc.ActiveSelectionSet

    For lngI = 0 To oASSet.Count - 1
        If oASSet.Item(lngI).Color <> 256 Then
            Set o3DSolid1 = oASSet.Item(lngI)
        ElseIf oASSet.Item(lngI).Color = 256 Then
            Set o3DSolid2 = oASSet.Item(lngI)
        End If
    Next lngI
    intPoints = o3DSolid1.IntersectWith(o3DSolid2, acExtendNone)
End Sub

Fehlermeldung
---------------
Nachdem die Prozedur aufgerufen wird erscheint folgende Fehler-
meldung: Die Methode IntersectWith für das Objekt IAcad3DSolid ist fehl-
geschlagen"

Ich danke euch schon jetzt für die Hilfe!
Stefan

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

---

Hi Stefan,

du machst da im Prinzip wohl nichts falsch, es ist nur so, dass sich 3DSolids einfach jeglicher Bearbeitung entziehen (ausser Verschieben usw.)

Die 3DSolids erben zwar von ihrer Base Class die Methode IntersectWith, aber wirklich implementiert ist die Methode nicht. Das 'Fehlschlagen' ist also kein Fehler, sondern so programmiert.

Abgesehen davon kann man das Ergebnis auch gar nicht mit Punkten erfassen: SchnittPUNKTE gibt es nur bei geraden und krummen Kurvenobjekten.

Gruß, Axel Strube-Zettler 

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze

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

---

Hi Axel!

Ich danke Dir vielmals für Deine Antwort. Ich bin zwar beruhigt, dass
ich keinen Fehler gemacht habe, aber jetzt stellt sich die Frage, wie
ich das Problem löse...

Überraschend ist, dass der _intersect Befehl in der Autocacd "Kommando
zeile" bestens funktioniert. Das Problem muss also in VBA zu suchen
sein. Vielleicht liegt hier auch eine Lösung...

Die 3D-Volumenkörper nehmen in Autocad ja ohnehin eine Sonderrolle
ein, weil Autodesk sie wohl "outgesourct" hat und selbst keine Ahnung
hat, wie sie eigentlich generiert werden.

Vielen Dank, in jedem Fall!
Stefan

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

---

Der Befehl _Intersect und die Methode curve.IntersectWith sind zwei völlig unterschiedliche Dinge. Das erste ist ein AutoCAD-Befehl zum Erzeugen bzw. Modifizieren von Volumenkörpern, das andere ist eine ActiveX-Methode, um bestimmte Punkte von Curve-Objekten abzufragen.

Dass das zweite bei Volumenkörpern zwar vorhanden, aber nicht implementiert ist, liegt an der Klassenstruktur von AutoCAD. Gemeinsam haben die beiden jedenfalls nur neun Buchstaben, sonst nix. Du kannst auch genausowenig mit _Intersect den Schnittpunkt zweier Linien ermitteln;-)

Gruß, Axel Strube-Zettler

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze

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

---

Hallo, Axel!

Sehr herzlichen Dank für die Aufklärung!

Jetzt bin ich im Bilde. Du weißt nicht nur super Bescheid, sondern
kannst auch gut erklären. Das meine ich ganz ernst!

Merci!
Stefan

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

---

Ich bedanke mich!

Gruß, Axel Strube-Zettler

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze

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