Cú pháp phương thức này như sau: Set RetVal = object.AddLightweightPolylineVerticesList 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ạ độ
Trang 1CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD
223
' 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
Trang 2224
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
Trang 3CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD
225
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 của đường tròn sẽ được tạo
RetVal Đối tượng kiểu Circle, tham chiếu đến đường tròn vừa mới được tạo
Đoạn mã sau tạo một đường tròn bán kính bằng 5 và toạ độ tâm là (1,2,0) trong không gian
mô hình:
Sub Example_AddCircle()
Dim circleObj As AcadCircle
Dim centerPoint(0 To 2) As Double
Dim radius As Double
' Xác định tâm và bán kính của đường tròn
centerPoint(0) = 1#: centerPoint(1) = 2#: centerPoint(2) = 0#
radius = 5#
' Tạo đối tượng Circle trong không gian mô hình
Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
ZoomAll
End Sub
Hoặc tâm và bán kính của đường tròn có thể được nhập vào:
Sub VD_AddCircle()
Dim varCenter As Variant
Dim dblRadius As Double
Dim objEnt As AcadCircle
On Error Resume Next
' Lấy các thông số do người dùng nhập vào
With ThisDrawing.Utility
varCenter = GetPoint(, vbCr & "Chọn tâm đường tròn: ")
dblRadius = GetDistance(varCenter, vbCr & "Nhập bán kính: ")
End With
' Tạo đối tượng Circle trong không gian mô hình
Set objEnt = ThisDrawing.ModelSpace.AddCircle(varCenter, dblRadius) objEnt.Update
End Sub
Tạo đối tượng Arc
Trang 4226
Để tạo đối tượng Arc, sử dụng phương thức AddArc Phương thức này sẽ tạo ra một cung tròn dựa trên 4 thông số khác nhau để xác định vị trí và kích thước của cung tròn:
Set RetVal = object.AddArc(Center, Radius, StartAngle, EndAngle)
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 cung tròn
Radius Tham số đầu vào kiểu Double, là bán kính của đường tròn sẽ được tạo
StartAngle,
EndAngle Tham số đầu vào kiểu Double, xác định góc bắt đầu và góc kết thúc của cung tròn (tính bằng Radian) Phương thức AddArc sẽ vẽ cung tròn theo chiều ngược chiều
kim đồng hồ từ góc StartAngle đến góc EndAngle
RetVal Đối tượng kiểu Arc, tham chiếu đến cung tròn vừa mới được tạo
Hình V-9: Minh hoạ tham số StartAngle, EndAngle của phương thức AddArc
CHÚ Ý Hầu hết các tham số có liên quan đến góc trong VBA đều có đơn vị là Radian
Đoạn mã sau tạo một cung tròn có tâm (0,0,0) và bán kính là 5 từ góc 45 đến 315 độ Do giá trị tham số góc tính bằng radian nên cần phải chuyển đổi từ độ sang radian:
Sub Example_AddArc()
Dim arcObj As AcadArc
Dim centerPoint(0 To 2) As Double
Dim radius As Double
Dim startAngleInDegree As Double
Dim endAngleInDegree As Double
' Xác định các thuộc tính của cung tròn
centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0
radius = 5 ‘Bán kính
startAngleInDegree = 45 ‘Góc bắt đầu
endAngleInDegree = 315 ‘Góc kết thúc
' Chuyển các góc từ độ sang Radian
Dim startAngleInRadian As Double
Dim endAngleInRadian As Double
startAngleInRadian = startAngleInDegree * 3.141592 / 180
endAngleInRadian = endAngleInDegree * 3.141592 / 180
Trang 5
CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD
227
' Tạo đối tượng Arc trong không gian mô hình
Set arcObj = ThisDrawing.ModelSpace.AddArc _
endAngleInRadian)
ZoomAll
End Sub
5.2.6 Tạo đối tượng văn bản
Văn bản là đối tượng dùng để truyền đạt những thông tin quan trọng trong bản vẽ Ngoài ra, văn bản còn dùng để đặt tiêu đề cho khối, tạo nhãn cho từng thành phần của bản vẽ, thể hiện quy định chung hoặc để làm ghi chú trong bản vẽ
AutoCAD cung cấp nhiều cách khác nhau để tạo văn bản, với những đoạn văn bản ngắn và đơn giản, có thể sử dụng văn bản đơn (Text), với những đoạn văn bản dài hơn, có chứa định dạng riêng bên trong thì có thể sử dụng văn bản nhiều dòng (MText) Mặc dù tất cả các đoạn văn bản mới được tạo đều sử dụng kiểu chữ hiện hành, với những thiết lập mặc định về phông chữ và định dạng nhưng cũng có nhiều cách khác nhau để tùy biến phần hiển thị của đoạn băn bản Trong phạm vi của tài liệu này, chỉ giới thiệu về cách thức tạo đối tượng văn bản
Tạo văn bản đơn (Text)
Văn bản đơn là một đối tượng kiểu văn bản (Text) mà nội dung của nó chỉ bao gồm một dòng văn bản Trong AutoCAD, để tạo đối tượng văn bản đơn trên bản vẽ, người dùng có thể sử dụng lệnh Text hoặc DText Từ VBA, để tạo đối tượng văn bản đơn, sử dụng phương thức AddText của tập đối tượng ModelSpace, cú pháp của phương thức này như sau:
Set RetVal = object.AddText(TextString, InsertionPoint, Height)
Tham số Giải thích
TextString Kiểu String, là chuỗi sẽ được hiển thị trên bản vẽ
InsertionPoint Kiểu Variant (thực chất là mảng 3 phần tử kiểu Double) chứa toạ độ điểm bắt đầu
chèn văn bản
Height Kiểu Double, xác định chiều cao của đoạn văn bản được hiển thị Giá trị của tham
số này phải là số dương Nếu nhập vào giá trị ≤0, chương trình sẽ báo lỗi
RetVal Đối tượng kiểu Text, tham chiếu đến đối tượng văn bản đơn vừa mới được tạo
Ví dụ sau sẽ tạo văn bản một dòng “Hello, World.” trong không gian mô hình tại vị trí (2,2,0) Sub VD_AddText()
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
' Tạo đối tượng Text
textString = "Hello, World."
insertionPoint(0) = 2
insertionPoint(1) = 2
insertionPoint(2) = 0
height = 0.5
Set textObj = ThisDrawing.ModelSpace _
AddText(textString, insertionPoint, height)
textObj.Update
