[下载]：通用AutoCAD二次开发安装程序（命令行模式）－支持2006

netbee

由于很多人都很怀念秋枫版的setreg。其方便的快捷模式是很多人喜欢它的原因，用于在其他专业安装制作程序（我用的是innosetup）中针对AutoCAD项进行注册。
但是由于Acad2006的菜单加载模式改变，所以已经不支持2006以上版本。而且秋枫的编程思路已经转向于更专业化的封装程序。也没有放出setreg的新版本。

我把我用的发上来给大家（用VC搞的）支持一下本坛。暂定为测试版，是因为有很多环境没有测试过，大家试用看看。
支持2000---2006。
由于手上没有R14及2007所以这两个版本没有测试过。

注：在菜单程序文件中（＊.MNL）需要运行加载程序

2. 
   
3. (defun NB_addmenu (/ n)
   
4.   (if (menugroup "NB_survey")
   
5.     (progn
   
6.       (setq n 1)
   
7.       (while (< n 24)
   
8.         (if (menucmd (strcat "P" (itoa n) ".1=?"))
   
9.           (setq n (+ n 1))
   
10.           (progn
    
11.             (if        (> n 3)
    
12.               (setq n (- n 2))
    
13.               (setq n 3)
    
14.             )
    
15.             (menucmd (strcat "p" (itoa n) "=+NB_survey.pop1"))
    
16.             (setq n 25)
    
17.           )
    
18.         )
    
19.       )
    
20. 
    
21.     )
    
22. 
    
23.   )
    
24.   (princ)
    
25. )
    
26. 
    
27. (NB_addmenu)
    

<br /> (defun NB_addmenu (/ n)<br />   (if (menugroup "NB_survey")<br />     (progn<br />       (setq n 1)<br />       (while (< n 24)<br />         (if (menucmd (strcat "P" (itoa n) ".1=?"))<br />           (setq n (+ n 1))<br />           (progn<br />             (if        (> n 3)<br />               (setq n (- n 2))<br />               (setq n 3)<br />             )<br />             (menucmd (strcat "p" (itoa n) "=+NB_survey.pop1"))<br />             (setq n 25)<br />           )<br />         )<br />       )<br /> <br />     )<br /> <br />   )<br />   (princ)<br /> )<br /> <br /> (NB_addmenu)<br />

这段加载函数可以参考晓东工具箱的。
其中NB_survey为我的菜单组名称，你需要改为你的。


2006.05.20更新
修复安装2006的菜单时，当软件主目录中带空格无法添加菜单的BUG

netbee

帮助界面：

雨箭风刀

问一下,介绍里面好像只是说到了菜单. 含有程序文件,如vlx,lsp,arx等怎么处理?

netbee

呵呵，只要菜单挂上了，CAD就能自动处理与其同名的MNL文件了，而MNL文件里要怎么搞就随你的意喽，你想加载什么就加载什么！

所以本程序不含加载处理。

需要说明：MNL本来就是菜单预处理程序文件，所以你所有的预加载、初始化变量等工作都应该在MNL中处理。

技巧：你可以将预加载程序、初始化变量程序分别放在两个单独的LISP程序中，然后在MNL中加载它。这样使MNL结构清晰，便于维护。

雨箭风刀

如果原来已经有mnl在用,安装了是不是会覆盖原来的mnl?不能用添加的方法么?

netbee

这里所说的安装，是指将你指定的菜单项(你自己定义的菜单文件)加入到CAD菜单中(修改相应注册表)，并没有生成文件及其他功能。不存在覆盖原有MNL说法。
如：
系统菜单为ACAD.mnu，它也有一个ACAD.mnl。
而你的菜单为Test.mnu,也有一个Test.mnl。(两文件要在同一目录)而你需要做的就是在test.mnl文件中进行预处理就行了。

注：CAD菜单加载运行方式中只要加载了子菜单，相应的子菜单MNL会自动加载。所以不用去修改主菜单的MNL。-----运行命令：menuload。

lidejun_55

好东西，支持！
不知道秋风新版setreg什么时候能看到？

zhuquanmao

呵呵  我早就照着晓东的编了这个了 挺好使的 一直在用

hanweisheng

我按照您说的，在cad2006下怎么实现不了，而且在06下菜单目录也变了，好像是*.cui。

zhang8755

秋枫已经制作了新版的安装程序，可以支持2000-2007,在置顶的帖子里就有，大家去看看吧，增加了许多新功能，可以说你所需要的都有了。

netbee

仅仅是代替秋枫版的setreg程序，主要是给喜欢用其他安装制作程序来发布软件的人用。命令行模式，在你需要更多自定义情况下是很方便的。

当然，若你需要的是全自动打包，肯定是秋枫的新版安装制作程序啦！

zhang8755

类似的功能也可以用acadinst 1.6版实现，目前acadinst支持2000-2006,2007应该可以支持，没有测试过，但原理和2006类似，都是采用cui文件。与acadinst配合的acadinst.ini文件中的[MENU]段增加了MainCui=和PartialCuis=两个键值，用来支持cui菜单，一般只要在PartialCuis=后面添加自己的菜单名即可。
acadinst在安装时会显示一个选择acad配置文件的对话框，又使用者来选择在哪一个acad的配置中增加菜单，虽然灵活，但比较罗嗦，不如用netbee的有silent参数。看说明注册版才有silent功能。
附件中是新办的acadinst