TAILIEUCHUNG - Giáo trình hướng dẫn phân tích ứng dụng các phương pháp lập trình trên autocad p3

Phương thức GetDistance được sử dụng để người dùng nhập vào giá trị khoảng cách. Người dù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ình bả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ủa phương thức GetDistance như sau: RetVal | CHƯƠNG V LẬP TRÌNH TRÊN AUTOCAD 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 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 basePnt returnPnt ZoomAll 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ột số â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ôn trả 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ùng nhậ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ười dù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ểm truyề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ành phầ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ức InitializeUserInput 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át sinh lỗi User input keyword. Ví dụ dưới đây minh họa cách sử dụng phương thức GetDistance 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 Nhap khoang cach MsgBox Khoang cach vua nhap la returnDist vbCrLf _ Nhap gia tri tiep theo co

TỪ KHÓA LIÊN QUAN
TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.