Đến nội dung


Hình ảnh
- - - - -

Cho em hỏi về VBA


  • Please log in to reply
8 replies 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 02 November 2007 - 08:36 PM

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

#2 ssg

ssg

    biết lệnh adcenter

  • Vip
  • PipPipPipPipPipPipPip
  • 1228 Bài viết
Điểm đánh giá: 1087 (rất tốt)

Đã gửi 03 November 2007 - 12:45 PM

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

#3 se7en

se7en

    biết vẽ ellipse

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

Đã gửi 04 November 2007 - 05:36 PM

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

#4 vndesperados

vndesperados

    biết lệnh xref

  • Members
  • PipPipPipPipPipPipPip
  • 547 Bài viết
Điểm đánh giá: 253 (khá)

Đã gửi 05 November 2007 - 07:20 AM

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
  • 0

#5 lucton

lucton

    biết pan

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

Đã gửi 17 December 2007 - 03:30 PM

Mở Cad vào Help->Developer Help
chọn Tab Search
Đánh vào AddMenuItem or Toolbars.Add
Có tất cả đấy
  • 0

#6 phantuhuong

phantuhuong

    biết dimstyle

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

Đã gửi 05 September 2008 - 09:19 PM

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

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


#7 thanhttt

thanhttt

    Chưa sử dụng CAD

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

Đã gửi 23 October 2008 - 08:19 AM

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

#8 pohan

pohan

    biết zoom

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

Đã gửi 12 June 2009 - 02:38 PM

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

#9 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 12 June 2009 - 03:42 PM

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
  • 0