Line, Ray, Polyline

Một phần của tài liệu giáo trình VBA for CAD (Trang 29 - 32)

1. Line

i. Line Object

Để vẽ một đường thẳng nối giữa 2 điểm ta dùng phương thức sau: Set LineObject = Object.AddLine(StartPoint,EndPoint)

StartPoint Variant Một mảng gồm 3 phần tử, mỗi phần tử lưu trữ lần lượt tọa độ X,Y,Z trong WCS hệ tọa độ gốc để xác định điểm đầu của đoạn thẳng.

EndPoint Variant Một mảng gồm 3 phần tử, mỗi phần tử lưu trữ lần lượt tọa độ X,Y,Z trong WCS hệ tọa độ gốc để xác định điểm cuối của đoạn thẳng.

ii.

2. Ray

3. Polyline

III. Solid, Hatch, Region IV.

CHƯƠNG VI: SELECTION SETS AND GROUPS

AutoCad cho phép người lập trình lựa chọn các đối tượng vẽ trong bản vẽ, nhóm các đối tượng vẽ lại trong một nhóm để dễ quản lý. Đó là các chức năng

Selection Sets và Groups.

Trong chương này chúng ta sẽ học cách để:

- Tạo lập và điều khiển các Selection Sets và Groups. - Lọc các đối tượng (Filter).

- Làm việc với các Pick First. - Sử dụng các Group.

I. Selection Sets

Cách khai báo đối tượng SelectionSets

Dim doixung As AcadSelectionSet

1. Thêm một Selection Sets

Set SelectionSetObject = This Set SelectObj =

ThisDrawing.SelectionSets.Add(TenSelect)

Lưu ý rằng nếu tên của Select đã có rồi thì bạn sẽ không thể thêm vào một Select nữa. Việc AutoCad quản lý các SelectionSets hoàn toàn giống như quản lý các Layer.

Sau đây là một ví dụ về thêm một Selection Private Sub CommandButton1_Click() Dim SelectObj As AcadSelectionSet Dim TenSelect As String

TenSelect = InputBox("Nhap vao ten Select muon them") If TenSelect = "" Then Exit Sub

On Error GoTo 1

Set SelectObj = ThisDrawing.SelectionSets.Add(TenSelect) 1:

If SelectObj Is Nothing Then MsgBox ("Khong them duoc") Else

MsgBox ("Da them " & TenSelect) End If

End Sub

(File SelectionSet)

2. Cách truy nhập một Selection Sets và quay vòng 3. Phương thức Select (adsbygoogle = window.adsbygoogle || []).push({});

4. Select theo điều kiện

5. Phương thức SelectOnScreen

6. Phương thức SelectAtPoint

7. Phương thức SelectByPolygon

8. Thêm hoặc xóa Items

9. Phương thức Clear, Delete và Erase II. PickFirst SelectionSet

1. Các thuộc tính của PickFirst SelectionSet 2. Sự kiện SelectionChange

III. Group

2. Cách truy nhập một Selection Sets và Quay vòng IV.

Một phần của tài liệu giáo trình VBA for CAD (Trang 29 - 32)