CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD
3. Tại dòng nhắc “Enter Variable(s) to List”, nhấn ENTER
5.7. Thao tác với đường kích thước – Dimension
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.
]ng kích thc dà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 II-93: Đường kích thước dài.
Cú pháp của phương thứcAddDimAlignednhư sau:
Set RetVal = object.AddDimAligned(ExtLine1Point, ExtLine2Point, TextPosition)
Tham s Gii thch
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
http://www.ebook.edu.vn 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#
' 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
]ng kích thc hình chiu - DimRotated
Sử dụng phương thức AddDimRotated để tạo mới đường kích thước hình chiếu. Với đường kích thước này, người dùng cần phải xác định 2 điểm gốc, 1 điểm nằm trên đường kích thước và giá trị góc xoay. Kích thước được ghi là hình chiếu của đoạn thẳng nối 2 điểm gốc lên phương tạo với trục X một góc bằng góc xoay và đi qua điểm nằm trên đường kích thước. Hình dưới đây minh hoạ các thành phần cần thiết để tạo đường kích thước hình chiếu:
Hình II-94: Đường kích thước hình chiếu.
Cú pháp của phương thứcAddDimRotatednhư sau:
Set RetVal = object.AddDimRotated(XLine1Point, XLine2Point, DimLineLocation, RotationAngle)
Tham s Gii thch
XLine1Point Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm gốc thứ nhất.
XLine2Point Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm gốc thứ hai.
DimLineLocation Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm nằm trên đường kích thước.
RotationAngle Kiểu Double. Góc xoay so với phương ngang của phương chiếu, tính bằng Radian.
RetVal Đối tượng kiểu DimRotated, tham chiếu đến đối tượng vừa mới được tạo.
Ví dụ sau tạo một đường kích thước hình chiếu với toạ độ hai điểm gốc là (0,5,0) và (5,5,0); toạ độ điểm nằm trên đường kích thước là (0,0,0); góc xoay phương chiếu bằng 120 độ.
Sub VD_AddDimRotated()
Dim dimObj As AcadDimRotated Dim point1(0 To 2) As Double Dim point2(0 To 2) As Double Dim location(0 To 2) As Double Dim rotAngle As Double
' Xác định các giá trị cần thiết
point1(0) = 0#: point1(1) = 5#: point1(2) = 0#
point2(0) = 5#: point2(1) = 5#: point2(2) = 0#
location(0) = 0#: location(1) = 0#: location(2) = 0#
rotAngle = 120
rotAngle = rotAngle * 3.141592 / 180# ' Chuyển sang Radian ' Tạo đường kích thước hình chiếu trong không gian mô hình
Set dimObj = ThisDrawing.ModelSpace.AddDimRotated _
(point1, point2, location, rotAngle) ZoomAll
End Sub
GỢI Ý Để tạo đường kích thước hình chiếu theo phương ngang (Horizontal) thì gán góc xoay phương chiếu bằng 0, còn đường kích thước hình chiếu theo phương đứng (Vertical) thì gán góc xoay phương chiếu bằng Pi/2.
]ng kích thc góc – DimAngular
Sử dụng phương thức AddDimAngular để tạo mới đường kích thước góc. Với đường kích thước này, người dùng cần phải xác định tâm, hai điểm gốc và vị trí đặt chữ kích thước. Hình dưới đây minh hoạ các thành phần cần thiết để tạo đường kích thước góc:
Hình II-95: Đường kích thước góc Cú pháp phương thức AddDimAngular như sau:
Set RetVal = object.AddDimAngular(AngleVertex, FirstEndPoint, SecondEndPoint, TextPoint)
Tham s Gii thch
AngleVertex Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ tâm của đường kích thước.
FirstEndPoint Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm gốc thứ nhất.
http://www.ebook.edu.vn
SecondEndPoint Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm gốc thứ hai.
TextPoint 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 DimAngular, tham chiếu đến đối tượng vừa mới được tạo.
Ví dụ sau tạo đường kích thước đo góc trong không gian mô hình với toạ độ tâm là (0,5,0); toạ độ các điểm gốc là (1,7,0) và (1,3,0); toạ độ điểm ghi kích thước là (3,5,0):
Sub VD_AddDimAngular()
Dim dimObj As AcadDimAngular Dim angVert(0 To 2) As Double Dim FirstPoint(0 To 2) As Double Dim SecondPoint(0 To 2) As Double Dim TextPoint(0 To 2) As Double
' Xác định các thông số cần thiết để tạo đường kích thước angVert(0) = 0#: angVert(1) = 5#: angVert(2) = 0#
FirstPoint(0) = 1#: FirstPoint(1) = 7#: FirstPoint(2) = 0#
SecondPoint(0) = 1#: SecondPoint(1) = 3#: SecondPoint(2) = 0#
TextPoint(0) = 3#: TextPoint(1) = 5#: TextPoint(2) = 0#
' Tạo đường kích thước đo góc trong không gian mô hình Set dimObj = ThisDrawing.ModelSpace.AddDimAngular(angVert, FirstPoint, SecondPoint, TextPoint)
ZoomAll End Sub
]ng kích thc bán kính – DimRadial
Sử dụng phương thức AddDimRadial để tạo đường kích thước bán kính. Để tạo được đường kích thước này, cần phải xác định được toạ độ tâm, toạ độ điểm đo (nằm trên cung tròn hoặc đường tròn) và chiều dài từ điểm đo đến chữ kích thước.
Hình II-96: Đường kích thước bán kính.
Cú pháp của phương thức AddDimRadial như sau:
Set RetVal = object.AddDimRadial(Center, ChordPoint, LeaderLength)
Tham s Gii thch
Center Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ tâm của đường kích thước.
ChordPoint Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm đo nằm trên đường tròn hoặc cung tròn.
LeaderLength Kiểu Double. Khoảng cách từ chữ ghi kích thước đến điểm đo.
RetVal Đối tượng kiểu DimRadial, tham chiếu đến đối tượng vừa mới được tạo.
Ví dụ sau tạo một đường kích thước bán kính trong không gian mô hình.
Sub VD_AddDimRadial()
Dim dimObj As AcadDimRadial Dim center(0 To 2) As Double Dim chordPoint(0 To 2) As Double Dim leaderLen As Integer
' Xác định các thông số của đường kích thước center(0) = 0#: center(1) = 0#: center(2) = 0#
chordPoint(0) = 5#: chordPoint(1) = 5#: chordPoint(2) = 0#
leaderLen = 2
' Tạo đường kích thước bán kính trong không gian mô hình Set dimObj = ThisDrawing.ModelSpace.AddDimRadial _
(center, chordPoint, leaderLen) ZoomAll
End Sub
]ng kích thc ]ng kính – DimDiametric
Sử dụng phương thức AddDimDiametric để tạo mới đường kích thước đường kính. Để tạo được đường kích thước này, cần phải xác định 2 điểm đo nằm trên đường tròn và khoảng cách từ điểm đo thứ nhất đến chữ ghi kích thước.
Hình II-97: Đường kích thước đường kính.
Cú pháp của phương thức AddDimDiametric như sau:
Set RetVal = object.AddDimDiametric(ChordPoint, FarChordPoint, LeaderLength)
Tham s Gii thch
ChordPoint Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm đo thứ nhất nằm trên đường tròn hoặc cung tròn.
FarChordPoint Kiểu Variant (mảng 3 phần tử kiểu Double). Toạ độ điểm đo thứ hai nằm trên đường tròn hoặc cung tròn.
LeaderLength Kiểu Double. Khoảng cách từ chữ ghi kích thước đến điểm đo thứ nhất.
http://www.ebook.edu.vn
RetVal Đối tượng kiểu DimDiametric, tham chiếu đến đối tượng vừa mới được tạo.
Ví dụ sau minh hoạ cách thức sử dụng phương thức AddDimDiametric.
Sub VD_AddDimDiametric()
Dim dimObj As AcadDimDiametric Dim chordPoint(0 To 2) As Double Dim farChordPoint(0 To 2) As Double Dim leaderLength As Double
' Xác định các thông số của đường kích thước
chordPoint(0) = 5#: chordPoint(1) = 3#: chordPoint(2) = 0#
farChordPoint(0) = 5#: farChordPoint(1) = 5#: farChordPoint(2) = 0#
leaderLength = 2#
' Tạo đường kích thước đường kính trong không gian mô hình Set dimObj = ThisDrawing.ModelSpace.AddDimDiametric _
(chordPoint, farChordPoint, leaderLength) ZoomAll
End Sub