1 Fit polyline: làm ột đường cong trơn bao gồm các cung tròn nối các cặp đỉnh đường Fit polyline Các đường cong này sẽđi qua tất cả các đỉnh của đường đa tuyến và sử dụng một hướng tiếp tuyến
2.12.2.Hiệu chỉnh mẫu tô của vùng tô mẫu
Ta có thểđiều chỉnh góc và khoảng cách của mẫu tô vùng tô mẫu hiện có hoặc thay thế bằng một vùng tô đặc hoặc mẫu tô định nghĩa trước của AutoCAD. Lựa chọn
Pattern trong hộp thoại Boundary Hatch để hiển thị danh sách tất cả các mẫu tô. Để
giảm kích thước tệp, vùng tô mẫu được định nghĩa như một đối tượng đơn nhất trong bản vẽ.
Ví dụ sau minh họa kết quả thay đổi góc vùng tô mẫu 90 độ.
Mẫu tô -
trước khi hiệu chỉnh sau khi hiMẫu tô - ệu chỉnh
Sử dụng các thuộc tính và phương thức sau để hiệu chỉnh mẫu tô:
PatternAngle Xác định góc của mẫu tô.
PatternDouble Xác định xem vùng tô mẫu do người dùng định nghĩa có phải là loại vùng tô nét đôi hay không.
PatternName Xác định tên mẫu tô (không thay đổi loại mẫu tô).
PatternScale Xác định tỷ lệ mẫu tô.
PatternSpace Xác định khoảng cách mẫu tô do người dùng định nghĩa.
SetPattern Thiết lập tên mẫu tô và loại mẫu tô.
Thay đổi khoảng cách mẫu tô
Ví dụ sau tạo vùng tô mẫu, sau đó cộng thêm 2 vào giá trị khoảng cách mẫu tô hiện hành.
Sub Ch4_ChangeHatchPatternSpace() Dim hatchObj As AcadHatch Dim patternName As String Dim PatternType As Long
Dim bAssociativity As Boolean ’ Định nghĩa vùng tô mẫu patternName = "ANSI31" PatternType = 0
bAssociativity = True
’ Tạo đối tượng vùng tô mẫu có liên kết Set hatchObj = ThisDrawing.ModelSpace. _
AddHatch(PatternType, patternName, bAssociativity) ’ Tạo đường biên ngoài của vùng tô mẫu
Dim outerLoop(0 To 0) As AcadEntity Dim center(0 To 2) As Double
Dim radius As Double center(0) = 5
center(1) = 3 center(2) = 0 radius = 3
Set outerLoop(0) = ThisDrawing.ModelSpace. _ AddCircle(center, radius)
hatchObj.AppendOuterLoop (outerLoop) hatchObj.Evaluate
hatchObj.patternSpace = hatchObj.patternSpace + 2 hatchObj.Evaluate
ThisDrawing.Regen True End Sub