em hỏi về việc gán macro cho button

[se7en 5]

em đang viết code tạo 1 button để chạy 1 macro trong project.code như sau :

 

'---------------------------------------------------------------

Sub AddToolbarButton()

Dim currMenuGroup As AcadMenuGroup

Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

 

Dim newToolBar As AcadToolbar

Set newToolBar = currMenuGroup.Toolbars.Add("TestToolbar")

 

Dim newButton As AcadToolbarItem

Dim openMacro As String

 

openMacro = "(command ""vbarun"" ""coordinate"")"

 

Set newButton = newToolBar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)

newToolBar.Visible = True

 

End Sub

'-------------------------------------------------------------------

 

sau khi test thì em thấy có 1 sự khác biết như sau:

1/Khi nhấn vào button được tạo ra bằng code trên thì macro không thực thi liền mà phải nhấn thêm ENTER.có nghĩa là trên dòng lệnh command xuất hiện : (command "vbarun" "coordinate"), phải nhấn thêm ENTER nữa mới được.lúc này có thêm chữ vbarun xuất hiện sau (command "vbarun" "coordinate")

 

2/còn khi em tạo 1 button bằng customize của cad và trong phần Macro associated with this button cũng ghi là (command "vbarun" "coordinate"), khi nhấn nút này thì macro được chạy luôn, không cần ENTER nữa.Lúc này em để ý dòng command có thêm vbarun fía sau (command "vbarun" "coordinate"), giống như cách 1.

 

có a e nào biết vì sau không và em muốn chạy luôn macro,không cần nhấn ENTER nữa thì fải sửa như thế nào ?

cám ơn mọi người... :bigsmile:

[phantuhuong 226]

openMacro = "(command ""vbarun"" ""coordinate"")"

Bạn thêm 1 khoảng trắng trước ngoặc cuối là ổn thôi:

 

openMacro = "(command ""vbarun"" ""coordinate"") "