如何创建菜单工具并执行LSP里的命令
各位大神，靖问如何创建一个菜单下拉工具并执行已加载的LSP文件里的各个命令？好东西，mark vitalgg 发表于 2021-1-6 15:47
不知道你说的是不是做一个菜单，菜单的命令可以是lisp命令，加上括号就行了。如下：
[->工程管理]
就是创建一个下拉菜单项，里面可以执行各个已加载的LISP命令。你这个我没有看懂？请问如何使用？
不知道你说的是不是做一个菜单，菜单的命令可以是lisp命令，加上括号就行了。如下：
[->工程管理]
[自动编图号]^c^c(@:set-tuhao (@:get-frames));
[生成目录]^c^c(@:make-mulu-csv);
[目录成图]^c^c(@:insert-mulu-to-dwg);
[附着签名]^c^c(@:attach-sign);
[*选择所有图框]^c^c(@:select-tukuang);
[--]
[插入图框]^c^c(@:insert-tukuang "vitaltools/map-sheet.dwg" (@:get-config 'vitaltools:tukuang));
[变更]^c^c(@:insert-tukuang "vitaltools/bg-tukuang.dwg" (@:get-config 'vitaltools:bg-tukuang));
[<-处理方案]^c^c(@:insert-tukuang "vitaltools/fa-tukuang.dwg" (@:get-config 'vitaltools:fa-tukuang));
[->实体]
[清理DGN]^c^c(@:remove-dgn);
[分解重块]^c^c(@:explode-minsert);
[<-淡化实体填充]^c^c(@:explode-minsert);
[->图层]
[关闭其它]^c^c(@:layer-off-other);
[冻结其它]^c^c(@:layer-frozen-other);
[锁定其它]^c^c(@:layer-lock-other);
[解锁全部]^c^c(@:layer-unlock);
[解冻全部]^c^c(@:layer-thaw);
[<-图层全开]^c^clayon; 假设你要创建的菜单名为“长风”：
1、编写一个mnl文件，命名为“CF.mnl”，内容如下：
(setvar "CMDECHO" 0)
(setq oldacad (getenv "ACAD"))
(setq path "C:\\CF") ;你的所有文件放到C盘根目录CF文件夹内
(setenv "ACAD" (strcat oldacad ";" path)) ;这两句将文件目录加入CAD支持目录中
(load "CF.VLX") ;这一句加载你的lsp文件
(princ "长风程序已成功加载\n")
2、编写一个mnu文件，命名为CF.mnu，内容如下：
***MENUGROUP=CF
***POP1
[长风工具]
[功能1]^C^Caaaa
[功能2]^C^Cbbbb
[功能3]^C^Cdddd
[功能4]^C^Ceeee
[功能5]^C^Cffff
上面内容中，“长风工具”就是菜单名，功能1234就是每一个选项的名称aaaabbbbcccc就是对应功能的lsp命令。
3、将CF.mnl、CF.mnu、CF.vlx放在C盘CF文件夹内
4、CAD内输入menuload加载CF.mnu
5、试试看 牢固版主写过一个，可以找一下 这个简单 就是创建一个 菜单文件。然后加载到CAD中。
推荐一下我的程序 访问 atlisp.cn
你写一个lisp 文件 ， 文件里写几个菜单函数就可以了，不知道下面的内容，能不能看明白。
* 菜单相关函数
@lisp 可以在安装时生成相应的菜单。目前 所有的功能菜单均集中于 @lisp(A) 中。
@:add-menu 函数用于生成菜单。
格式如下：
(@:add-menu "子菜单" "功能名称" "(功能函数)")
(defun 功能函数 ()
...
)
示例(无参数)：
(@:add-menu "大绘图" "附着签名" "(@:attach-sign)")
(defun @:attach-sign ( )
...
)
示例(有参数)：
(@:add-menu "大绘图" "插入图框" "(@:insert-tukuang \"tukuang.dwg\" @:*tukuang*)")
(@:add-menu "变更及工程处理" "变更" "(@:insert-tukuang \"bg-tukuang.dwg\" @:*bg-tukuang*)")
(@:add-menu "变更及工程处理" "处理方案" "(@:insert-tukuang \"fa-tukuang.dwg\" @:*fa-tukuang*)")
(defun @:insert-tukuang (tk-file tk-dwg)
...) 做个记号！好好学习！
页:
[1]
2