求教下各位大神，用opendcl和autolisp写的程序，如何在没有装opendcl的电脑上使用

qazw650

autolisp新人，最近在用autplisp和opendcl写一个批量打印的程序练手，，，，程序基本功能都实现了，但是写到最后发现一个严重的问题就是在没有安装opendcl的电脑上无法识别。。。。。之前大神写的"BATCHPLOT"的程序里是导入了"opendcl.arx"的相关文件，但是我导入了这个文件，程序还是没能识别相关的opendcl的函数，，，，，，求各位大神执教一下，，，非常感谢！！！！

qazw650

求各位大神指教

zhoujun518

把OPENDCL的动态库文件“opendcl.arx”一起随文件拷过去，记得区分CAD的版本

附上我写的版本识别代码如下：
;;;若ObjectDCL.arx没有被加载则在此处加载.
(defun ObjectDCL_LoadArx ()
  (vl-load-com)
  (setq acad_version (substr (getvar "acadver") 1 2))
  (cond
    ((= "17" acad_version)
     (progn
       (if (not (member "objectdcl2007.arx" (arx)))
         (arxload "objectdcl2007.arx" "ObjectDCL2007.arx not found.")
       )
       (vl-arx-import "objectdcl2007.arx")
     )
    )
    ((= "16" acad_version)
     (progn
       (if (not (member "objectdcl2004.arx" (arx)))
         (arxload "objectdcl2004.arx" "ObjectDCL2004.arx not found.")
       )
       (vl-arx-import "objectdcl2004.arx")
     )
    )
    ((= "15" acad_version)
     (progn
       (if (not (member "objectdcl2000.arx" (arx)))
         (arxload "objectdcl2000.arx" "ObjectDCL2000.arx not found.")
       )
       (vl-arx-import "objectdcl2000.arx")
     )
    )
    (T
     (progn (print
              "软件不支持当前的AutoCAD版本,目前仅支持ACAD2000---2007版本"
            )
            (exit)
     )
    )
  )
)