MenuBar问题

xml_ug

我增加了一个菜单接钮:
theUI.MenuBarManager.AddMenuAction("ADD_DRAWING_TITLE", AddressOf ADD_DRAWING_TITLE)
; }& m7 G* N6 b$ E$ Z6 K/ x' G
下面是打开对话框:
  W7 J+ O  c8 V0 ?3 ~+ u6 ]' l5 Y) w" s  K     Dim response As NXOpen.UIStyler.DialogResponse
        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
9 d+ P6 i/ u+ X7 c8 j        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
4 F1 z; ]3 h1 _9 F4 d# k6 d0 F3 H* K5 a( C           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
            OpenSetTitleDialog1(response) '打开对话框
7 T6 |0 w; O' w& K1 X            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)

2 g7 I4 E3 D4 b2 Y问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?
* V4 p) T( Z) y7 P; G7 F