菜单帮助
我正在尝试使用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")
)
页:
[1]