---

Hallo an Alle,

bitte schaut euch mal untenstehenden Programtext an.
Warum geht das nicht? ich bekomme die Fehlemeldung: Zuweisung an Datenfeld nicht möglich.
Normalerweise würde ich Varriant für die Punkte verwenden. Aber das möchte ich nicht. Und es muß doch auch einen richtigen Datentyp geben.

Gruß, Theo

Option Explicit
Dim P0(2) As Double
Dim P1(2) As Double
Dim P2(2) As Double
Dim P3(2) As Double
Dim myLayout As AcadBlock

Public Sub Dreieck()
Dim mySolid As AcadSolid

    P0 = ThisDrawing.Utility.GetPoint(, "Erster Punkt:")
    P1 = ThisDrawing.Utility.GetPoint(, "Zweiter Punkt:")
    P2 = ThisDrawing.Utility.GetPoint(, "Dritter Punkt:")
    Set myLayout = ThisDrawing.ActiveLayout.Block
    Set mySolid = myLayout.AddSolid(P0, P1, P2, P2)

    NachUnten mySolid

End Sub

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

---

Dim p1() As Double
p1 = ThisDrawing.Utility.GetPoint()

Er mag lediglich die fixe Grössendimmensionierung nicht.

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

---

Danke, das war die Lösung.
Wo erfährt mann so was? In der Hilfe von ACAD steht das nicht.

Gruß, Theo

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

---

Probieren geht über studieren. 

Nein, viele Funktionen, die ein Datenfeld zurückgeben, mögen es nicht, wenn die Grenzen bereits vorher festgelegt sind. Vor allem dann, wenn diese Funktionen die Grenzen selber dynamisch festlegen wollen

z.B.:

Code:

---

Dim a1() As String
a1 = Split("a b c d e f g", " ")

---

Hier darf man auch nciht vorher schon die Grenzen definieren.

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