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