soly2006 发表于 2018-8-15 13:55:09

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

本帖最后由 soly2006 于 2018-8-16 17:17 编辑

一、准备工作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 发表于 2018-8-16 16:51:22

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

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

soly2006 发表于 2018-8-16 15:42:09

全部的文件都在里面了。@liwen888888
六、添加其他程序1、在主程序（不想让主程序臃肿也可以调用其他文件的程序）中加入要添加的程序命令，如C:HK方法如上面：1、opendcL上做 2、加载程序，运行qqq 提醒一下：

soly2006 发表于 2018-8-17 16:45:26

本帖最后由 soly2006 于 2018-8-17 16:49 编辑

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 发表于 2018-8-16 08:31:59

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

spp_wall 发表于 2018-8-16 08:33:57

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

soly2006 发表于 2018-8-16 09:03:20

本帖最后由 soly2006 于 2018-8-16 09:05 编辑

liwen888888 发表于 2018-8-16 08:31
请教一下，怎么去关联一个已经写好的lisp或者vlx文件。就是在对话框上做一个按钮，点击一下启动这个lisp、 ...
看不懂说明我白写了:Q
Odcl里那个autolisp file name就是关联的lisp文件啊。
帖子上传的图片有点乱，编辑不了不知道为何，可以下载来看。

liwen888888 发表于 2018-8-16 10:09:11

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

谢谢，我再仔细看看

liwen888888 发表于 2018-8-16 11:12:19

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

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

GamIng 发表于 2018-8-16 15:30:07

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

evayleung 发表于 2018-8-17 06:22:00

谢谢分享资料。。
页: [1] 2 3 4 5
查看完整版本: 我不想编程，我只是程序搬运工之拿来主义制作程序工具箱