Guten Tag,
der folgende Codeschnipsel
Sub test()
Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double
Dim LineObj As AcadLine
startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
endPoint(0) = 30: endPoint(1) = 20: endPoint(2) = 0
Set LineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
End Sub
funktioniert wie erwartet auf in meinen 32-bit-AutoCAD-Versionen 2008, 2009 und 2010 (WINDOWS XP Prof., 32 bit). Nun habe ich mir einen neuen Rechner mit WINDOWS Vista 64 bit zugelegt und auch die 64bit Versionen von AutoCAD 2008, 2009 und 2010 installiert. In AutoCAD 2010 funktioniert alles bestens, in den beiden älteren Versionen hingegen produziert die Zeile „Set LineObj = …“ einen Laufzeitfehler: „Laufzeitfehler ‚-2145386390 (8020006a)‘: Keine Datenbank“. Was muß ich am Code ändern, damit VBA auch in den 64bit-Versionen von ACAD 2008 und 2009 funktioniert. Danke im Vorab für Eure Bemühungen Cadder