... thức thực thi c a VBA trong AutoCAD
VBA gửi thông điệp cho AutoCAD thông qua giao tiếp AutoCAD ActiveX
Automation. AutoCAD VBA cho phép môi trường VBA thực thi đồng thời với
AutoCAD và cung cấp ... khiển AutoCAD thông qua giao tiếp
ActiveX Automation. Bộ đôi này c a AutoCAD, ActiveX Automation và VBA, tạo
ra giao diện lập trình mạnh mẽ không chỉ trong quá trình...
... cả đối tượng c a AutoCAD và c a ứng dụng
khác.
Đây chính là nơi diễn ra quá trình trao đổi dữ liệu.
Phát triển AutoCAD bằng ActiveX và VBA
|
|
2
2
9
9
3
3
Tạo một tham chiếu đến thư ... tính
c a đối tượng ActiveX. Ngoài ra các ứng dụng Visual LISP cũng có thể gọi các
Macro VBA qua lệnh VBARUN.
ActiveX và các ứng dụng VBA có thể thực hiện các ứng dụng Visu...
... 11: Phát triển ứng dụng bằng VBA
khi AutoCAD bắt đầu hoạt động. Chạy trình soạn thảo notepad.exe và tạo
(hoặc thêm vào) tệp acad.lsp như sau:
(defun S::STARTUP()
(command "_VBALOAD" ... thảo
notepad.exe và tạo mới (hoặc thêm vào) tệp acad.lsp như sau :
(defun S::STARTUP()
(command "_-vbarun" "drawline")
)
Tự động thực thi Macro khi tải VBA
T...
... kiểu c a xdata appName
ent.GetXData appName, xdataType, xdata
’ Nếu biến xdataType ch a được khởi tạo thì không có
’ xdata appName nhận được từ thực thể đó
If VarType(xdataType) <> vbEmpty ... rộng
If msgstr = "" Then msgstr = vbCrLf & "NONE"
MsgBox appName & " xdata on " & ent.ObjectName & _
":" & vbCrLf & msgstr...
... strLayouts(0 To 1) As String
Dim varLayouts As Variant
strLayouts(0) = "Layout1"
strLayouts(1) = "Layout2"
varLayouts = strLayouts
ThisDrawing.Plot.SetLayoutsToPlot varLayouts
’ ... không gian nơi tạo ra đối tượng
Phát triển AutoCAD bằng ActiveX và VBA
|
|
2
2
3
3
9
9
Khi đang ở trong không gian in, AutoCAD sẽ hiển thị biểu tượng c a UCS c...
... MsgBox(" ;AutoCAD is about to load " & FileName & vbCrLf _
& "Do you want to continue loading this file?", _
vbYesNoCancel + vbQuestion) <> vbYes Then
Cancel ... lấy được từ hệ thống
Set ACADApp = GetObject(, " ;AutoCAD. Application")
End Sub
Private Sub ACADApp_BeginTệpDrop _
(ByVal FileName As String, Cancel As Boolean)
’ Ví dụ này ch...