Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
se7en

Cho em hỏi về VBA

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

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:

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
ssg    1.088
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.

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
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..

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
vndesperados    253
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

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
phantuhuong    204

Đâ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

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
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.

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
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!

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
ndtnv    397
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

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  

×