MenuBar问题

xml_ug

我增加了一个菜单接钮:
theUI.MenuBarManager.AddMenuAction("ADD_DRAWING_TITLE", AddressOf ADD_DRAWING_TITLE)

6 b/ z# d! L' o+ N1 l4 D1 L下面是打开对话框:
3 v9 S* G- E6 M" H/ @0 H2 F     Dim response As NXOpen.UIStyler.DialogResponse
# n4 q7 h) s; M, E1 S  m+ w9 ]        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
& F/ R5 w  Q+ O+ Q( n" C6 \' w        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
" n# ?/ f" |6 b8 I, B9 R  U           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
            OpenSetTitleDialog1(response) '打开对话框
4 m1 R! t/ S  R$ l3 S            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
6 d% V* R) n, n6 U, [2 T( C
3 f9 @6 ~: |# _2 R) S  R( W7 q问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?
   
. F# Q' t2 B* z+ ]' q$ g