Các đối tượng được vẽ trên VDraw thực chất là thêm các thực thể (entity) trong danh sách
entities của đối tượng document. Nếu tham số đầu vào của hàm là điểm, bạn có thể đưa vào dưới dạng
- Mảng 3 phần tử tương ứng với 3 tọa độ (x, y, z)
- Mảng 2 phần tử tương ứng với 2 tọa độ (x, y), phần tử z mặc định = 0
- Trong Visual Basic, cách đơn giản nhất để đưa input d ạng điểm là sử dụng hàm
Array (xem ví dụ)
Ví dụ về tạo đối tượng với VDraw: - Tạo mới Project
- Ctrl+T (mở hộp thoại Components), đánh dấu vào VDraw trong danh sách các
Component
- Đưa VDraw component t ừ ToolBox và form, đưa nút lệnh có tên Command1 vào
form
- Click đúp vào nút lệnh để lập trình cho sự kiện Click của nút lệnh Private Sub Command1_Click()
' VDENTITYLIST là class của thư viện VDraw, là danh sách các hình vẽ
' Trong trường hợp này, biến Ents là danh sách các hình vẽ của document Dim Ents As VDENTITYLIST
' VDCIRCLE là class của hình vẽ đường trịn trong thư viện VDraw Dim C As VDCIRCLE, C2 As VDCIRCLE
' Khởi tạo Ents là danh sách các hình vẽ của document hiện tại Set Ents = VDRAW41.ActiveDocument.Entities
' Thêm vào document một đoạn thẳng từ điểm (0,0) đến điểm (5,5) Ents.AddLine Array(0, 0), Array(5, 5)
' Thêm vào document một đường tròn tâm (0,0), bán kính 10 ' Lưu nó trong biến [C]
' Thêm vào document một đường polyline qua 4 điểm Ents.AddPolyLine Array(Array(0, 0), Array(10, 5), _ Array(2, 10), Array(-4, 3))
' Thêm vào document một đường kích thước xiên từ điểm (0,0) đến điểm (5,5) ' Đặt text của đường kích thước đó tại điểm (2,2)
Ents.AddDimAligned Array(0, 0), Array(5, 5), Array(2, 2)
' Tạo thêm 1 bản sao của đường trịn [C], lưu nó trong biến [C2] Set C2 = C.Copy
' Thêm đường tròn này vào document Ents.AddItem C2
' Sửa lại bán kính của nó là 5 đơn vị
C2.radius = 5
' Zoom "E"
VDRAW41.CommandAction.Zoom "E", "USER", "USER" End Sub