MenuBar问题

xml_ug

我增加了一个菜单接钮:
0 `) g: K$ F, W theUI.MenuBarManager.AddMenuAction("ADD_DRAWING_TITLE", AddressOf ADD_DRAWING_TITLE)

! p7 X" V# ~2 ^4 Y下面是打开对话框:
. r6 K7 S2 a1 W5 @6 U2 I0 b     Dim response As NXOpen.UIStyler.DialogResponse
8 O( W( Q5 \' s( O( _6 r) z: U        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
+ {- K3 D/ O4 `( d0 u            OpenSetTitleDialog1(response) '打开对话框
$ K8 i$ x6 A( P            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
6 e, n: Y( n) ]9 b
问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?