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
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.