MenuBar问题

xml_ug

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

下面是打开对话框:
% x& o1 a( v* Y0 \4 o     Dim response As NXOpen.UIStyler.DialogResponse
        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
0 e5 d/ S/ p+ h8 k8 H        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
: _8 Q/ x. y/ J* K           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
            OpenSetTitleDialog1(response) '打开对话框
            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
7 U5 z7 W+ I9 w: B: t+ m! K
问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?
: Q5 _6 K' Q$ _! B: ~5 _  @- r   
0 p4 d! t% f; G, s