MenuBar问题

xml_ug

我增加了一个菜单接钮:
( _5 ~% g8 Q; O2 R# ~ theUI.MenuBarManager.AddMenuAction("ADD_DRAWING_TITLE", AddressOf ADD_DRAWING_TITLE)
! a) F$ c- l" O- y) ?" w0 t# d
' A+ [- x0 ~  \" }下面是打开对话框:
: Z) C" @- N; c* n     Dim response As NXOpen.UIStyler.DialogResponse
. S+ M4 o- a9 s; Z        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
. R/ A8 Q" ^, q  D& M        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
8 p$ W% K( |: E6 r' t8 A6 I5 J            OpenSetTitleDialog1(response) '打开对话框
            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
+ Z" B6 p% f) u0 B7 x0 i8 O
问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?
   
1 e! K- r. V" I4 \: z