Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
1 reply to this topic

#1 se7en

se7en

    biết vẽ ellipse

  • Members
  • PipPip
  • 52 Bài viết
Điểm đánh giá: 5 (bình thường)

Đã gửi 25 November 2007 - 11:36 AM

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:
  • 0
Mê xe và súng
Thích để súng trong xe

#2 phantuhuong

phantuhuong

    biết dimstyle

  • Moderator
  • PipPipPipPipPip
  • 383 Bài viết
Điểm đánh giá: 200 (khá)

Đã gửi 17 July 2008 - 12:01 PM

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"") "


  • 0
Bồi dưỡng Excel & VBA cho các đơn vị ở Hà Nội và khu vực lân cận

Từng bước loại đồ Tàu ra khỏi cuộc sống!