AutoCad - Abrir Archivo dwg. con lisp en CAD2000i

Estimados e estado tratando de abrir un archivo .dwg con esta rutina peroa mi no me carga y a SpeeCAD si, tenemos versiones diferentes de CAD, pueden revisar o enviarme algun rutina que tengan.
Esta es la Rutina:
(defun c:abrirarch (/)
(setvar "cmdecho" 0)
(setq almacenar_var (getvar "filedia"))
(setvar "filedia" 0)
(setq buscar_arch (findfile "c:\\prueba.dwg"))
(if (= buscar_arch nil)
(alert
"Archivo no ha sido encontrado\no se encuentra en otro Directorio"
)
(command "open" buscar_arch)
)
(setvar "filedia" almacenar_var)
(setvar "cmdecho" 1)
)
(princ)

creen un archivo prueba.dwg y guardenlo en C: y me cuentan.

Hola Víctor.

Yo tengo el AutoCAD 2000i y la forma en que abro un archivo *.dwg lo defino en acad.mnu de la siguiente manera.

[->DibujosDWG]
[Dibujos](Command "vbastmt" (strcat "AcadApplication.Documents.Open" (chr 34) "C:/DibujosDWG/Lista1/Figura1a" (chr 34)))

Espero y te sirva de algo.

Saludos desde Chihuahua,México. :o)

Estimada Amiga, muchas muchas Gracias