MenuBar问题

xml_ug

我增加了一个菜单接钮:
, E0 E5 N* M  f+ s+ D9 v" o theUI.MenuBarManager.AddMenuAction("ADD_DRAWING_TITLE", AddressOf ADD_DRAWING_TITLE)
& q! a* U3 `+ x, Q9 P5 x7 ~5 L9 J
! W# `/ B/ q- M8 x7 C8 ]; B下面是打开对话框:
6 U4 n' j) v% l5 G8 f     Dim response As NXOpen.UIStyler.DialogResponse
( j3 q$ i1 X4 u        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
$ @2 W$ _* \. Q& I, `        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
9 I1 g# N! S3 W' q2 x           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
/ x& w3 w8 C9 {            OpenSetTitleDialog1(response) '打开对话框
            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
/ P  F- o( L: v4 l
问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?
   
$ P9 ?3 A- X0 C) u