MenuBar问题

xml_ug

我增加了一个菜单接钮:
theUI.MenuBarManager.AddMenuAction("ADD_DRAWING_TITLE", AddressOf ADD_DRAWING_TITLE)
9 h+ }5 g6 h  h
- d. X7 H7 i3 O+ Q下面是打开对话框:
     Dim response As NXOpen.UIStyler.DialogResponse
        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
" G) \8 d5 n: j+ d% v        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
            OpenSetTitleDialog1(response) '打开对话框
8 H# t2 D) R* M% x            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
' T8 F- S' L+ Q" h2 @
% ^7 P+ u& |9 I" P0 U+ w2 s2 W问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?
( F1 F/ P7 U1 o( ?   
8 s2 O* _  J- J4 a6 o$ O7 |