我不想编程，我只是程序搬运工之拿来主义制作程序工具箱

soly2006

一、准备工作

1、A、安装OpenDCL 8.0.0.1（或第一次使用加载（CAD2006的）OpenDCL.16.arx）

   (安装其他版本的CAD：CAD2008:OpenDCL.17.arx;CAD2010:OpenDCL.18.arx,64位的自己看着选)并把他放到启动组里。(也可以自己下载安装，下载地址：http://www.opendcl.com/download/)。安装就不咆哮了，自己搞。

2、打开opendcl,新建new，odclct.odcl并保存于目录”\ODCL工具箱”中。注意千万不要取中文名。

二、Lisp文件

   在目录”\ODCL工具箱”中新建”主程序.lsp”，不说你不知道怎么新建。这个取中文名好像没影响。

   以上建立的文件自己起名字，此处仅为方便示范。

三、OPENDCL设置

   

四、添加程序

右边：

   复制到”主程序.lsp”里面。

;;增加这段代码

(command "OPENDCL")

(vl-load-com)

(princ "\n 命令qq运行本程序！ 版本 2018-8")

;;当然你也可以取其他名称

(defun c:qq()

   (dcl_Project_Load "ODCLct" T)

   ; 调用方法显示“ODCLct.odcl”对话框示例。

   (dcl_Form_Show ODCLct_Form1)

   (princ)         

)

;;〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

;;〓           你的程序部分                           〓

;;〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

;;这是从ODCL按钮cliched事件复制下来的代码

(defun c:ODCLCT/Form1/TextButton1#OnClicked (/)

  (dcl-MessageBox "To Do: code must be added to event handler\r\nc:ODCLCT/Form1/TextButton1#OnClicked" "To do")

)

;;ODCL按钮cliched事件复制下来的代码的改成你的点击事件（程序命令）：

(defun c:ODCLCT/Form1/TextButton1#OnClicked (/)

  (alert "这只是牛逼的开始")

)

五、运行

看不见图的下载：

下面有完整的说明文件和示例程序文件，不用下这个。

liwen888888

soly2006 发表于 2018-8-16 15:42
全部的文件都在里面了。@liwen888888
六、添加其他程序1、在主程序（不想让主程序臃肿也可以 ...

非常感谢，总算搞明白了。

soly2006

全部的文件都在里面了。@liwen888888

六、添加其他程序

1、在主程序（不想让主程序臃肿也可以调用其他文件的程序）中加入要添加的程序命令，如C:HK方法如上面：

1、opendcL上做

2、加载程序，运行qqq

提醒一下：

soly2006

fl202 发表于 2018-8-17 14:59
厉害了，我的楼主。
已收藏。
cad2013：OpenDCL.21.arx   win10 64位去哪里下载？ OpenDCL.Studio.CHS.8. ...

OpenDCL.Studio.CHS.8.2.1.2.msi是窗体文件的安装包，不想安装（或打包给别人的程序）直接复制对应的版本号的.arx文件和chs文件夹即可，如CAD2006目录里只需有chs文件夹和OpenDCL.16.arx。不知道版本号的，查询对应CAD命令：acadver
2006版本查询结果是：
ACADVER = "16.2s (LMS Tech)"
OpenDCL.Studio.CHS.8.2.1.2.msi安装后一般存放在C:\Program Files (x86)\Common Files\OpenDCL。

liwen888888

请教一下，怎么去关联一个已经写好的lisp或者vlx文件。就是在对话框上做一个按钮，点击一下启动这个lisp、谢谢

spp_wall

支持这样的教程  适合我这样的新手！

soly2006

liwen888888 发表于 2018-8-16 08:31
请教一下，怎么去关联一个已经写好的lisp或者vlx文件。就是在对话框上做一个按钮，点击一下启动这个lisp、 ...

看不懂说明我白写了:Q
Odcl里那个autolisp file name就是关联的lisp文件啊。
帖子上传的图片有点乱，编辑不了不知道为何，可以下载来看。

liwen888888

soly2006 发表于 2018-8-16 09:03
看不懂说明我白写了
Odcl里那个autolisp file name就是关联的lisp文件啊。
帖子上传的图片有点乱，编 ...

谢谢，我再仔细看看

liwen888888

soly2006 发表于 2018-8-16 09:03
看不懂说明我白写了
Odcl里那个autolisp file name就是关联的lisp文件啊。
帖子上传的图片有点乱，编 ...

能不能写一个实例参考一下，关联现有的lisp或者VLX文件的实例。我上传一个你试试，网上没有找到相关的学习实例，我一头雾水，不知道从哪里入手，谢谢

GamIng

好牛逼的存在！可以加精了。

evayleung

谢谢分享资料。。