南方CASS入门：[10]打造个性CASS屏幕菜单

南方CASS入门：[10]打造个性CASS屏幕菜单

南方CASS右边的屏幕菜单，美观而且又方便。自己常用的二次开发命令也放进去多方便。我们来把一个二次开发程序命令也放天屏幕菜单中去。

一个xxx.lsp文件，调用命令xxx。第一步，把xxx.lsp文件复制到CASS\BIN\目录下。放在这个目录下是为了方便加载。

找到CASS\SYSTEM\目录下ScreenMenu.def文件，使用记事本打开。文件如下格式。

[文字注记] '下拉栏名

注记文字,*wzzj '子项名，链接的命令

变换字体,fonts1 '子项名，链接的幻灯片

定义字型,*style '子项名，链接的命令

坐标坪高,zbpg '子项名，链接的幻灯片

常用文字,cywz '子项名，链接的幻灯片

还*号的为命令，不带*号的为幻灯片。

我们在文件后面加上以下两行，注间前面要空一行。

[示例菜单]

测试1,*xxx

XXX为二次开发程序的运行命令。完成后保存文件。

打开CASS，看看我们的屏幕菜单。

在命令行输入”appload",加载XXX.lsp文件。你可以修改CAD安装目录的support目录下acad20xx.lsp（如acad2006.lsp）文件来让xxx.lsp文件自动加载。

把

(LOAD "xxx.lsp")

插入到

(if (not (= (substr (ver) 1 11) "Visual LISP")) (load "acad20xxdoc.lsp"))

和

;; Silent load.

(princ)

当中。

打开CASS，输入XXX命令，或者点击CASS的屏幕菜单，两个效果是一样的。这里的XXX.lsp和XXX命令是随机使用的，你可以更改为你的任意文件和命令名，但不能跟CAD和CASS中的内部命令相同。

把xxx.lsp文件复制到CASS\BIN\目录，是为了方便自动加载时不用填写路径。