[求助][LISP]怎样使autocad运行这段代码。。？

kkai

我是lisp的初学者

请问怎样使AutoCAD运行这段代码，具体的操作步骤是什么？

(defun REGISTEROBJECTDBX (/ DBXSERVER) ;by Tony Tanzillo - Thanks Tony!
  (cond
    ((vl-registry-read
       "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
     )
    )
    ((not (setq DBXSERVER (findfile "AxDb15.dll")))
     (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)")
    )
    (t
     (startapp "regsvr32.exe" (strcat "/s \"" DBXSERVER "\""))
     (or
       (vl-registry-read
  "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
       )
       (alert
  "Error: Failed to register ObjectDBX ActiveX services."
       )
     )
    )
  )
)

alin

load it first then type (REGISTEROBJECTDBX) in command line, then Enter.