MenuBar问题

xml_ug

我增加了一个菜单接钮:
) g8 D3 J# C5 D2 ?! \! q theUI.MenuBarManager.AddMenuAction("ADD_DRAWING_TITLE", AddressOf ADD_DRAWING_TITLE)
, F2 c% r+ e& C6 E) l( a& d! Z5 r
下面是打开对话框:
     Dim response As NXOpen.UIStyler.DialogResponse
: l! I9 u. o9 E- ?, P3 _6 |3 ^        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
1 `& G9 O% P# p: ?           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
  r6 u0 @7 e/ ]; k3 `            OpenSetTitleDialog1(response) '打开对话框
            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
1 Q7 T7 `" h; t% U3 |
, Q) g: `$ K) F2 G问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?