---

Hallo, mal wieder,

Heute möchte ich aus einer Function eine AcadLwPolylinie übergeben, irgendwie klappt das nicht.
Kann mir da jemand helfen?

mein Code sieht folgend aus:

Code:

---

    Function GetBaufeld() As AcadLWPolyline
    '
    Dim oPlineUmgrenzung As AcadLWPolyline
    Dim strAusgabe  As String
    Dim oObject As AcadObject
    Dim varPoint As Variant
   
    strAusgabe = "select construction panel boundary"
    ThisDrawing.Utility.GetEntity oObject, varPoint, strAusgabe
    If oObject Is Nothing Then Exit Function
    Select Case oObject.ObjectName
        Case "AcDbPolyline"
            Set oPlineUmgrenzung = oObject
        Case Else
            MsgBox "no acad polyline, select acad polyline", vbInformation, "Information"
            Exit Function
    End Select
    GetBaufeld = oPlineUmgrenzung
End Function

---

Der Fehler liegt bei GetBaufeld = oPlineUmgrenzung
Woran könnte es liegen?

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

http://www.stupidedia.org/stupi/Rechter_Winkel

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

---

Hallo,

Du hast ein Set vergessen. Es muß heißen:

Code:

---

Set GetBaufeld = oPlineUmgrenzung

---

Und auch beim Aufruf brauchst Du das:
Set tObj = GetBaufeld

Grüße
Klaus 

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

---

oh Danke,
beim Aufruf hatte ich das "Set", aber nicht in der Function...aber eigentlich logisch

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

http://www.stupidedia.org/stupi/Rechter_Winkel

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