Giáo trình phân tích khả năng ứng dụng các phương pháp lập trình trên microsoft access plug in p6 pot

... thể sử dụng phương thức AddVertex. Cú pháp của phương thức này như sau: 250 ThuộctínhLineweight–Chiềudàynét in Thuộc tính Lineweight dùng để thiết lập chiều dày nét in cho các đối ... VD_Coordinate() Dim plineObj As AcadLWPolyline Dim points(0 To 9) As Double ' Xác định các đỉnh của đường đa tuyến points(0) = 1: points(1) = 1 points(2) = 1: point...

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

... Dim plineObj As AcadLWPolyline Dim points(0 To 11) As Double points(0) = 1: points(1) = 1 points(2) = 1: points(3) = 2 points(4) = 2: points(5) = 2 points(6) = 3: points(7) = 2 points(8) ... points(4) = 2: points(5) = 2 points(6) = 3: points(7) = 2 points(8) = 4: points(9) = 4 points(10) = 4: points(11) = 1 Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(point...

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

... points(6) = 3: points(7) = 2 points(8) = 4: points(9) = 4 points(10) = 4: points(11) = 1 ' Tạo đối tượng LWPolyline trong không gian mô hình Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) ... Dichuyểnđốitượng– Phương thứcMove Sử dụng phương thức Move để tịnh tiến đối tượng trong không gian ba chiều. Cú pháp của phương thức này như sau: obj...

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

... 28.2: pointsArray(1) = 17.2: pointsArray(2) = 0 pointsArray(3) = -5: pointsArray(4) = 13: pointsArray(5) = 0 pointsArray(6) = -3.3: pointsArray(7) = -3.6: pointsArray(8) = 0 pointsArray(9) ... cả các đối tượng qua điểm (6.8,9.4,0) ' vào đối tượng SelectionSet Dim point(0 To 2) As Double point(0) = 6.8: point(1) = 9.4: point(2) = 0 ssetObj.SelectAtPoint point End Sub Phư...

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

... qua hai tham số Point1 và Point2. acSelectionSetAll 5 Chọn tất cả các đối tượng đang có trong bản vẽ. Bỏ qua hai tham số Point1 và Point2. Ví dụ sau sẽ minh hoạ cách sử dụng phương thức Select ... End Sub Phương thứcSelectAtPoint Phương thức này sẽ chọn các đối tượng đi qua một điểm cho trước để thêm vào SelectionSet. Cú pháp của phương thức này như sau: object.SelectA...

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

... Example_AddLightWeightPolyline() Dim plineObj As AcadLWPolyline Dim points(0 To 9) As Double ' Xác định các đỉnh của đa tuyến phẳng points(0) = 1: points(1) = 1 ' Toạ độ đỉnh 1 points(2) = 1: points(3) ... textString As String Dim insertionPoint(0 To 2) As Double Dim height As Double ' Tạo đối tượng Text textString = "Hello, World." insertion...

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

... 221 TạođốitượngPoint Sử dụng phương thức AddPoint để thêm một điểm tại vị trí mong muốn. Cú pháp như sau: Set RetVal = object.AddPoint(Point) Tham số Giải thích Point Là tham số đầu vào ... tất các các đối tượng mà người dùng có thể tạo ra trong AutoCAD theo cách vẽ thông thường, cho nên để lập trình tạo ra các đối tượng hình học bằng VBA thì người dùng cần phải th...

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

... khoảng cách giữa hai điểm là khoảng cách trong không gian. Người dùng có thể yêu cầu AutoCAD chỉ tính khoảng cách phẳng bằng cách thực hiện phương thức InitializeUserInput trước khi thực hiện phương ... intData As Integer TenBien = "MIRRTEXT" intData = 0 GiaTri = intData ' Kiểu Integer ThisDrawing.SetVariable TenBien, GiaTri ' Kiểm tra giá trị đã gán sử...

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

... input keyword.” Ví dụ sau minh họa cách sử dụng phương thức GetPoint và các tham số: Sub Example_GetPoint() ' Ví dụ minh họa cách sử dụng phương thức GetPoint. Dim returnPnt As Variant ... sẽ phát sinh lỗi “User input keyword.”. Ví dụ sau minh hoạ cách sử dụng các phương thức này: Sub Example_GetReal() ' Ví dụ sau sử dụng phương thức GetReal và phươ...

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

... ngược lại là FALSE. Giá trị mặc định của tham số này là TRUE. Giáo trình phân tích khả năng ứng dụng các phương pháp lập trình ajax trên autocad ... toạ độ cho các điểm góc point1(0) = 1.3: point1(1) = 7.8: point1(2) = 0 point2(0) = 13.7: point2(1) = -2.6: point2(2) = 0 ‘ Thực hiện phương thức ZoomWindow ZoomWindow point1, point2 End ... 207 Phươ...

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