---

Hallo,
ich habe ein Projekt von VB6 nach VB.net konvertiert.

Unter VB6 kann mit diesen Zeilen ein Objekt/Block gewählt werden ...
Dim pickedPoint As Object
Dim pickedPoint As Variant
acadApp.ActiveDocument.Utility.GetEntity ActObj, pickedPoint, "Block wählen (" & BlockName & ")..."

Unter VB.net gibt es den Variant Datentyp ja nicht mehr.
Aber auch z.B. pp(2) as Double funktioniert nicht.
Kann mir jemand einen Tipp  geben, wie ich auch unter VB.net (am besten late binding) ein Objekt wählen kann?

Mit diesen Zeilen bekomme ich einen Fehler.
("Typkonflikt. (Ausnahme von HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))" String

Dim pickedPoint As Object
Dim ActObj As Object

acadApp.ActiveDocument.Utility.GetEntity ActObj, pickedPoint, "Block wählen (" & BlockName & ")..."

Danke für jeden Hinweis...
Manfred Büttner

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

---

Welche Datentypen erwarten den der Methode:

Code:

---

acadApp.ActiveDocument.Utility.GetEntity

---

?

Was ist das eigentlich für eine Methode?
Wenn ich mir deine Variablennamen anschaue handelt es sich um AutoCad, aber das ist nur eine Vermutung.

------------------
Mfg Daniel

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

---

Entschuldigung... ja es handelt sich um AutoCAD.

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

---

Welche Datentypen erwartet die Methode?

------------------
Mfg Daniel

   

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

---

Hallo Manfred,

du kannst doch Object an Stelle von Variant vewenden.
Bei mir geht es z.B. so:

Code:

---

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim PickPtn As Object
        Dim acadDoc As Object
        Dim acadEnt As Object
        acadEnt = New Object
        PickPtn = Nothing
        acadDoc = acadapp.ActiveDocument
        ' GetEntiy erzeugt einen Fehler wenn kein Objekt getroffen wird oder
        ' die EIngabe mit ESC abgebrochen wurde
        Try
            Me.Text = "Entity wählen :"
            AppActivate(acadapp.Caption)
            acadDoc.Utility.GetEntity(acadEnt, PickPtn, Chr(10) & "Select Object: ")

            Me.Text = acadEnt.objectname & "  bei:" & PickPtn(0).ToString & " / " & PickPtn(1).ToString

        Catch
            Me.Text = "Aktion abgebriochen"
        End Try

    End Sub

---

Übrigens gibt es für AutoCAD VBA ein eigenes Forum.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

das war's...  DANKE
acadEnt = New Object

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