MenuBar问题

xml_ug

我增加了一个菜单接钮:
# z/ P6 `; _' a0 s6 ~8 K4 H+ f theUI.MenuBarManager.AddMenuAction("ADD_DRAWING_TITLE", AddressOf ADD_DRAWING_TITLE)

* ~7 K4 y) m. s! d下面是打开对话框:
* I" v, F4 @# e0 k0 G. a     Dim response As NXOpen.UIStyler.DialogResponse
        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
            OpenSetTitleDialog1(response) '打开对话框
7 r8 ~# j' f% R% C1 |            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
! q' X3 n, l( w# `; H, `/ \4 ?
问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?
   
3 G! V* @+ t/ X; _) H