请教菜单加载相关问题

Alex2022

    请教大家，我用以下方式建立了菜单

     (setq pre_filedia (getvar "filedia"))

      (setvar "filedia" 0)

      (vl-cmdf "menuload" "CAD.mnu")

      (setq CNT 1)

      (while (menucmd (strcat "P" (itoa CNT) ".1=?"))

        (setq CNT (1+ CNT))

        )

      (if (> CNT 1)

        (setq CNT (- CNT 1))

        (setq CNT 1)

        )

      (menucmd (strcat "P" (itoa CNT) "=+CAD.pop1"))

      (setvar "filedia" pre_filedia)



我现在想在点击这个菜单后在原菜单同一位置替换CAD.mnu里边的pop2，然后在pop2里边程序执行完后再返回pop1.我想着先卸载再按原方法加载pop2，编制以下程序：

(if (menugroup "CAD.mnu")

    (progn

      (setq pre_filedia (getvar "filedia"))

      (setvar "filedia" 0)

      (vl-cmdf "menuunload" "SIGCAD.mnu")

      (setvar "filedia" pre_filedia)

    )

    加载CAD.pop2部分

  )

但是系统认为CAD.mnu不存在，实行不了卸载程序，请问是为什么？能不能有比较好的替换菜单下不同pop的子菜单的程序编制方法？

谢谢各位大神！

Alex2022

自己顶，别沉了啊