Phát triển AutoCAD bằng ActiveX & VBA - Chương 2 pdf

... point1(0) - point2(0) y = point1(1) - point2(1) z = point1 (2) - point2 (2) dist = Sqr((Sqr((x ^ 2) + (y ^ 2) ) ^ 2) + (z ^ 2) ) ’Trình bày kết quả tính MsgBox "Khoang cach giua hai diem la: " ... PreferencesDis p la y PreferencesDraftin g PreferencesFiles PreferencesO p enSave PreferencesOut p u t PreferencesProfile PreferencesSelection PreferencesS y stem P...

Ngày tải lên: 22/07/2014, 14:21

... rộng If msgstr = "" Then msgstr = vbCrLf & "NONE" MsgBox appName & " xdata on " & ent.ObjectName & _ ":" & vbCrLf & msgstr Next ... MsgBox "The attributes for blockReference " &_ blockRefObj.Name & " are: " & vbCrLf _ & strAttributes End Sub Phát triển AutoCAD bằng ActiveX...

Ngày tải lên: 22/07/2014, 14:21

... hay hay cỡ nhỏ. Phát triển AutoCAD bằng ActiveX và VBA | | 1 1 9 9 3 3 ("", "Flyout", "Demonstrates a flyout button", _ "OPEN", True) ’ Tạo ... ButtonType = Choose(Button.Type + 1, "Button", _ "Separator", "Control", "Flyout") msg = msg & ButtonType & ": " If Button...

Ngày tải lên: 22/07/2014, 14:21

... sp(0) - ep(0) y = sp(1) - ep(1) z = sp (2) - ep (2) distance = Sqr((Sqr((x ^ 2) + (y ^ 2) ) ^ 2) + (z ^ 2) ) End Function Lưu kết quả đã thực hiện. Phát triển ứng dụng ActiveX và VBA | | ... | | Chương 13: Thiết kế đường đi dạo trong vườn – Một ví dụ về ActiveX/ VBA Phát triển AutoCAD...

Ngày tải lên: 22/07/2014, 14:21

... Phát triển AutoCAD bằng ActiveX và VBA | | 2 2 8 8 9 9 2. 1. Tham chiếu thư viện đối tượng ActiveX của ứng dụng khác Để lập trình truy cập tới một ứng dụng khác cần chỉ ra cho VBA ... 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ư viện đối tượng của ứng dụng khác 1 Trong VBA IDE, mở menu Tools  Refe...

Ngày tải lên: 22/07/2014, 14:21

... vào bằng lệnh VBALOAD. Đoạn mã lệnh dưới đây sử dụng tệp khởi động của AutoLISP để tải VBA cũng như dự án VBA có tên là myproj.dvb Phát triển AutoCAD bằng ActiveX và VBA | | 2 2 7 7 9 9 ... tên của một bản vẽ không tồn 2 2 8 8 2 2 | | Chương 11: Phát triển ứng dụng bằng VBA Xử lý lỗi sử dụng lệnh On Error Resume Next Ví dụ dưới đây là một ch...

Ngày tải lên: 22/07/2014, 14:21

... Phát triển AutoCAD bằng ActiveX và VBA | | 2 2 3 3 7 7 Khung nhìn xếp cạnh nhau Khung nhìn nổi Trong không gian ... acModelSpace và khi làm việc trong đối tượng PViewport, ActiveSpace có thể Phát triển AutoCAD bằng ActiveX và VBA | | 2 2 3 3 5 5 một đối tượng Block chứa các đối tượng hình học cần in còn ... xác định xem in cái gì và ảnh nằm vừa...

Ngày tải lên: 22/07/2014, 14:21

... get2Dpts(0) & ", " & get2Dpts(1) & vbCrLf & _ get2Dpts (2) & ", " & get2Dpts(3) & vbCrLf & _ get2Dpts(4) & ", " & get2Dpts(5)) ... ", " _ & WCSPnt(1) & ", " & WCSPnt (2) & vbCrLf & _ "The UCS coordinates are: " & UCSPnt(0) & ", " _ & UCSPnt(1) &am...

Ngày tải lên: 22/07/2014, 14:21

... vào. If MsgBox(" ;AutoCAD is about to load " & FileName & vbCrLf _ & "Do you want to continue loading this file?", _ vbYesNoCancel + vbQuestion) <> vbYes Then ... của VBA. Để tạo một lớp mới và khai báo đối tượng Document với các sự kiện: 1 Trong VBA IDE, thêm một lớp: Insert  ClassModule. Phát triển AutoCAD bằng ActiveX và VBA |...

Ngày tải lên: 22/07/2014, 14:21

... To 2) As Double Dim point2(0 To 2) As Double Dim location(0 To 2) As Double ’ Định nghĩa kích thước point1(0) = 5#: point1(1) = 3#: point1 (2) = 0# point2(0) = 10#: point2(1) = 3#: point2 (2) ... insertionPoint(0 To 2) As Double Phát triển AutoCAD bằng ActiveX và VBA | | 1 1 6 6 3 3 3. Hiệu chỉnh kích thước Cũng giống như các đối tượng đồ hoạ khác trong AutoCA...

Ngày tải lên: 22/07/2014, 14:21