---

Hallo zusammen
habe ein für Kenner wahrscheinlich simples Problem. Möchte den Anwender aus einem VB.NET Programm auffordern einen Plazierungspunkt in der Zeichnung zu wählen. Was ich gemacht habe sieht folgendermassen aus :

      Dim insertionPoint(2) As Double
      Dim acadUtl As AcadUtility
      Dim startPnt As Object
      startPnt = acadUtl.GetPoint(, "Plazierungspunkt")
      insertionPoint(0) = startPnt(0) : insertionPoint(1) = startPnt(1) : insertionPoint(2) = 0

bekomme da aber eine Fehlermeldung ->
Objektverweis wurde nicht auf eine Objektinstanz festgelegt

Kann mir jemand sagen, was ich falsch mache ?

Besten Dank

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

---

Hallo,

ich vermute mal, du hast dich noch nicht allzuviel mit .net und Objektarx beschäftigt.

Der Code, den du verwendest, läuft normalerweise unter VBA oder VisualBasic bis Version 6 und benutzt das COM-Objektmodell.

Beispielfunktion für Wrapped Classes:
(Verweise auf acdbmgd.dll und acmgd.dll setzen)

Code:

---

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
    Public Function SelPoint()
        Dim prPointOptions As PromptPointOptions = New PromptPointOptions(vbNewLine + "Punkt auswählen: ")
        Dim prPointRes As PromptPointResult
        Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor

        prPointRes = ed.GetPoint(prPointOptions)
        If prPointRes.Status <> PromptStatus.OK Then
            Return Nothing
        Else
            Return prPointRes.Value
        End If
    End Function

---

Die Werte kannst du dann mit prPointRes.Value.X usw. auslesen.

Alternativ kannst du für deinen Code einen Verweis auf die Datei acax16deu.tlb (Acad2006) oder acax17deu.tlb (Acad2007) einrichten.

------------------
Gruß
Markus

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