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

238

' Tạo bộ lọc đối tượng:

Dim gpCode(8) As Integer

Dim dataValue(8) As Variant

gpCode(0) = -4: dataValue(0) = "<and"

gpCode(1) = -4: dataValue(1) = "<or"

gpCode(2) = 0: dataValue(2) = "line"

gpCode(3) = 0: dataValue(3) = "circle"

gpCode(4) = -4: dataValue(4) = "or>"

gpCode(5) = -4: dataValue(5) = "<not"

gpCode(6) = 8: dataValue(6) = "Layer1"

gpCode(7) = -4: dataValue(7) = "not>"

gpCode(8) = -4: dataValue(8) = "and>"

ssetObj.SelectOnScreen gpCode, dataValue

MsgBox "So doi tuong duoc chon: " & ssetObj.Count

End Sub

5.3.5. Loại bỏ đối tượng hình học ra khỏi SelectionSet

Khi muốn loại bỏ các đối tượng ra khỏi SelectionSet (tức là không muốn chọn đối tượng nữa),

thì có thể sử dụng các phương thức sau của đối tượng SelectionSet.

Phương thức RemoveItems

Phương thức này thực hiện loại bỏ một hoặc nhiều đối tượng ra khỏi SelectionSet. Các đối

tượng này sẽ không nằm trong SelectionSet nữa nhưng vẫn còn tồn tại trong bản vẽ. Cú pháp

của phương thức này như sau:

object.RemoveItems Objects

Tham số Giải thích

Object Là đối tượng SelectionSet

Objects Tham số kiểu Variant (mảng các đối tượng) chứa các đối tượng cần loại bỏ ra khỏi

SelectionSet.

Phương thức Clear

Phương thức Clear sẽ loại bỏ tất cả các đối tượng ra khỏi SelectionSet. Sau khi thực hiện

phương thức này, đối tượng SelectionSet vẫn còn tồn tại nhưng không chứa đối tượng nào cả.

Các đối tượng hình học nằm trong SelectionSet lúc trước vẫn tồn tại trên bản vẽ nhưng không

nằm trong đối tượng SelectionSet nữa. Cú pháp của phương thức này như sau:

object.Clear

Trong đó, object là đối tượng SelectionSet.

Phương thức Erase

Phương thức Erase không những loại bỏ tất cả các đối tượng hình học ra khỏi SelectionSet mà

còn thực hiện xoá các đối tượng đó khỏi bản vẽ. Sau khi thực hiện phương thức này, đối tượng