Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
se7en

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

Các bài được khuyến nghị

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:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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"") "

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×