Giáo trình tự động hóa thiết kế cầu đường 7

Tự động hóa trong tất cả lĩnh vực hiện đang được xã hội quan tâm đặc biệt bởi nhờ nónăng suất lao động được nâng cao, chất lượng sản phẩm ổn định và tốt hơn, nhiều ýtưởng mới có cơ hội trở thành hiện thực. Tự động hóa công tác thiết kế công trình giaothông cũng không nằm ngoài quy luật chung đó, hiện nay, hầu hết các công ty tronglĩnh vực tư vấn thiết kế công trình giao thông đều rất chú trọng thực hiện tự động hóacông tác thiết kế trong công ty của mình....
Nội dung trích xuất từ tài liệu:
Giáo trình tự động hóa thiết kế cầu đường 7 CHƯƠNGV:LẬPTRÌNHTRÊNAUTOCAD ‘ Cập nhật những thay đổi cho kiểu đường kích thước objDimStyle.CopyFrom ThisDrawing End SubCó rất nhiều biến hệ thống dùng để định dạng kiểu đường kích thước và các biến hệ thống nàyđều được bắt đầu bằng tiền tố DIM. Người dùng có thể tham khảo các biến hệ thống này trongmục “System Variable” trong tài liệu “AutoCAD Command Reference” có sẵn trong bộ tài liệutrợ giúp của AutoCAD. Dưới đây là danh sách các biến hệ thống định dạng kiểu đường kíchthước hay được sử dụng:Biến Mô tảDIMASZ Kiểu Double. Xác định kích thước mũi tên của đường kích thước.DIMBLK Kiểu String. Xác định tên của loại mũi tên của đường kích thước. Một số giá trị thường dùng: . _OBLIQUE _OPENDIMTSZ Kiểu Double. Xác định kích thước của mũi tên trong trường hợp biến hệ thống DIMBLK được gán bằng _OBLIQUE. Nếu gán bằng số khác không, kiểu mũi tên sẽ được tự động chuyển thành “_OBLIQUE”; nếu gán bằng 0, kiểu mũi tên sẽ là kiểu được xác định trong biến hệ thống DIMBLK.DIMCLRD Kiểu Integer. Xác định màu của đường kích thước và mũi tên.DIMCLRE Kiểu Integer. Xác định màu của đường gióng.DIMCLRT Kiểu Integer. Xác định màu của chữ kích thước.DIMLWD Kiểu Double. Xác định bề dày của đường kích thướcDIMDEC Kiểu Integer. Xác định số chữ số sau dấu phẩy trong phần chữ kích thước.SửdụngkiểuđườngkíchthướcCác đối tượng đường kích thước mới được tạo ra sẽ được lấy định dạng của kiểu đường kíchthước hiện hành. Người dùng có thể thay đổi kiểu đường kích thước hiện hành bằng cách gángiá trị của thuộc tính ActiveDimStyle bằng một đối tượng kiểu đường kích thước. Chẳng hạnnhư khi muốn thay đổi kiểu đường kích thước hiện hành thành kiểu đường kích thước đã đượctạo ở ví dụ trước, có thể dùng đoạn mã sau; ThisDrawing.ActiveDimStyle = objDimStyleHoặc ThisDrawing.ActiveDimStyle = ThisDrawing.DimStyles(NewDimStyle)Ngoài ra, sau khi đường kích thước được tạo ra, người dùng có thể thay đổi kiểu đường kíchthước cho nó bằng cách gán giá trị cho thuộc tính StyleName có trong đối tượng đường kíchthước.Ví dụ sau cho phép người dùng chọn một đường kích thước trên màn hình và thay đổi kiểuđường kích thước của đối tượng đó thành kiểu đường kích thước “NewDimStyle” đã được tạoở ví dụ trước. Sub VD_StyleName() Dim dimEnt As AcadEntity Dim P As Variant 263 ‘ Chọn đối tượng đường kích thước trên màn hình ThisDrawing.Utility.GetEntity dimEnt, P, Chon duong kich thuoc: ‘ Thay đổi kiểu đường kích thước cho đường kích thước được chọn dimEnt.StyleName = NewDimStyle End Sub 5.7.2. Tạo đường kích thước Để tạo mới đường kích thước, người dùng có thể sử dụng các phương thức AddDimXXX, với XXX là loại đường kích thước cần tạo. AutoCAD có nhiều loại đường kích thước khác nhau, dưới đây chỉ trình bày cách thức tạo các loại đường kích thước thường dùng. Đườngkíchthướcdài‐DimAligned Sử dụng phương thức AddDimAligned để tạo mới đường kích thước dài. Với đường kích thước này, người dùng phải xác định 3 điểm: 2 điểm gốc và một điểm xác định vị trí chữ kích thước. Đường kích thước được tạo ra sẽ nằm song song với đoạn thẳng tạo bởi 2 điểm gốc. Hình V-16: Đường kích thước dài. Cú pháp của phương thức AddDimAligned như sau: Set RetVal = object.AddDimAligned(ExtLine1Point, ExtLine2Point, TextPosition) Tham số Giải thích ExtLine1Point Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm gốc thứ nhất. ExtLine2Point Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm gốc thứ hai. TextPosition Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm ghi kích thước. RetVal Đối tượng kiểu DimAligned, tham chiếu đến đối tượng vừa mới được tạo. Ví dụ sau sẽ tạo một đường kích thước dài với toạ độ hai điểm gốc là (5,5,0) và (10,8,0), còn toạ độ điểm ghi kích thước là (6.5,8,0) Sub VD_AddDimAligned() Dim dimObj As AcadDimAligned Dim P1(0 To 2) As Double Dim P2 (0 To 2) As Double Dim location(0 To 2) As Double Định nghĩa các điểm trên đường kích thước P1 (0) = 5#: P1 (1) = 5#: P1 (2) = 0# P2 (0) = 10#: P2 (1) = 8#: P2 (2) = 0# location(0) = 6.5: location(1) = 8#: location(2) = 0#264 CHƯƠNGV:LẬPTRÌNHTRÊNAUTOCAD Tạo đường kích thước dài trong không gian mô hình Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(P1, P2, location) ZoomAll End SubĐườngkíchthướchìnhchiếu‐DimRotatedSử dụng phương thức AddDimRotated để tạo mới đường kích thước hình chiếu. Với đườngkích thước này, người dùng ...