Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
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 p5', 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ả | CHƯƠNG V LẬP TRÌNH TRÊN AUTOCAD Dim circleObj As AcadCircle Dim center 0 To 2 As Double Dim radius As Double center 0 2 center 1 2 center 2 0 radius 0.5 Set circleObj ThisDrawing.ModelSpace.AddCircle center radius ZoomAll Xác định 2 điểm tạo nên vec-tơ tịnh tiến Dim point1 0 To 2 As Double Dim point2 0 To 2 As Double point1 0 0 point1 1 0 point1 2 0 point2 0 2 point2 1 0 point2 2 0 MsgBox Di chuyển theo trục X 2 đơn vị. Thực hiện di chuyển đối tượng circleObj.Move point1 point2 ZoomAll MsgBox Quá trình dịch chuyển đã kết thúc. End Sub Lấy đối xứng - Phương thức Mirror Sử dụng phương thức Mirror để lấy đối xứ Cú pháp của phương thức này như sau một đối tượng q một trục được xác định trước. Set RetVal object.Mirror Point1 Point2 Tham số Giải thích Object Pointl Point2 RetVal Đối tượự Tham số đầu vào là mảng 3 phần tử kiểu Double chứa toạ độ của điểm thứ nhất và thứ hai của trục đối xứng. Tham chiếu đến đối tượng sau khi đã được lấy đối xứng ọc là đối tượng gốc sẽ được lấy đối xứng. Đoi tượng gốc Trục đối xứng Đổi tượng đã được lẩy đối xứng Minh hoạ Phương thức Mirror. Khi sử dụng phương thức Mirror cần lưu ý đến giá trị của biến hệ thống MIRRTEXT. Biến này sẽ điều khiển cách thức lấy đối xứng với đối tượng văn bản Trước khi lấy đối xứng Sau khi lấy đối xứng Sau khi lấy đối xứng MIRRTEXT 1 MIRRTEXT 0 Hình V-12 Biến hệ thống MIRRTEXT và phương thức Mirror Ví dụ sau sẽ tạo một đường đa tuyến sau đó lấy đối xứng qua trục y 4.25 và đổi màu đối tượng vừa mới được lấy đối xứng thành màu đỏ Sub VD_Mirror Tạo đường đa tuyến Dim plineObj As AcadLWPolyline Dim points 0 To 11 As Double points 0 1 points 1 1 points 2 1 points 3 2 points 4 2 points 5 2 points 6 3 points 7 2 points 8 4 points 9 4 points 10 4 points 11 1 Set plineObj ThisDrawing.ModelSpace.AddLightWeightPolyline points plineObj.Closed True ZoomAll Xác định trục đối xứng Dim point1 0 To 2 As Double Dim point2 0 To 2 As Double point1 0 0 point1 1 4.25 point1 2 0 point2 0 4 point2 1 4.25 point2 2 0 MsgBox Lấy đối xứng
