VI. Làm v ic vi Group (0.5 Ti t)
1. Menugroup collection MenuGroups Collection
T t c các menu đ c load trong session hi n tai c a AutoCAD đ c l u c t trong MenuGroup collection. Các menu này có th đ c hi n th ho c không đ c hi n th trên menu bar c a Autocad. Ng i dùng có th đi u khi n s hi n th c a các menu thông qua l nh MenuLoad trong Autocad. M i m t menu MenuGroup object cung c p t t c các toolbar and pop-up menu có trong Group đó.
Loading Menu Groups
Ph ng th c Load c a MenuGroup collection dùng đ t i m t menu group đ c ch a trong các file ( .mnc, .mns, or .mnu ) vào Autocad. Cú pháp c a l nh này nh sau :
Set MenuGroupObject = MenuGroupsCollection.Load (MenuFileName [,BaseMenu]) NAME DATA
TYPE
DESCRIPTION
MenuFileName String ng d n và tên File s đ c t i vào AutoCad. BaseMenu Boolean Thông s này xác đnh menu group đ c t i là menu
c b n hay menu t ng ph n. Gia tr True là base menu. Ng c l i s là partial menu. M c đnh là False.
S d ng tham s BaseMenu v i giá tr True s t ng đ ng v i vi c th c hi n l nh MENU trong AutoCAD (ho c thi hành l nh MENULOAD và check vào l a ch n Replace All). Ch MenuGroup m i m i đ c Load và nó s thay th t t c các menu c trong AutoCad.
Nh m t l a ch n, s d ng ph ng th c Load V i tham s BaseMenu là False, t ng đ ng v i b n thi hành l nh MENULOAD trong AutoCAD mà không check vào l a ch n. Replace All. Menu group đ c t i thêm vào AtutoCad.
Ki u c a Menu Groups
l y thông s ki u c a menu groups đã đ c t i vào trong AutoCAD, b n có th s d ng thu c tính Type cho m i MenuGroup object. Cú pháp nh sau :
CONSTANT VALUE DESCRIPTION
AcBaseMenuGroup 0 Menu group là base menu group. AcPartialMenuGroup 1 Menu group là partial menu group.
Ví d sau s li t kê t t c các menu group đã đ oc t i vào trong AutoCad và ki u c a chúng: Public Sub ListMenuGroups()
Dim objMenuGroup As AcadMenuGroup Dim strMenuGroupNames As String
strMenuGroupNames = "The following menu groups are currently loaded, " For Each objMenuGroup In Application.MenuGroups
If objMenuGroup.Type = acBaseMenuGroup Then
strMenuGroupNames = strMenuGroupNames & vbCrLf & _ objMenuGroup.Name & ": Base menu"
Else
strMenuGroupNames = strMenuGroupNames & vbCrLf & _ objMenuGroup.Name & ": Partial menu" End If
Next
MsgBox strMenuGroupNames End Sub
L u ý :
• MenuGroups collection không có ph ng th c Add. Tuy nhiên b n có th t o m t b n copy file .mns vào m t file m i, sau đó t i và s a ch a nó theo ý c a b n. B n c ng có th t o m t file .mnu ho c .mns m i và t i chúng t VBA.
• B n không th ch nh s a đ c các menu hình nh, menu màn hình và các b ng s hóa. Tuy nhiên, b n v n có th Load và UnLoad chúng b ng VBA.