Giáo trình hình thành phương pháp lập trình trên autocad và phương pháp hệ thống đối tượng p5

Tạo đối tượng LWPolyline, Polyline LWPolyline là đối tượng dùng để biểu diễn đường đa tuyến “phẳng” và do đó chỉ dùng để thể hiện các đối tượng trong không gian 2D. Điều này giúp cho dữ liệu của đối tượng LWPolyline gọn nhẹ hơn và các thao tác đồ hoạ sẽ thực hiện nhanh hơn. Đó cũng chính là lý do tại sao đối tượng này là có tên là “LightWeight - Nhẹ”.
Nội dung trích xuất từ tài liệu:
Giáo trình hình thành phương pháp lập trình trên autocad và phương pháp hệ thống đối tượng p5 CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD  ' Vẽ đối tượng If ThisDrawing.ActiveSpace = acModelSpace Then Set objEnt = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) Else Set objEnt = ThisDrawing.PaperSpace.AddLine(diemDau, diemCuoi) End If ' Cập nhật đối tượng để hiển thị trên màn hình bản vẽ objEnt.Update End Sub Tạo đối tượng LWPolyline, Polyline  LWPolyline là đối tượng dùng để biểu diễn đường đa tuyến “phẳng” và do đó chỉ dùng để thể hiện các đối tượng trong không gian 2D. Điều này giúp cho dữ liệu của đối tượng LWPolyline gọn nhẹ hơn và các thao tác đồ hoạ sẽ thực hiện nhanh hơn. Đó cũng chính là lý do tại sao đối tượng này là có tên là “LightWeight - Nhẹ”. Để tạo đối tượng LWPolyline, sử dụng phương thức AddLightweightPolyline. Cú pháp phương thức này như sau: Set RetVal = object.AddLightweightPolyline(VerticesList) Tham số Giải thích VerticesList Tham số đầu vào kiểu Variant hoặc mảng kiểu Double, chứa toạ độ các đỉnh của đa tuyến. RetVal Đối tượng kiểu LWPolyline, tham chiếu đến đa tuyến 2D vừa mới được tạo. Khi sử dụng phương thức AddLightweightPolyline, tham số VerticesList sẽ chứa toạ độ các đỉnh của đa tuyến 2D. Toạ độ của mỗi đỉnh được biểu diễn bằng hai thành phần x và y, nên các thành phần của mảng được bố trí theo dạng (p1x,p1y,p2x,p2y,…). Vì vậy số phần tử của tham số VerticesList luôn là bội số của 2 và đương nhiên, tối thiểu cần phải có 4 phần tử (hai điểm) để có thể tạo được đối tượng LWPolyline. CHÚ Ý Mỗi đỉnh của LWPolyline chỉ có hai toạ độ x và y, không có thông số về cao độ. Thay vào đó, người lập trình có thể gán cao độ chung cho toàn bộ đường đa tuyến phẳng này bằng cách thay giá trị cao độ thích hợp cho thuộc tính Elevation. Đoạn mã sau sẽ tạo một đường đa tuyến phẳng gồm có 5 đỉnh trong không gian mô hình: Sub 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) = 2 ' Toạ độ đỉnh 2 points(4) = 2: points(5) = 3 ' Toạ độ đỉnh 3 points(6) = 3: points(7) = 2 ' Toạ độ đỉnh 4 points(8) = 4: points(9) = 4 ' Toạ độ đỉnh 5 ' Tạo đối tượng LWPolyline trong không gian mô hình Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) ZoomAll End Sub 223 Ngoài ra, với VBA trong AutoCAD, người dùng cũng có thể tạo đường đa tuyến phẳng với phương thức AddPolyline. Cú pháp của phương thức này tương tự như của phương thức AddLightweightPolyline: Set RetVal = object.AddPolyline(VerticesList) Tuy nhiên, đối tượng trả về RetVal là đối tượng kiểu Polyline. Tham số VerticesList cũng chứa toạ độ các đỉnh của đa tuyến, nhưng mỗi đỉnh sẽ có 3 thành phần, hai thành phần đầu là toạ độ (x,y) thành phần thứ 3 sẽ không được sử dụng. Khi muốn tạo đường đa tuyến phẳng, nên sử dụng phương thức AddLightweightPolyline, vì đối tượng LWPolyline đã tối ưu hoá cho quá trình hiển thị và lưu trữ trong bản vẽ. Tạo đối tượng 3DPolyline  Phương thức Add3DPoly sẽ tạo một đường đa tuyến 3D dựa trên toạ độ các đỉnh được truyền vào. Cú pháp của phương thức này như sau: Set RetVal = object.Add3DPoly(VerticesList) Tham số Giải thích VerticesList Tham số đầu vào kiểu Variant hoặc mảng kiểu Double, chứa toạ độ các đỉnh của đa tuyến. RetVal Đối tượng kiểu 3DPolyline, tham chiếu đến đa tuyến 3D vừa mới được tạo. Khi sử dụng phương thức Add3DPoly, tham số VerticesList sẽ chứa toạ độ các đỉnh của đa tuyến. Toạ độ của mỗi đỉnh được biểu diễn bằng ba thành phần x, y và z nên các thành phần của mảng được bố trí theo dạng (p1x,p1y,p1z,p2x,p2y,p2z…). Vì vậy số phần tử của tham số VerticesList luôn là bội số của 3 và đương nhiên, tối thiểu cần phải có 6 phần tử (hai điểm) để có thể tạo được đối tượng 3DPolyline. Đoạn mã sau sẽ tạo một đường đa tuyến có 5 đỉnh trong không gian mô hình: Sub VD_AddPolyline() Dim plineObj As Acad3DPolyline Dim points(0 To 14) As Double ' Xác định cách đỉnh của đa tuyến 3D points(0) = 1: points(1) = 1: points(2) = 0 ' Toạ độ điểm 1 points(3) = 1: points(4) = 2: points(5) = 10 ' Toạ độ điểm 2 points(6) = 2: points(7) = 3: points(8) = 30 ' Toạ độ điểm 3 points(9) = 3: points(10) = 2: points(11) = 0 ' Toạ độ điểm 4 points(12) = 4: points(13) = 4: points(14) = 8 ' Toạ độ điểm 5 ' Tạo đường đa tuyến 3D trong không gian mô hình Set plineObj = ThisDrawing.ModelSpace.Add3DPoly (points) ZoomAll End Sub 5.2.5. Tạo đối tượng dạng đường cong 224 CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD  VBA trong AutoCAD cho phép tạo nhiều loại đối tượng dạng đường cong khác nhau, trong đó có hai loại đối tượng rất phổ biến là Circle – đường tròn và Arc – cung tròn. Tất cả các phương thức này đều tạo đối tượng trong mặt phẳng XY. Tạo đối tượng Circle  Để tạo đối tượng Circle, sử dụng phương thức AddCircle. Phương thức này sẽ tạo một đường tròn dựa trên thông số tâm và bán kính của đường tròn: Set RetVal = object.AddCircle(Center, Radius) Tham số Giải thích Center Tham số đầu vào kiểu Variant hoặc mảng 3 phần tử kiểu Double, chứa toạ độ tâm của đường tròn. Radius Tham số đầu vào kiểu Double, là bán kính ...