3. Tại dòng nhắc “Enter Variable(s) to List”, nhấn ENTER
5.2.4. Tạo đối tượng dạng đường thẳng
222
Đường thẳng là đối tượng hình học cơ bản hay được dùng nhất trong AutoCAD. Nhìn chung, ta có thể vẽ các đường thẳng bằng cách nhập vào tham số là tọa độ của các điểm của đường thẳng. Để tạo một đường thẳng, có thể sử dụng một trong những phương thức sau:
Phương thức Giải thích
AddLine Tạo đường thẳng đi qua hai điểm. AddLightweightPolyline Tạo đường đa tuyến 2D.
AddMLine Tạo đường đa tuyến nét đôi. Add3DPoly Tạo đường đa tuyến 3D.
Tạo đối tượng Line
Phương thức thức AddLine sẽ tạo đối tượng Line, là một đoạn thẳng đi qua hai điểm:
Set RetVal = object.AddLine(StartPoint, EndPoint)
Tham số Giải thích
StartPoint, EndPoint Là tham sốđầu vào kiểu variant hoặc mảng 3 phần tử kiểu Double, chứa toạđộđiểm đầu và điểm kết thúc của đoạn thẳng.
RetVal Đối tượng kiểu Line, tham chiếu đến đoạn thẳng vừa mới được tạo.
Ví dụ sau tạo một đoạn thẳng trong không gian mô hình với toạđộ điểm đầu và điểm cuối là (1,1,0) và (5,5,0):
Sub Example_AddLine() Dim lineObj As AcadLine
Dim diemDau(0 To 2) As Double Dim diemCuoi(0 To 2) As Double
' Định điểm đầu và điểm cuối của đoạn thẳng
diemDau(0) = 1#: diemDau(1) = 1#: diemDau(2) = 0# diemCuoi(0) = 5#: diemCuoi(1) = 5#: diemCuoi(2) = 0#
' Tạo đoạn thẳng trong không gian mô hình
Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) ZoomAll
End Sub
Còn trong ví dụ sau, đoạn thẳng sẽđược tạo ra từ hai điểm bất kỳ do người dùng chọn trên màn hình. Đoạn thẳng này sẽđược tạo ra trên không gian mô hình hoặc không gian in, tuỳ thuộc vào không gian nào là hiện hành.
Public Sub TestAddLine() Dim diemDau As Variant Dim diemCuoi As Variant Dim objEnt As AcadLine On Error Resume Next
' Lấy toạ độ điểm đầu và điểm cuối do người dùng nhập diemDau = ThisDrawing.Utility.GetPoint _
(, vbCr & "Chon diem dau: ") diemCuoi = ThisDrawing.Utility.GetPoint _
223 ' Vẽ đối tượng