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

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

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

[文字注记]    '下拉栏名

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

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

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

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

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

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

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

[示例菜单]

测试1,*xxx

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

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

4、在命令行输入”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)

当中。

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