明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 9690|回复: 40

[经验] 我不想编程,我只是程序搬运工之拿来主义制作程序工具箱

    [复制链接]
发表于 2018-8-15 13:55 | 显示全部楼层 |阅读模式
本帖最后由 soly2006 于 2018-8-16 17:17 编辑

一、准备工作
1A、安装OpenDCL 8.0.0.1(或第一次使用加载(CAD2006的)OpenDCL.16.arx
   (安装其他版本的CADCAD2008:OpenDCL.17.arx;CAD2010:OpenDCL.18.arx,64位的自己看着选)并把他放到启动组里。(也可以自己下载安装,下载地址:http://www.opendcl.com/download/)安装就不咆哮了,自己搞。
2、打开opendcl,新建newodclct.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 "这只是牛逼的开始")
)

五、运行
看不见图的下载:
下面有完整的说明文件和示例程序文件,不用下这个。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 3明经币 +3 收起 理由
韩非文 + 1 赞一个!
GamIng + 1 很给力!
USER2128 + 1 很给力!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2018-8-16 16:51 | 显示全部楼层
soly2006 发表于 2018-8-16 15:42
全部的文件都在里面了。@liwen888888
六、添加其他程序1、在主程序(不想让主程序臃肿也可以 ...

非常感谢,总算搞明白了。
回复 支持 0 反对 1

使用道具 举报

 楼主| 发表于 2018-8-16 15:42 | 显示全部楼层
全部的文件都在里面了。@liwen888888
六、添加其他程序
1、在主程序(不想让主程序臃肿也可以调用其他文件的程序)中加入要添加的程序命令,如C:HK方法如上面:
1、opendcL上做
2、加载程序,运行qqq
提醒一下:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2018-8-17 16:45 | 显示全部楼层
本帖最后由 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。


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2018-8-16 08:31 | 显示全部楼层
请教一下,怎么去关联一个已经写好的lisp或者vlx文件。就是在对话框上做一个按钮,点击一下启动这个lisp、谢谢
发表于 2018-8-16 08:33 | 显示全部楼层
支持这样的教程  适合我这样的新手!
 楼主| 发表于 2018-8-16 09:03 | 显示全部楼层
本帖最后由 soly2006 于 2018-8-16 09:05 编辑
liwen888888 发表于 2018-8-16 08:31
请教一下,怎么去关联一个已经写好的lisp或者vlx文件。就是在对话框上做一个按钮,点击一下启动这个lisp、 ...

看不懂说明我白写了:Q
Odcl里那个autolisp file name就是关联的lisp文件啊。
帖子上传的图片有点乱,编辑不了不知道为何,可以下载来看。
发表于 2018-8-16 10:09 | 显示全部楼层
soly2006 发表于 2018-8-16 09:03
看不懂说明我白写了
Odcl里那个autolisp file name就是关联的lisp文件啊。
帖子上传的图片有点乱,编 ...

谢谢,我再仔细看看
发表于 2018-8-16 11:12 | 显示全部楼层
soly2006 发表于 2018-8-16 09:03
看不懂说明我白写了
Odcl里那个autolisp file name就是关联的lisp文件啊。
帖子上传的图片有点乱,编 ...

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2018-8-16 15:30 | 显示全部楼层
好牛逼的存在!可以加精了。
发表于 2018-8-17 06:22 | 显示全部楼层
谢谢分享资料。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 22:25 , Processed in 0.248854 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表