我正在尝试使用lisp例程安装菜单,但它似乎不起作用。
工具栏将加载,但菜单不会显示在菜单栏上。
以下是我的代码:
- (defun c:tcload ()
- ;switch off dialogues
- (setvar "FILEDIA" 0)
- ;load the menu
- (command "menuload" "TrussCAD")
- ;switch on dialogues
- (setvar "FILEDIA" 1)
- ;install the pulldown
- (menucmd "P15=+TrussCAD.mnu.POP25")
- )
|