Giáo trình hình thành hệ thống ứng dụng cấu tạo các phương pháp lập trình ajax trên autocad p4

Tham khảo tài liệu giáo trình hình thành hệ thống ứng dụng cấu tạo các phương pháp lập trình ajax trên autocad p4, công nghệ thông tin, đồ họa - thiết kế - flash phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
Nội dung trích xuất từ tài liệu:
Giáo trình hình thành hệ thống ứng dụng cấu tạo các phương pháp lập trình ajax trên autocad p4 CHƯƠNGV:LẬPTRÌNHTRÊNAUTOCADVí 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ênlà “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 SubPhươngthứcSelectByPolygonPhươ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ươngquan 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íchObject Là đối tượng SelectionSetMode 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, Tham số tuỳ chọn, xác định bộ lọc đối tượng (Chi tiết tham khảo phần “Định nghĩaFilterData 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ứcSelectByPolygon. 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ĩaacSelectionSetFence 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. 233 Minh hoạ dưới đây sẽ làm rõ ý nghĩa các giá trị của tham số Mode. Các đường liền là các đối tượng trên bản vẽ của AutoCAD, còn các đường nét đứt là đường đa tuyến nối các đỉnh được cho bởi tham số PointList. Hình V-10: Minh hoạ các chế độ chọn đối tượng của phương thức SelectByPolygon. Kết quả của phương thức SelectByPolygon là rất khác nhau tuỳ thuộc vào giá trị của tham số Mode. Nếu tham số Mode có giá trị là: acSelectionSetFence: đối tượng được chọn là hình ellipese. acSelectionSetWindowPolygon: đối tượng được chọn là hình chữ nhật và hình tròn. acSelectionSetCrossingPolygon: đối tượng được chọn là tất cả các hình trên. Đoạn mã sau sẽ minh hoạ cách thức sử dụng phương thức SelectByPolygon Sub VD_SelectByPolygon() 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 Xác định các đỉnh của đường đa tuyến Dim pointsArray(0 To 11) As Double pointsArray(0) = 28.2: pointsArray(1) = 17.2: pointsArray(2) = 0 pointsArray(3) = -5: pointsArray(4) = 13: pointsArray(5) = 0 pointsArray(6) = -3.3: pointsArray(7) = -3.6: pointsArray(8) = 0 pointsArray(9) = 28: pointsArray(10) = -3: pointsArray(11) = 0 Xác định chế độ chọn đối tượng Dim mode As Integer mode = acSelectionSetFence Chọn đối tượng ssetObj.SelectByPolygon mode, pointsArray End Sub PhươngthứcSelectOnScreen Phương thức này sẽ hiển thị dòng nhắc “Select object:” tại dòng lệnh và cho phép người dùng chọn đối tượng trực tiếp trên màn hình bản vẽ, cách thao tác trên màn hình AutoCAD này tương tự như khi sử dụng các lệnh thông thường khác của AutoCAD, mà có yêu cầu lựa chọn đối tượng (ví dụ như lệnh Copy). Cú pháp của phương thức này như sau:234 CHƯƠNGV:LẬPTRÌNHTRÊNAUTOCADobject.SelectOnScreen [FilterType] [, FilterData]Tham số Giải thíchObject Là đối tượng SelectionSetFilterType, Tham số tuỳ chọn, xác định ...