---

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

---

Die Fehlermeldung bedeutet das einer deiner Variablen oder Funktionsnamen gleichzeitig ein bereits vordefinierte Funktion oder Variable ist

Du darfst ihn somit eigentlich selbst nicht überschreiben, da ich selber leider nur Catia progge kannsch dir nciht genau sagen welcher dass ist...da hilft wohl nur trial und error

Ob das nun zwingend der in der letzten Zeile ist wär ich mir auch nicht so sicher...manchmal spuinnt vba da ein bisschen

Mal nebenbei: Bist du sichr das dieses führende Komma in der Klammer vor dem String in der letzten Zeile stimmt? Wundert mich das VB so etwas 8argument fehlt) one zu meckern akzeptiert

------------------
gr33t7 Ronny

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