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 p2

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 p2, 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 p2 CHƯƠNGV:LẬPTRÌNHTRÊNAUTOCAD Nhập điểm sử dụng điểm tham chiếu Dim basePnt(0 To 2) As Double basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0# returnPnt = ThisDrawing.Utility.GetPoint(basePnt, Nhap mot diem: ) MsgBox Toa do WCS cua diem: & returnPnt(0) & , & _ returnPnt(1) & , & returnPnt(2) Vẽ đường thẳng nối từ điểm tham chiếu đến điểm cuối cùng nhập vào Dim lineObj As AcadLine Set lineObj = ThisDrawing.ModelSpace.AddLine(basePnt,returnPnt) ZoomAll End SubGetDistancePhương thức GetDistance được sử dụng để người dùng nhập vào giá trị khoảng cách. Ngườidùng có thể nhập một số thực trực tiếp từ dòng lệnh hoặc có thể chọn hai điểm trên màn hìnhbản vẽ, AutoCAD sẽ tự động trả về giá trị số thực là khoảng cách giữa hai điểm. Cú pháp củaphương thức GetDistance như sau:RetVal = Utility.GetDistance([Point][, Prompt])Tham số Giải thíchPoint Tham số tuỳ chọn, kiểu Variant, là mảng số thực có 3 phần tử thể hiện toạ độ của điểm cơ sở để tính khoảng cách. Nếu tham số này không có thì người dùng phải chọn hai điểm để xác định khoảng cách.Prompt Tham số tuỳ chọn, là chuỗi ký tự sẽ hiện trên dòng lệnh AutoCAD để nhắc người dùng nhập dữ liệu.RetVal Là biến kiểu số thực chứa giá trị trả về của phương thức GetDistance.Phương thức GetDistance cho phép người dùng nhập một số âm tại dòng nhắc và sẽ trả về mộtsố âm tương ứng. Nhưng khi người dùng chọn điểm trên màn hình bản vẽ, phương thức luôntrả về giá trị tuyệt đối của khoảng cách giữa hai điểm.Nếu khoảng cách được nhập vào bằng cách chọn điểm trên màn hình, AutoCAD sẽ tạo ra mộtđường thẳng để giúp người dùng quan sát và đường thẳng này sẽ mất đi sau khi người dùngnhập xong khoảng cách. Nếu không nhập giá trị cho tham số Point, người dùng sẽ phải xácđịnh hai điểm trên màn hình để xác định khoảng cách. Nếu gán giá trị cho tham số Point, ngườidùng chỉ cần chọn thêm một điểm trên màn hình, giá trị khoảng cách sẽ được tính từ điểmtruyền cho tham số Point và điểm cho người dùng chọn.Theo mặc định của AutoCAD, các điểm nhập vào có tọa độ không gian gồm đầy đủ 3 thànhphần (x, y, z) nên khoảng cách giữa hai điểm là khoảng cách trong không gian. Người dùng cóthể yêu cầu AutoCAD chỉ tính khoảng cách phẳng bằng cách thực hiện phương thứcInitializeUserInput trước khi thực hiện phương thức GetDistance với tham số OptionBits tươngứng để AutoCAD bỏ qua thành phần tọa độ z.Nếu người dùng không nhập giá trị hoặc điểm nào cả mà nhấn ENTER thì AutoCAD sẽ phátsinh lỗi “User input keyword.”Ví dụ dưới đây minh họa cách sử dụng phương thức GetDistance: 213 Sub Example_GetDistance() Ví dụ minh họa cách sử dụng phương thức GetDistance. Dim returnDist As Double Nhập và trả về giá trị khoảng cách, có sử dùng dòng nhắc returnDist = ThisDrawing.Utility.GetDistance(, Nhap khoang cach: ) MsgBox Khoang cach vua nhap la: & returnDist & vbCrLf & _ (Nhap gia tri tiep theo co su dung diem co so.) Nhập và trả về giá trị khoảng cách Có sử dùng dòng nhắc và điểm cơ sở Dim basePnt(0 To 2) As Double basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0# returnDist = ThisDrawing.Utility.GetDistance(basePnt, _ Nhap khoang cach: ) MsgBox Khoang cach vua nhap la: & returnDist End Sub GetEntity Phương thức GetEntity được sử dụng để lấy một đối tượng của AutoCAD bằng cách cho phép người dùng chọn trực tiếp bằng chuột trên màn hình đồ họa. Cú pháp của phương thức như sau: Utility.GetEntity Object, PickedPoint[, Prompt] Tham số Giải thích Object Tham số trả về đối tượng được người dùng chọn Pickedpoint Tham số kiểu Variant, trả về mảng số thực có 3 phần tử thể hiện toạ độ của điểm mà người dùng kích chuột để chọn đối tượng. Prompt Tham số tuỳ chọn, là chuỗi ký tự sẽ hiện trên dòng lệnh AutoCAD để nhắc người dùng nhập dữ liệu. Phương thức GetEntity yêu cầu người dùng chọn đối tượng bằng cách kích chuột trên màn hình bản vẽ. Nếu người dùng chọn một đối tượng, đối tượng đó sẽ được trả về thông qua tham số Object và toạ độ của điểm mà người dùng chọn sẽ được trả về trong tham số PickedPoint. Nếu điểm mà người dùng kích chuột không phải đối tượng thì phương thức này sẽ làm phát sinh lỗi. Với phương thức này, người dùng còn có thể chọn nhanh đối tượng được vẽ sau cùng nhất bằng cách nhập ký tự “L” hoặc “l” tại dòng lệnh AutoCAD. Khi dùng lệnh “L” này, nếu đối tượng được vẽ cuối cùng ...