Cho em hỏi về VBA

[se7en 5]

E có viết 1 cái macro trong 1 file dvb.Bây giờ e muốn rằng mỗi khi em load cái file dvb ấy lên thì cad tự động tạo ra 1 cái nút trên toolbar để mỗi khi nhấn vào là chạy macro đó.Em không biết viết code để làm chuyện ấy, vì chỉ mới tim hiểu VBA sơ sơ thui...a e nào biết chỉ em với.

Xin cám ơn. :bigsmile:

[ssg 1.102]

E có viết 1 cái macro trong 1 file dvb.Bây giờ e muốn rằng mỗi khi em load cái file dvb ấy lên thì cad tự động tạo ra 1 cái nút trên toolbar để mỗi khi nhấn vào là chạy macro đó.Em không biết viết code để làm chuyện ấy, vì chỉ mới tim hiểu VBA sơ sơ thui...a e nào biết chỉ em với.

Xin cám ơn. :bigsmile:

Mảng VBA mình cũng amateur như bạn! Nhưng mình có chiêu... liên hiệp quốc (kết hợp VBA, Acad và Lisp). Ví dụ bạn có 1 macro tên là VD, hãy làm như sau:

- Tạo 1 user defined button trên toolbar (cái này bạn biết chứ?)

- Trong dialog Customize, ở chỗ "Macro associated this button" đặt biểu thức lisp: (command "vbarun" "vd"). Xem hình.

http://www.cadviet.com/upfiles/vd.gif

Khi cần chạy macro VD chỉ việc bấm vào button đó là xong.

[se7en 5]

Mảng VBA mình cũng amateur như bạn! Nhưng mình có chiêu... liên hiệp quốc (kết hợp VBA, Acad và Lisp). Ví dụ bạn có 1 macro tên là VD, hãy làm như sau:

- Tạo 1 user defined button trên toolbar (cái này bạn biết chứ?)

- Trong dialog Customize, ở chỗ "Macro associated this button" đặt biểu thức lisp: (command "vbarun" "vd"). Xem hình.

http://www.cadviet.com/upfiles/vd.gif

Khi cần chạy macro VD chỉ việc bấm vào button đó là xong.

 

Cách của bạn thì ok, mình cũng đã làm được rùi.nhưng ý mình ở đây là viết luôn cái code để cad tạo luôn cái button ấy và assign macro luôn.Cách của bạn thì phải tự tay tạo button 1 cách thủ công..hic..hic..

[vndesperados 254]

Cách của bạn thì ok, mình cũng đã làm được rùi.nhưng ý mình ở đây là viết luôn cái code để cad tạo luôn cái button ấy và assign macro luôn.Cách của bạn thì phải tự tay tạo button 1 cách thủ công..hic..hic..

 

 

Có một từ thế này: KISS... :bigsmile:

Nhưng mà KISS sẽ được hiểu thế này KEEP IT SIMPLE & STUPID

[lucton 0]

Mở Cad vào Help->Developer Help

chọn Tab Search

Đánh vào AddMenuItem or Toolbars.Add

Có tất cả đấy

[phantuhuong 217]

Đây là cách tạo Toolbar mới có tên TestToolbar (lấy từ Help của Cad2004)

 

Sub Example_AddToolbarButton()

Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

' tạo Toolbar mới có tên TestToolbar
Dim newToolBar As AcadToolbar
Set newToolBar = currMenuGroup.Toolbars.Add("TestToolbar")

' Tạo nút trong TestToolbar
Dim newButton As AcadToolbarItem
Dim openMacro As String

' Gán lệnh _open để mở file cho nút đó
openMacro = Chr(95) & "open" & Chr(32)

' Tạo nút lệnh
Set newButton = newToolBar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)


' Hiển thị Toolbar mới
newToolBar.Visible = True

End Sub

[thanhttt 0]

Cho mình hỏi 1 câu về VBA , mình đang làm trò chơi ô chữ trong powerpoint với VBA . Nhưng không biết làm cách nào để có hiệu ứng âm thanh khi ô chữ được lật lên , các bạn giúp mình với.

[pohan 0]

Em mới nhập môn nên có thắc mắc thế này mong các anh chỉ giúp nhé:

- Ngữ pháp lệnh trong vba như thế nào

- Và các code thì tra ở đâu vậy

Em xin cảm ơn nhiều!

[ndtnv 481]

Em mới nhập môn nên có thắc mắc thế này mong các anh chỉ giúp nhé:

- Ngữ pháp lệnh trong vba như thế nào

- Và các code thì tra ở đâu vậy

Em xin cảm ơn nhiều!

Đây là mục lisp, bạn phải hỏi ở mục VBA mới đúng.

Nhờ các mod chuyển bài này và bài trên về đúng vị trí.

Để biết ngữ pháp lệnh VB thì mở VB editor

- Trong CAD, bấm Alt+F11 mở VB editor

- Nhấn F1 để xem help VB

Để biết ngữ pháp lệnh VBA for CAD

- Trong CAD, Nhấn F1 => Help

- Bấm vào ActiveX Automation and VBA => Help VBA for CAD

Nếu không được thì vào

- menu Tools - AutoLisp - Visual Lisp Editor

- Trong cửa sổ Visual Lisp Editor Nhấn F1 => Help

Trong đó có nhiều VD trong phần ActiveX Automation and VBA => Code Examples