autucad 2004 : getpoint-befehl (vba) (Autodesk/Rund um AutoCAD)

vorwort:
hab die frage schon vbasic-forum gestellt, aber keine antwort bekommen: vielleicht weiß ja hier einer rat...

hallo zusammen,
ich hab seit kurzem autocad 2004 auf arbeit. untenstehender vba-code (ausschnitt)
hat bis jetzt unter 2000 und 2002 problemlos funktioniert. aber unter 2004 bricht
das programm bei der letzten (aufgeführten) zeile ab. kann mit einer sagen warum?
als fehlermeldung kommt:
laufzeitfehler '-2145320928 (80210020)'
benutzereingabe ist ein schlüsselwort

den returnpnt-befehl benutze ich auch in anderen makros, da funktioniert er weiterhin
auch unter 2004 ??? bin ratlos und dankbar für jede hilfe...
gruß jörg

Private Sub CommandButton2_Click()
Dim lineObj1 As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim returnPnt As Variant
Dim farbe1 As Variant
Dim farbe2 As Variant

Dim textObj As AcadText
Dim textString As String
Dim height As Double
Dim insertionPoint(0 To 2) As Double
Dim STEMPEL As AcadLayer
Dim basePoint(0 To 2) As Double
Dim rotationAngle As Double

Set STEMPEL = ThisDrawing.Layers.Add("STEMPEL")
ThisDrawing.ActiveLayer = STEMPEL

breite = (TextBox1)
höhe = (TextBox2)
f = (TextBox3)
If Val(f) < 100 Then
'MsgBox (Val(f))
f = Val(TextBox3 * 100)
End If
If Val(TextBox3) < 500 Then
farbe1 = 2
Else
farbe1 = 1
End If

If Val(TextBox3) = 1000 Then
farbe1 = 5
End If

farbe2 = 3

dx = Val(breite) * Val(f) / 1000
dy = Val(höhe) * Val(f) / 1000
'MsgBox (dx & "/" & dy)
'ZoomAll
Unload Me
MsgBox ("Bitte Ecke unten-links auswählen ")
returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")

------------------
AutoCAD 2002 DEU

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