Question

在cad二次开发中 用lisp 编写 自己定义的菜单 例如 “文件” “工具” "编辑" 我要加一个 “查询” 如何搞

Answer 1

用记事本建一个文本如use.mns，文件内容为
***MENUGROUP=用户菜单
***POP1
[查询]
[菜单中显示文字]^C^C(load "程序文件名");程序执行名

// [--]
然后用menuload命令加载use.mns菜单

追问

我用lisp写一段代码 当我在cad命令行执行他时 cad自动加载 我自己写的菜单文件.mns 如何写这个.lsp
也就是说 在.lisp 中我想定义一个个人命令比如："(defun c:dq ( / &mod )" 并以dq.lsp保存
当我再cad命令行中输入dq 他就会自动加载 我自己写的菜单文件.mns dq.lsp如何写呢？？ 高手帮帮忙啊 雪地跪求。

Answer 2

(defun c:dq ( / &mod )
(setvar"FILEDIA"0)
(command"menuload" "菜单文件.mns")
(setvar"FILEDIA"1)
)