MenuBar问题

xml_ug

我增加了一个菜单接钮:
* O: v/ p5 i' B& P theUI.MenuBarManager.AddMenuAction("ADD_DRAWING_TITLE", AddressOf ADD_DRAWING_TITLE)
+ p, V1 w! ~3 E$ N5 O* m$ D- e: c5 u
) \+ q% o1 \8 p9 z7 z下面是打开对话框:
     Dim response As NXOpen.UIStyler.DialogResponse
8 T/ {: ], V- O; z# K8 ~0 M        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
4 \2 _6 I. r5 }' \3 R            OpenSetTitleDialog1(response) '打开对话框
1 M$ Z/ c! n' A8 }3 T            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)

问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?
# F4 D2 h* K! k8 D  g* \( y; [   
$ M9 J2 h3 U# l/ s