Autocad VBA - Create Square

Question

Ich versuche, ein einfaches Quadrat in AutoCAD mit VBA zu machen, aber wenn ich versuche, meinen Code auszuführen, bekomme ich einen "Out of Range" -Fehler? Jede Hilfe wäre großartig!

Sub box() 
'Link the Exel File to the open CAD File' 
'If no CAD file open it does create one' 
'----------------------------------------------------------------' 
Dim ACAD As AcadApplication 'Create ACAD variable of type AcadApplication 
On Error Resume Next 'This tells VBA to ignore errors 
Set ACAD = GetObject(, "AutoCAD.Application") 'Get a running instance of the class AutoCAD.Application 
On Error GoTo 0 'This tells VBA to go back to NOT ignoring errors 
If ACAD Is Nothing Then 'Check to see if the above worked 
    Set ACAD = New AcadApplication 'Set the ACAD variable to equal a new instance of AutoCAD 
    ACAD.Visible = True 'Once loaded, set AutoCAD® to be visible 
End If 
ACAD.ActiveDocument.Utility.Prompt "Hello from Excel!" 'Print a message to the AutoCAD® command line 

Dim squareObj As Acad3DSolid 
Dim center(0 To 2) As Double 

center(0) = 10 
center(1) = 10 
center(2) = 0 

Set squareObj = ACAD.ActiveDocument.ModelSpace.AddBox(center, 2, 2, 0) 

End Sub 

Answer 1

Von Autodesk

https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-ActiveX/files/GUID-DE469E81-8531-415C-9D22-7041A42838DD-htm.html

RetVal = object.AddBox(Origin, Length, Width, Height) 

Die Höhe der Box. Muss eine positive Zahl sein, da es so aussieht, als würde AutoCAD keinen 3D-Körper mit Nullhöhe erzeugen.