vovongtinhyeu
New Member
Download miễn phí Giáo trình Phát triển AutoCAD bằng ActiveX và VBA
Offset một đối tượng sẽtạo mới một đối tượng đồng dạng và nằm cách một khoảng
so với đối tượng gốc. Ta có thểOffset các đối tượng nhưArc, Circle, Ellipse, Line,
Lightweight polyline, Polyline, Spline và Xline.
ĐểOffset một đối tượng, ta sửdụng cách Offset có trong mỗi đối tượng đó.
Tham số đầu vào duy nhất là khoảng cách đểOffset đối tượng. Nếu khoảng cách
này có giá trịâm, AutoCAD sẽxửlý theo cách tương tựnhưtạo ra có đường cong
“nhỏhơn” (nghĩa là, đối với cung tròn sẽOffset vềphía có bán kính nhỏhơn). Nếu
“nhỏhơn” không có ý nghĩa thì AutoCAD sẽOffset vềphía có tọa độX, Y, Z nhỏ
hơn. Nếu khoảng cách Offset không hợp lệthì sẽphát sinh lỗi (chứa trong giá trị trảvề)
Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phí
Tóm tắt nội dung tài liệu:
dẫn (B) và tham biến kiểu “Boolean” xác định kích thước làkích thước theo trục X hay Y. Nếu chọn TRUE cho “Boolean”, cách sẽ tạo
một kích thước theo trục X, nếu chọn FALSE thì sẽ tạo một kích thước theo trục Y.
Tạo một kích thước dạng toạ độ
Sub Ch5_CreatingOrdinateDimension()
Dim dimObj As AcadDimOrdinate
Dim definingPoint(0 To 2) As Double
Dim leaderEndPoint(0 To 2) As Double
Dim useXAxis As Long
’ Định nghĩa kích thước
definingPoint(0) = 5
definingPoint(1) = 5
definingPoint(2) = 0
leaderEndPoint(0) = 10
leaderEndPoint(1) = 5
leaderEndPoint(2) = 0
useXAxis = 5
’ Tạo kích thước dạng tọa độ trong không gian mô hình
Set dimObj = ThisDrawing.ModelSpace. _
AddDimOrdinate(definingPoint, _
leaderEndPoint, useXAxis)
ZoomAll
End Sub
Phát triển AutoCAD bằng ActiveX và VBA | 163
3. Hiệu chỉnh kích thước
Cũng giống như các đối tượng đồ hoạ khác trong AutoCAD, ta có thể hiệu chỉnh
kích thước bằng cách sử dụng các thuộc tính và cách chuẩn của đối tượng
đó.
Các thuộc tính sau đây dùng cho hầu hết các đối tượng kích thước:
Rotation Xác định góc nghiêng cho đường kích thước theo đơn vị rađian
StyleName Xác định tên của kiểu kích thước
Text Xác định chuỗi ký tự của kích thước
TextPosition Xác định vị trí của chuỗi ký tự kích thước
TextRotation Xác định góc nghiêng của chuỗi ký tự kích thước
Measurement Xác định số đo thực của kích thước
Bên cạnh đó, một số đối tượng kích thước nhất định có những thuộc tính khác dùng
để hiệu chỉnh gốc của đường dóng và chiều dài đường dẫn.
Các cách sau đây có thể sử dụng khi hiệu chỉnh đối tượng kích thước:
ArrayPolar Nhân bản dạng cực
ArrayRectangular Nhân bản dạng chữ nhật
Copy Sao chép đối tượng kích thước
Erase Xoá đối tượng kích thước
Mirror Lấy đối xứng đối tượng kích thước
Move Di chuyển đối tượng kích thước
Rotate Xoay đối tượng kích thước
ScaleEntity Co dãn đối tượng kích thước
Ghi đè chuỗi ký tự kích thước
Giá trị kích thước được hiển thị có thể thay thế được bằng cách dùng thuộc tính
TextOverride. Thuộc tính này có thể thay thế hoàn toàn giá trị hiển thị của kích
thước, hay ta có thể thêm ký tự vào giá trị hiển thị. Ví dụ sau đây sẽ thêm một
chuỗi ký tự vào giá trị kích thước để cả chuỗi ký tự đó và giá trị kích thước cùng
được hiển thị.
Sub Ch5_OverrideDimensionText()
Dim dimObj As AcadDimAligned
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim location(0 To 2) As Double
’ Định nghĩa kích thước
point1(0) = 5#: point1(1) = 3#: point1(2) = 0#
point2(0) = 10#: point2(1) = 3#: point2(2) = 0#
location(0) = 7.5: location(1) = 5#: location(2) = 0#
’ Tạo kích thước đo theo cạnh trong không gian mô hình
Set dimObj = ThisDrawing.ModelSpace. _
AddDimAligned(point1, point2, location)
’ Thay đổi chuỗi ký tự của kích thước
164 | Chương 5: Kích thước và dung sai
dimObj.TextOverride = "The value is "
dimObj.Update
End Sub
4. Kiểu kích thước
Một kiểu kích thước có đặt tên là một nhóm các thiết lập quy định hình thức hiển thị
của kích thước. Với các kiểu kích thước có đặt tên, ta có thể thiết lập và áp dụng các
tiêu chuẩn phác thảo cho bản vẽ.
Tất cả các kích thước đều được tạo ra đều dựa trên kiểu kích thước hiện hành. Nếu
không định nghĩa hay áp dụng một kiểu nào đó trước khi tạo kích thước,
AutoCAD sẽ sử dụng kiểu mặc định là kiểu STANDARD. Để thiết lập kiểu kích
thước hiện hành, ta sử dụng thuộc tính ActiveDimStyle.
Để tạo một kiểu kích thước mẫu, trước hết phải đặt tên và lưu kiểu đó. Kiểu kích
thước mới được dựa trên kiểu hiện hành và bao gồm tất cả những thay đổi cho cách
bố trí các yếu tố kích thước (hộp thoại DDIM Geometry), vị trí của chuỗi ký tự (hộp
thoại DDIM Format) và hình thức hiển thị của chú thích (hộp thoại DDIM
Annotation). Chú thích trong trường hợp này có nghĩa là các đơn vị, sai số, ký tự
chính và phụ.
Để tạo một kiểu kích thước mới, sử dụng cách Add. cách này cần
phải nhập tên của kiểu kích thước mới.
AutoCAD ActiveX Automation cho phép thêm các kiểu kích thước mới và thay đổi
kiểu kích thước hiện hành. Ta cũng có thể thay đổi kiểu kích thước của một kích
thước có sẵn qua thuộc tính StyleName.
Ta cũng có thể sao chép một kiểu kích thước đã có hay thiết lập các kiểu kích
thước ghi đè1. Sử dụng cách CopyFrom để sao chép một kiểu kích thước từ
một đối tượng nguồn thành một kiểu kích thước mới. Đối tượng nguồn có thể là
một đối tượng DimStyle khác, kích thước, một đối tượng Tolerance hay Leader
hay thậm chí là một đối tượng Document. Nếu sao chép các thiết lập từ một kiểu
kích thước khác, kiểu này sẽ được nhân đôi chính xác. Nếu sao chép các thiết lập từ
một kích thước khác, các đối tượng Tolerance hay Leader, cùng với kích thước ghi
1 Kiểu kích thước ghi đè (Dimension Override): là một thay đổi cấu hình nào đó của kiểu kích
thước hiện hành. Điều này tương đương với việc thay đổi biến hệ thống kích thước mà không làm
thay đổi kiểu kích thước hiện hành.
Phát triển AutoCAD bằng ActiveX và VBA | 165
đè cũng được sao chép vào kiểu mới. Nếu sao chép kiểu của một đối tượng
Document, kiểu kích thước hiện hành cùng với các kiểu kích thước ghi đè trong bản
vẽ sẽ được sao chép vào kiểu kích thước mới.
Sao chép các kiểu kích thước và kích thước ghi đè
Ví dụ sau đây tạo ba kiểu kích thước mới và lần lượt sao chép những thiết lập của
kiểu kích thước từ một đối tượng trong bản vẽ, từ một kiểu kích thước và từ những
thiết lập hiện hành trong bản vẽ. Thực hiện theo đúng trình tự sau đây, ta sẽ hiểu
được cách thức tạo một kiểu kích thước mới dựa trên những thiết lập đã có.
1 Tạo một bản vẽ mới và đặt làm bản vẽ hiện hành.
2 Tạo một kích thước dạng đường trong bản vẽ mới. Kích thước này là đối tượng
duy nhất trong bản vẽ.
3 Sử dụng OPhần mềm (Object Properties Manager), thay đổi màu của đường kích thước
thành màu vàng.
4 Thay đổi biến số hệ thống DIMCLRD thành 5 (màu xanh)
5 Thực thi ví dụ sau:
Sub Ch5_CopyDimStyles()
Dim newStyle1 As AcadDimStyle
Dim newStyle2 As AcadDimStyle
Dim newStyle3 As AcadDimStyle
Set newStyle1 = ThisDrawing.DimStyles.Add _
("Style 1 copied from a dim")
Call newStyle1.CopyFrom(ThisDrawing.ModelSpace(0))
Set newStyle2 = ThisDrawing.DimStyles.Add _
("Style 2 copied from Style 1")
Call newStyle2.CopyFrom(ThisDrawing.DimStyles.Item _
("Style 1 copied from a dim"))
Set newStyle2 = ThisDrawing.DimStyles.Add _
("Style 3 copied from the running drawing values")
Call newStyle2.CopyFrom(ThisDrawing)
End Sub
Khi mở hộp thoại DIMSTYLE sẽ có ba kiểu kích thước được liệt kê: kiểu 1 có một
đường kích thước màu vàng, kiểu 2 giống kiểu 1, kiểu 3 có đường kích thước màu
xanh.
4.1. Kiểu kích thước ghi đè
Mỗi kích thước đều có khả năng ghi đè những một số thiết lập nào đó của chính bản
thân kiểu kích thước đó để tạo thành kiểu kích thước ghi đè. Các thuộc tính sau có
trong hầu hết các đối tượng kích thước:
AltRoundDistance Quy định sự làm tròn của các đơn vị thay thế.
AngleFormat Quy định định dạng đơn vị của k