OpenDCL 6.0.2.2 绿色版

jh1005 · 发表于 2011-4-29 23:59

本帖最后由 jh1005 于 2012-9-3 23:56 编辑

1.解压到D盘，把ARX目录加入CAD搜索目录，用(Load-ODcl)函数加载OpenDcl的Arx文件。
2.样例目录在\ENU\Samples，里面的例子要用(Load-ODcl)替代(command "_OPENDCL")
;例如：

(defun c:test()
(Load-ODcl) ;加载arx，替代安装版的(command "_OPENDCL")
(dcl_Project_Load "test.odcl") ;读取ODcl文件，test.odcl放搜索目录或指定路径
(dcl_Form_Show "test_窗体名") ;显示对话框
(princ)
)
(defun Load-ODcl (/ fn) ;加载OpenDcl*.arx
(or
(member (strcase (strcat "OpenDCL." (substr (getvar "ACADVER") 1 2) ".arx") t) (arx))
(and (setq fn (findfile (strcat "OpenDCL." (substr(getvar "ACADVER") 1 2) ".arx"))) (arxload fn))
(t (alert (strcat "\n路径中无OpenDCL.arx或Runtime.Res.dll文件,加载不成功!")) (exit))
)
(princ)
)

mapple666 · 发表于 2018-8-8 09:28

这真是个好东西。我用了这么长时间。感觉非常好。谢谢

洪少(刀模) · 发表于 2018-8-17 14:18

不知道怎样用

zark · 发表于 2011-4-30 23:47

每次加载ODCL都提示：OPENDCL＋版本号。不懂用什么方法阻止提示。YAD就阻止得了哦

jh1005 · 发表于 2011-5-1 21:32

本帖最后由 jh1005 于 2011-5-1 21:34 编辑

回复 zark 的帖子

默认是会有的，加载时提示一次。
YAD那个是经过他处理过的，修改过Runtime.Res.dll文件。
打开Runtime.Res.dll，删除下图那一行就可以了。

去除加载时的版本提示的DLL，替换原文件：

自贡黄明儒 · 发表于 2011-5-1 21:55

这个OpenDCL是拿来做什么用的呀？

jh1005 · 发表于 2011-5-1 23:13

回复自贡黄明儒的帖子

http://bbs.mjtd.com/thread-22137-1-3.html

zark · 发表于 2011-5-1 23:24

回复 jh1005 的帖子

太感动了,因为感动所以感谢.谢谢谢谢谢谢 .对了,你上传的那个已经改过了吧.

hnfsf · 发表于 2011-5-2 04:15

好宝贝，谢谢共享！！

jxcaixiaomeng · 发表于 2011-11-11 18:58

楼主，我怎么下载不了啊！是不是我等级不够啊，可以发我邮箱吗》jxcaixiaomeng@163.com

jh1005 · 发表于 2011-11-11 23:34

jxcaixiaomeng 发表于 2011-11-11 18:58
楼主，我怎么下载不了啊！是不是我等级不够啊，可以发我邮箱吗》

你可以到 http://www.opendcl.com/download/ 下载最新版，安装版。

myjping · 发表于 2012-2-2 15:40

有64位的吗，要绿色版的

账号		自动登录	找回密码
密码			注册

[OpenDCL] OpenDCL 6.0.2.2 绿色版

本帖子中包含更多资源

本帖子中包含更多资源