tailieunhanh - Tự động hóa trong thiết kế cầu đường part 10

Khi thực hiện thay đổi chế độ canh hàng của đối tượng, cần lưu ý đến toạ độ điểm được sử dụng để làm điểm canh hàng. Với từng chế độ canh hàng khác nhau, toạ độ điểm này có thể là toạ độ chứa trong thuộc tính InsertionPoint hoặc thuộc tính TextAlignmentPoint: Văn bản canh hàng bằng acAlignmentLeft sẽ sử dụng thuộc tính InsertionPoint để định vị trí của văn bản; | Ý nghĩa của các hằng số này được minh hoạ trong hình sau Khi thực hiện thay đổi chế độ canh hàng của đối tượng cần lưu ý đến toạ độ điểm được sử dụng để làm điểm canh hàng. Với từng chế độ canh hàng khác nhau toạ độ điểm này có thể là toạ độ chứa trong thuộc tính InsertionPoint hoặc thuộc tính TextAlignmentPoint Văn bản canh hàng bằng acAlignmentLeft sẽ sử dụng thuộc tính InsertionPoint để định vị trí của văn bản Văn bản canh hàng bằng acAlignmentAligned hoặc acAlignmentFit sẽ sử dụng cả hai thuộc tính InsertionPoint và TextAlignmentPoint để định vị trí của văn bản Văn bản canh hàng bằng các cách khác sẽ sử dụng thuộc tính TextAlignmentPoint để định vị trí văn bản. Chính vì vậy khi thay đổi chế độ canh hàng cho văn bản cần phải xác định rõ chế độ canh hàng để xác định toạ độ điểm chèn của văn bản cho hợp lý. Ví dụ sau sẽ minh hoạ cách thay đổi chế độ canh hàng cho văn bản. Trong ví dụ có tạo một điểm trong không gian mô hình dùng để tạo điểm tham chiếu để thấy rõ hơn sự thay đổi vị trí của văn bản khi thiết lập lại chế độ canh hàng Sub VD_Alignment Dim textObj As AcadText Dim textstring As String Dim insPoint 0 To 2 As Double aliPoint 0 To 2 As Double Dim height As Double Dim oldPDMODE As Integer Dim pointObj As AcadPoint Định nghĩa đối tượng văn bản đơn textString Hello World. insPoint 0 3 insPoint 1 3 insPoint 2 0 aliPoint 0 3 aliPoint 1 3 aliPoint 2 0 height Tạo đối tượng văn bản trong không gian mô hình Set textObj _ textString insPoint height Lưu kiểu hiển thị điểm oldPDMODE PDMODE Tạo một điểm hình chữ thập tại điểm TextAlighmentPoint để có thể hình dung rõ hơn sự thay đổi Set pointObj aliPoint CHƯƠNG V LẬP TRÌNH TRÊN AUTOCAD acRed Chuyển kiểu hiển thị điểm thành kiểu chữ thập PDMODE 2 Thay chế độ canh hàng. acAlignmentRight Do chế độ canh hàng mới là acAlignmentRight nên điểm tham