zhang007 发表于 2005-3-7 16:27:00

发一个CAD的二次开发安装程序

本帖最后由 作者 于 2005-3-8 8:39:56 编辑 <br /><br /> 下了很多CAD的二次开发安装程序，效果都不符合自己的要求，自己又用VB写了一个，发上来看看在没有人用得着。过一段时间测试后再把源代码传上来，供使用者自行修改以符合特定的要求。本程序配合inno setup及其他安装程序打包自己的二次开发程序，最终只有一个安装程序



说明如下：<BR>Installcad.exe共有四个参数，用一个或多个空格分开，其参数依次为<BR>一、安装还是卸载(u/i)，只能是一个字母，不分大小写，其他将不能识别<BR>二、支持的CAD版本，任意字符分隔(R15.0,R16.0,R16.1或者R14.0:R16.0:R16.1均可)，单独使用参数"A" 或"a"，将支持2000及其以上所有版本。<BR>三、菜单组名,如果要加上一个或多个下拉菜单，跟在后面，用英文分号分隔，如my-zandan-tools菜单组中有一个下拉菜单pop1 ，可以这样写（my-zandan-tools;Pop1或者不要下拉菜单只写my-zandan-tools均可）。第一个下拉菜单将安装在倒数第三的位置上，依次类推。<BR>四、菜单文件名，不加后缀，安装时将检查菜单文件(.mns or .mnu)是否存在，不存在将退出。<BR>功能：首先检测AUTOCAD是否运行，如未运行则添加本程序所地路径到CAD支持文件搜索路径，添加菜单(包括下拉菜单)<BR>示例参数 i R16.0;R16.1 my-zandan-tools;Pop1 zandan-tools


自己的一段脚本如下：


<BR>Source: Installcad.exe; DestDir: {app}; Flags: ignoreversion<BR>;Source: E:\试安装CAD\展点\AcadInst.ini; DestDir: {app}; Flags: ignoreversion<BR>Source: HUI-luxdian.txt; DestDir: {app}; Flags: ignoreversion<BR>Source: my-zandan-tools.mnl; DestDir: {app}; Flags: ignoreversion<BR>Source: my-zandan-tools.mns; DestDir: {app}; Flags: ignoreversion<BR>Source: 产状.dwg; DestDir: {app}; Flags: ignoreversion<BR>Source: 地质点示例数据.xls; DestDir: {app}; Flags: ignoreversion<BR>Source: 展点帮助文件.chm; DestDir: {app}; Flags: ignoreversion<BR>Source: 展点主程序.fas; DestDir: {app}; Flags: ignoreversion<BR>Source: 调用EXCEL展点.fas; DestDir: {app}; Flags: ignoreversion<BR>Source: 展点示范文件.gif ;DestDir: {app}; Flags: isreadme<BR>Source: 示例图框.dwg ; DestDir: {app}; Flags: ignoreversion<BR>; 注意: 不要在任何共享系统文件中使用“Flags: ignoreversion”<BR><BR>;shorcut icons<BR>Name: "{group}\重安装展点程序";IconFilename: "{app}\Installcad.exe" ; Filename: "{app}\Installcad.exe"; Parameters:"i R15.0;R15.1;R16.0;R16.1       my-zandan-tools my-zandan-tools"<BR>Name: "{group}\{cm:UninstallProgram,老张展点程序}"; Filename: "{uninstallexe}"<BR><BR>Filename: {app}\Installcad.exe; Parameters:" i R15.0;R15.1;R16.0;R16.1       my-zandan-tools my-zandan-tools"; WorkingDir: {app}; Flags: runminimized<BR><BR>;delete these files on uninstall<BR>Type: files; Name: {app}\my-zandan-tools.mnc<BR>Type: files; Name: {app}\my-zandan-tools.mnr<BR>Type: files; Name: {app}\示例图框.bak<BR><BR>;run this program on uninstall<BR>Filename: {app}\Installcad.exe; Parameters:"u R15.0;R15.1;R16.0;R16.1       my-zandan-tools "; WorkingDir: {app}; Flags: waituntilidle

zhang007 发表于 2005-3-7 16:28:00

本帖最后由 作者 于 2005-3-9 8:55:33 编辑

修正了一下， 传一个程序上来





        把VB源代码也发上来，这样大家就可以随意修改以定制自己的程序


gjliang 发表于 2005-4-7 15:47:00

如何使用啊，找不到方向！

qinlong_01 发表于 2005-4-7 16:17:00

请问楼主：你所发的安装程序可以用在由VBA开发的二次开发程序上吗？该怎么用？

wyj7485 发表于 2007-1-10 14:08:00

好啊，顶上来

mmm96 发表于 2007-1-11 11:58:00

<p>zhen shi hao dong si zhao le hao chang shi jian le </p>

wshc44520 发表于 2007-1-16 12:36:00

<p>不懂 </p><p></p>

cadmap 发表于 2007-2-28 22:08:00

什么都没有啊

illcyt 发表于 2013-9-10 11:17:42

zhang007 发表于 2005-3-7 16:28 static/image/common/back.gif
修正了一下， 传一个程序上来




收藏了，非常感谢
页: [1]
查看完整版本: 发一个CAD的二次开发安装程序