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

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