Giáo trình hướng dẫn thiết kế bản vẽ với việc lập tham số phần 7 ppsx

CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD

233

Ví dụ sau thêm tất cả các đối tượng đi qua điểm (6.8 , 9.4 , 0) vào đối tượng SelectionSet có tên

là “MySelectionSet”:

Sub VD_SelectAtPoint()

' Tạo đối tượng SelectionSet

Dim ssetObj As AcadSelectionSet

On Error Resume Next

Set ssetObj = ThisDrawing.SelectionSets("MySelectionSet")

If Err <> 0 Then

Err.Clear

Set ssetObj = ThisDrawing.SelectionSets.Add("MySelectionSet")

Else

ssetObj.Clear

End If

' Thêm tất 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 thức SelectByPolygon

Phương thức này thực hiện chọn các đối tượng để thêm vào SelectionSet dựa trên mối tương

quan với đường đa tuyến do người lập trình xác định trước. Cú pháp của phương thức này như

sau:

object.SelectByPolygon Mode, PointsList[, FilterType][, FilterData]

Tham số Giải thích

Object Là đối tượng SelectionSet

Mode Tham số xác định chế độ chọn đối tượng.

PointsList Tham số tùy chọn, kiểu Variant (mảng kiểu Double) chứa toạ độ 3 chiều của các đỉnh

của đường đa tuyến.

FilterType,

FilterData

Tham số tuỳ chọn, xác định bộ lọc đối tượng (Chi tiết tham khảo phần “Định nghĩa

bộ lọc đối tượng cho SelectionSet” trang 236).

Giá trị của tham số Mode sẽ xác định cách thức lựa chọn đối tượng khi sử dụng phương thức

SelectByPolygon. Giá trị của tham số này có thể là một trong những giá trị sau:

Hằng số Giá trị Ý nghĩa

acSelectionSetFence 2 Chọn các đối tượng có giao cắt với đường bao đa

tuyến có tọa độ các đỉnh xác định bởi PointsList.

acSelectionSetWindowPolygon 6 Chọn các đối tượng nằm hoàn toàn bên trong miền đa

giác có tọa độ các đỉnh xác định bởi PointsList.

acSelectionSetCrossingPolygon 7 Chọn các đối tượng nằm hoàn toàn hoặc một phần

bên trong miền đa giác có tọa độ các đỉnh xác định bởi

PointsList. AutoCAD sẽ tự động vẽ đa giác từ các tọa

độ này theo nguyên tắc các cạnh của đa giác không

giao nhau.