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

CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD VBA trong AutoCAD cho phép tạo nhiều loại đối tượng dạng đường cong khác nhau, trong đó có hai loại đối tượng rất phổ biến là Circle – đường tròn và Arc – cung tròn. Tất cả các phương thức này đều tạo đối tượng trong mặt phẳng XY. Tạo đối tượng Circle Để tạo đối tượng Circle, sử dụng phương thức AddCircle. | CHƯƠNG V LẬP TRÌNH TRÊN AUTOCAD VBA trong AutoCAD cho phép tạo nhiều loại đối tượng dạng đường cong khác nhau trong đó có hai loại đối tượng rất phổ biến là Circle - đường tròn và Arc - cung tròn. Tất cả các phương thức này đều tạo đối tượng trong mặt phẳng XY. Tạo đối tượng Circle Để tạo đối tượng Circle sử dụng phương thức AddCircle. Phương thức này sẽ tạo một đường tròn dựa trên thông số tâm và bán kính của đường tròn Set RetVal Center Radius Tham số Giải thích Center Tham số đầu vào kiểu Variant hoặc mảng 3 phần tử kiểu Double chứa toạ độ tâm của đường tròn. Radius Tham số đầu vào kiểu Double là bán kính của đường tròn sẽ được tạo. RetVal Đối tượng kiểu Circle tham chiếu đến đường tròn vừa mới được tạo. Đoạn mã sau tạo một đường tròn bán kính bằng 5 và toạ độ tâm là 1 2 0 trong không gian mô hình Sub Example_AddCircle Dim circleObj As AcadCircle Dim centerPoint 0 To 2 As Double Dim radius As Double Xác định tâm và bán kính của đường tròn centerPoint 0 1 centerPoint 1 2 centerPoint 2 0 radius 5 Tạo đối tượng Circle trong không gian mô hình Set circleObj centerPoint radius ZoomAll End Sub Hoặc tâm và bán kính của đường tròn có thể được nhập vào Sub VD_AddCircle Dim varCenter As Variant Dim dblRadius As Double Dim objEnt As AcadCircle On Error Resume Next Lấy các thông số do người dùng nhập vào With varCenter .GetPoint vbCr Chọn tâm đường tròn dblRadius .GetDistance varCenter vbCr Nhập bán kính End With Tạo đối tượng Circle trong không gian mô hình Set objEnt varCenter dblRadius End Sub Tạo đối tượng Arc Để tạo đối tượng Arc sử dụng phương thức AddArc. Phương thức này sẽ tạo ra một cung tròn dựa trên 4 thông số khác nhau để xác định vị trí và kích thước của cung tròn Set RetVal Center Radius StartAngle EndAngle Tham số Giải thích Center Tham số đầu vào kiểu Variant hoặc mảng 3 phần tử kiểu Double chứa toạ độ tâm của cung tròn. Radius .