C C H H Ư Ư Ơ Ơ N N G G V V : : L L Ậ Ậ P P T T R R Ì Ì N N H H T T R R Ê Ê N N A A U U T T O O C C A A D D 243 Dim circleObj As AcadCircle Dim center(0 To 2) As Double Dim radius As Double center(0) = 2#: center(1) = 2#: center(2) = 0# radius = 0.5 Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius) ZoomAll ' Xác định 2 điểm tạo nên vec-tơ tịnh tiến Dim point1(0 To 2) As Double Dim point2(0 To 2) As Double point1(0) = 0: point1(1) = 0: point1(2) = 0 point2(0) = 2: point2(1) = 0: point2(2) = 0 MsgBox "Di chuyển theo trục X 2 đơn vị." ' Thực hiện di chuyển đối tượng circleObj.Move point1, point2 ZoomAll MsgBox "Quá trình dịch chuyển đã kết thúc." End Sub Lấyđốixứng–PhươngthứcMirror Sử dụng phương thức Mirror để lấy đối xứng một đối tượng qua một trục được xác định trước. Cú pháp của phương thức này như sau: Set RetVal = object.Mirror(Point1, Point2) Tham số Giải thích Object Đối tượng hình học, là đối tượng gốc sẽ được lấy đối xứng. Point1, Point2 Tham số đầu vào, là mảng 3 phần tử kiểu Double chứa toạ độ của điểm thứ nhất và thứ hai của trục đối xứng. RetVal Tham chiếu đến đối tượng sau khi đã được lấy đối xứng Minh hoạ: Phương thức Mirror. Khi sử dụng phương thức Mirror, cần lưu ý đến giá trị của biến hệ thống MIRRTEXT. Biến này sẽ điều khiển cách thức lấy đối xứng với đối tượng văn bản: 244 Trước khi lấy đối xứng Sau khi lấy đối xứng (MIRRTEXT=1) Sau khi lấy đối xứng (MIRRTEXT=0) Hình V-12: Biến hệ thống MIRRTEXT và phương thức Mirror Ví dụ sau sẽ tạo một đường đa tuyến, sau đó lấy đối xứng qua trục y=4.25 và đổi màu đối tượng vừa mới được lấy đối xứng thành màu đỏ: Sub VD_Mirror() ' Tạo đường đa tuyến Dim plineObj As AcadLWPolyline Dim points(0 To 11) As Double points(0) = 1: points(1) = 1 points(2) = 1: points(3) = 2 points(4) = 2: points(5) = 2 points(6) = 3: points(7) = 2 points(8) = 4: points(9) = 4 points(10) = 4: points(11) = 1 Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) plineObj.Closed = True ZoomAll ' Xác định trục đối xứng Dim point1(0 To 2) As Double Dim point2(0 To 2) As Double point1(0) = 0: point1(1) = 4.25: point1(2) = 0 point2(0) = 4: point2(1) = 4.25: point2(2) = 0 MsgBox "Lấy đối xứng đường đa tuyến.", , "VD Mirror" ' Thực hiện lấy đối xứng đường đa tuyến Dim mirrorObj As AcadLWPolyline Set mirrorObj = plineObj.Mirror(point1, point2) mirrorObj.Color = acRed ZoomAll MsgBox "Mirror completed.", , " VD Mirror" End Sub LấyOff‐set–PhươngthứcOffset Phương thức Offset sẽ tạo ra một đối tượng mới với đường biên nằm cách đường biên của đối tượng cũ một khoảng được xác định trước. Phương thức này có thể được áp dụng với các đối tượng như: Arc, Circle, Ellipse, Line, LightweightPolyline, Polyline, Spline, và Xline. Phương thức này sẽ trả về mảng chứa các đối tượng vừa mới được tạo. Tuy nhiên, thông thường mảng này chỉ chứa một đối tượng. Cú pháp của phương thức này như sau: Set RetVal = object.Offset(Distance) Tham số Giải thích Object Là đối tượng gốc sẽ được lấy Off-set. C C H H Ư Ư Ơ Ơ N N G G V V : : L L Ậ Ậ P P T T R R Ì Ì N N H H T T R R Ê Ê N N A A U U T T O O C C A A D D 245 Distance Tham số đầu vào, kiểu Double, là khoảng cách lấy off-set. Giá trị của tham số này có thể là số âm hoặc dương. Nếu là số âm thì phương thức này sẽ tạo ra những đối tượng có xu hướng “bán kính nhỏ hơn” đối tượng gốc, trong trường hợp “bán kính nhỏ hơn” không có ý nghĩa thì phương thức này sẽ tạo ra đối tượng có toạ độ X, Y và Z nhỏ hơn đối tượng gốc. RetVal Biến kiểu Variant, là mảng chứa các đối tượng mới được tạo ra. Thông thường, mảng này chỉ có một đối tượng. Ví dụ sau sẽ tạo một đường đa tuyến trong không gian mô hình và lấy off-set đối tượng này một khoảng là 0,25. Đối tượng vừa mới được tạo ra sẽ được đổi màu thành màu đỏ. Sub VD_Offset() ' Tạo đường đa tuyến Dim plineObj As AcadLWPolyline Dim points(0 To 11) As Double points(0) = 1: points(1) = 1 points(2) = 1: points(3) = 2 points(4) = 2: points(5) = 2 points(6) = 3: points(7) = 2 points(8) = 4: points(9) = 4 points(10) = 4: points(11) = 1 Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) plineObj.Closed = True ZoomAll MsgBox "Off-set đa tuyến với khoảng cách 0.25.", , "Ví dụ Offset" ' Lấy Off-set đường đa tuyến Dim offsetObj As Variant offsetObj = plineObj.Offset(0.25) offsetObj(0).Color = acRed ZoomAll End Sub Xoayđốitượng–PhươngthứcRotate Sử dụng phương thức Rotate để xoay một đối tượng quanh một điểm cố định. Cú pháp của phương thức này như sau: object.Rotate BasePoint, RotationAngle Tham số Giải thích Object Là đối tượng sẽ được xoay. BasePoint Là mảng 3 phần tử kiểu Double chứa toạ độ điểm gốc, đối tượng sẽ được quay quanh điểm này. RotationAngle Là tham số kiểu Double, xác định góc xoay đối tượng (tính bằng Radian). Đoạn mã sau sẽ minh hoạ cách thức sử dụng phương thức Rotate: Sub VD_Rotate() ' Tạo đường đa tuyến Dim plineObj As AcadLWPolyline Dim points(0 To 11) As Double points(0) = 1: points(1) = 2 246 points(2) = 1: points(3) = 3 points(4) = 2: points(5) = 3 points(6) = 3: points(7) = 3 points(8) = 4: points(9) = 4 points(10) = 4: points(11) = 2 Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) plineObj.Closed = True ZoomAll MsgBox "Xoay góc 45 độ.", , "VD Rotate " ' Định góc xoay và toạ độ điểm cơ sở Dim basePoint(0 To 2) As Double Dim rotationAngle As Double basePoint(0) = 4: basePoint(1) = 4.25: basePoint(2) = 0 rotationAngle = 45/180*3.1416 ' 45 độ ' Xoay đối tượng plineObj.Rotate basePoint, rotationAngle ZoomAll End Sub Thayđổitỷlệđốitượng–PhươngthứcScaleEntity Sử dụng phương thức ScaleEntity để thay đổi tỷ lệ đối tượng đồng đều theo các phương X, Y và Z. Cú pháp của phương thức này như sau: object.ScaleEntity BasePoint, ScaleFactor Tham số Giải thích Object Là đối tượng sẽ được thay đổi tỷ lệ. BasePoint Mảng 3 phần tử kiểu Double chứa toạ độ điểm gốc, đối tượng sẽ được thay đổi tỷ lệ theo các phương X, Y và Z quanh điểm này quay quanh điểm này. ScaleFactor Tham số kiểu Double, xác định hệ số tỷ lệ khi thay đổi tỷ lệ. Kích thước của đối tượng sẽ được nhân với hệ số tỷ lệ này. Tham số ScaleFactor chỉ nhận giá trị lớn hơn không, nếu nhỏ hơn hoặc bằng không thì VBAIDE sẽ báo lỗi. Giá trị ScaleFactor<1 sẽ thu nhỏ đối tượng, ngược lại sẽ phóng to đối tượng lên. Đốitượngvớivịtrí vàkíchthướcmới Đốitượngvớivịtrívà kíchthướcbanđầu C C H H Ư Ư Ơ Ơ N N G G V V : : L L Ậ Ậ P P T T R R Ì Ì N N H H T T R R Ê Ê N N A A U U T T O O C C A A D D 247 Hình V-13: Minh hoạ phương thức ScaleEntity Đoạn mã sau tạo một đường đa tuyến trong không gian mô hình và sử dụng phương thức ScaleEntity để thay đổi tỷ lệ của đường đa tuyến đó quanh điểm (4 , 4.25 , 0) với hệ số tỷ lệ là 0.5 Sub VD_ScaleEntity() ' Tạo đường đa tuyến Dim plineObj As AcadLWPolyline Dim points(0 To 11) As Double points(0) = 1: points(1) = 2 points(2) = 1: points(3) = 3 points(4) = 2: points(5) = 3 points(6) = 3: points(7) = 3 points(8) = 4: points(9) = 4 points(10) = 4: points(11) = 2 Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) plineObj.Closed = True ZoomAll MsgBox "Thay đổi tỷ lệ với hệ số 0.5", , "Ví dụ ScaleEntity" ' Xác định các tham tham số của phương thức Dim basePoint(0 To 2) As Double Dim scalefactor As Double basePoint(0) = 4: basePoint(1) = 4.25: basePoint(2) = 0 scalefactor = 0.5 ' Thay đổi tỷ lệ đường đa tuyến plineObj.ScaleEntity basePoint, scalefactor ZoomAll End Sub 5.4.2. Hiệu chỉnh đối tượng sử dụng các thuộc tính Không giống như các khi sử dụng các phương thức, người lập trình có thể sử dụng các thuộc tính để hiệu chỉnh sự hiển thị của các đối tượng hình học trong bản vẽ AutoCAD. Sau khi thay đổi thuộc tính của các đối tượng, nên sử dụng phương thức Update có trong đối tượng đó để cập nhật những thay đổi trên bản vẽ. Dưới đây là các thuộc tính thường được sử dụng khi hiệu chỉnh các đối tượng hình học. ThuộctínhColor–Màucủađốitượng Sử dụng thuộc tính Color để lấy hoặc gán màu cho một đối tượng hình học. Thuộc tính này cũng có trong đối tượng Layer với ý nghĩa tương đương. object.Color Tham số Giải thích Object Là đối tượng hình học, hoặc đối tượng Layer. Color Số nguyên hoặc hằng số acColor, xác định màu của đối tượng. Khi một đối tượng mới được tạo ra, giá trị mặc định của thuộc tính này acByLayer 248 Giá trị của thuộc tính Color là số nguyên trong phạm vi từ 0 đến 256, 9 trong các số này được định nghĩa trước với các hằng số acColor trong AutoCAD. Dưới đây là danh sách các hằng số này: Hằng số Giá trị Ý nghĩa acByBlock 0 Màu của đối tượng lấy theo màu của Block chứa đối tượng đó. acRed 1 Màu đỏ. acYellow 2 Màu vàng. acGreen 3 Màu xanh lá. acCyan 4 Màu xanh lam. acBlue 5 Màu xanh da trời. acMagenta 6 Màu tím acWhite 7 Màu trắng hoặc đen tuỳ thuộc vào màu nền. acByLayer 256 Màu của đối tượng lấy theo màu của lớp chứa đối tượng đó. Đoạn mã dưới đây cho phép người dùng chọn đối tượng trên màn hình và thực hiện đổi màu đối tượng được chọn thành màu đỏ: Sub VD_Color() Dim ent As AcadEntity Dim P(2) As Double ‘ Chọn đối tượng trên màn hình On Error Resume Next ThisDrawing.Utility.GetEntity ent, P, "Chon doi tuong can doi mau: " If Not (ent Is Nothing) Then ‘ Đổi màu đối tượng ent.Color = acRed ent.Update End If End Sub ThuộctínhLayer–Lớpchứađốitượng Sử dụng thuộc tính Layer để lấy và thay đổi lớp chứa đối tượng. Thông thường, khi một đối tượng hình học mới được tạo ra, đối tượng đó sẽ được đặt trên lớp hiện hành của bản vẽ. Khi người dùng thay đổi giá trị của thuộc tính Layer thành tên của một lớp khác, đối tượng đó sẽ được tự động chuyển về nằm trên lớp mới này. Nếu người dùng gán cho thuộc tính Layer một tên lớp không có trong bản vẽ thì chương trình sẽ không báo lỗi, và đối tượng vẫn nằm trên lớp cũ. object.Layer Tham số Giải thích Object Là đối tượng hình học. Layer Chuỗi chứa tên của lớp. Đoạn mã dưới đây cho phép người dùng chọn đối tượng trên màn hình và thực hiện đổi lớp của đối tượng được chọn thành lớp “Layer1” (người dùng phải tạo trước một lớp có tên là “Layer1” bằng lệnh của AutoCAD): C C H H Ư Ư Ơ Ơ N N G G V V : : L L Ậ Ậ P P T T R R Ì Ì N N H H T T R R Ê Ê N N A A U U T T O O C C A A D D 249 Sub VD_Layer() Dim ent As AcadEntity Dim P(2) As Double ' Chọn đối tượng trên màn hình On Error Resume Next ThisDrawing.Utility.GetEntity ent, P, "Chon doi tuong can doi lop: " If Not (ent Is Nothing) Then ' Chuyển lớp cho đối tượng ent.Layer = "Layer1" ent.Update End If End Sub ThuộctínhLineType–Kiểuđườngcủađốitượng Để thay đổi kiểu hiển thị của nét vẽ các đối tượng hình học trên màn hình, thiết lập lại thuộc tính Linetype của đối tượng thành một kiểu đường hiện có trong bản vẽ. Thông thường, khi một đối tượng vừa mới được tạo ra, đối tượng sẽ được gán kiểu đường bằng kiểu đường hiện hành trong bản vẽ. Thuộc tính này cũng có hiệu lực với đối tượng Layer. object.Linetype Tham số Giải thích Object Là đối tượng hình học hoặc đối tượng Layer. Linetype Chuỗi chứa tên của kiểu đường của đối tượng. Ngoài ra, thuộc tính này cũng có thể bằng một trong những giá trị đặc biệt sau: CONTINUOUS: đây là kiểu đường mặc định, được AutoCAD tự động tạo ra. BYLAYER: kiểu đường của đối tượng sẽ được lấy bằng kiểu đường đã được gán cho lớp chứa đối tượng. BYBLOCK: kiểu đường của đối tượng sẽ được lấy bằng kiểu đường của block có chứa đối tượng. Đoạn mã dưới đây cho phép người dùng chọn đối tượng trên màn hình và thực hiện đổi kiểu đường của đối tượng được chọn thành “DASHED2” (người dùng phải tạo trước kiểu đường có tên là “DASHED2” bằng lệnh của AutoCAD): Sub VD_LineType() Dim ent As AcadEntity Dim P(2) As Double ' Chọn đối tượng trên màn hình On Error Resume Next ThisDrawing.Utility.GetEntity ent, P, "Chon DT can doi kieu duong: " If Not (ent Is Nothing) Then ' Chuyển kiểu đường cho đối tượng ent.Linetype = "DASHED2" ent.Update End If End Sub CHÚ Ý có thể phải điều chỉnh giá trị của biến hệ thống LTSCALE thì mới quan sát được các kiểu đường không phải là nét liền. 250 ThuộctínhLineweight–Chiềudàynétin Thuộc tính Lineweight dùng để thiết lập chiều dày nét in cho các đối tượng hình học và đối tượng Layer. object.Lineweight Giá trị của thuộc tính này là một hằng số kiểu acLineWeight: Hằng số Bề dày (mm) Hằng số Bề dày (mm) Hằng số Bề dày (mm) acLnWtByLayer Theo lớp acLnWt020 0.2 acLnWt080 0.8 acLnWtByBlock Theo Block acLnWt025 0.25 acLnWt090 0.9 acLnWtByLwDefault Mặc định acLnWt030 0.3 acLnWt100 1.0 acLnWt000 0.0 acLnWt035 0.35 acLnWt106 1.06 acLnWt005 0.05 acLnWt040 0.4 acLnWt120 1.2 acLnWt009 0.09 acLnWt050 0.5 acLnWt140 1.4 acLnWt013 0.13 acLnWt053 0.53 acLnWt158 1.58 acLnWt015 0.15 acLnWt060 0.6 acLnWt200 2.0 acLnWt018 0.18 acLnWt070 0.7 acLnWt211 2.11 Khi một đối tượng hình học vừa mới được tạo ra, giá trị của thuộc tính này là acLnWtByLayer. Nếu không được gán bằng một chiều dày nét in cụ thể, chiều dày nét in sẽ được lấy bằng chiều dày mặc định của AutoCAD, chiều dày này được xác định thông qua biến hệ thống LWDEFAULT (giá trị này có đơn vị là 1/100 của mm). Đoạn mã lệnh sau sẽ minh hoạ cách thức thao tác với thuộc tính Lineweight: Sub VD_LineWeight() Dim circleObj As AcadCircle Dim centerPoint(0 To 2) As Double Dim radius As Double ' Xác định các thông số của đường tròn centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0# radius = 5# ' Tạo đường tròn trong không gian mô hình Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius) ZoomAll ' Hiển thị chiều dày hiện hành của đường tròn MsgBox "Chieu day hien hanh la: " & circleObj.Lineweight ' Thay đổi chiều dày của đường tròn circleObj.Lineweight = acLnWt211 circleObj.Update MsgBox " Chieu day hien hanh la: " & circleObj.Lineweight End Sub Ngoài những thuộc tính như đã giới thiệu ở trên, người lập trình có thể sử dụng các thuộc tính sau để hiệu chỉnh đối tượng: Thuộc tính Đối tượng áp dụng Giải thích C C H H Ư Ư Ơ Ơ N N G G V V : : L L Ậ Ậ P P T T R R Ì Ì N N H H T T R R Ê Ê N N A A U U T T O O C C A A D D 251 Center Arc, Circle. Kiểu Variant (mảng 3 phần tử kiểu double). Toạ độ tâm của đối tượng. Radius Arc, Circle. Kiểu Double. Bán kính của cung tròn hoặc đường tròn. Area Arc, Circle, LWPolyline, Polyline. Kiểu Double. Diện tích vùng khép kín của đối tượng. là thuộc tính đọc-ghi đối với đối tượng Circle, là thuộc tính chỉ đọc với các đối tượng khác. Length Line Kiểu Double. Thuộc tính chỉ đọc xác định chiều dài của đoạn thẳng. TextString MText, Text. Kiểu String. Chuỗi văn bản được hiển thị trong đối tượng văn bản. Alignment Text. Hằng số kiểu acAlignment, xác định chế độ canh hàng theo phương đứng và phương ngang. Rotation DimAligned, DimAngular, DimDiametric, DimOrdinate, DimRadial, DimRotated, MText, Text Kiểu Double. Xác định góc xoay của đối tượng so với phương ngang, được tính bằng Radian. 5.4.3. Hiệu chỉnh đường đa tuyến Như đã được giới thiệu ở phần trước, đối với đường đa tuyến 2D, có hai loại đối tượng là: LWPolyline và Polyline, cách thức hiệu chỉnh hai đối tượng này là tương tự nhau. Tuy nhiên, cần phải chú ý một điểm khác biệt lớn giữa hai đối tượng này: toạ độ tại một đỉnh của đường LWPolyline chỉ có 2 thành phần X và Y, còn toạ độ tại một đỉnh của đường Polyline có cả 3 thành phần X, Y và Z nhưng thành phần thứ 3 sẽ không được sử dụng. Ở đây sẽ tập trung giới thiệu về cách hiệu chỉnh đường đa tuyến dạng LWPolyline. Khi hiệu chỉnh đường đa tuyến, ngoài những cách thức đã được đề cập ở trên, người lập trình thường sử dụng các phương thức và thuộc tính sau: Thuộc tính Giải thích Area Double, chỉ đọc. Diện tích của vùng khép kín tạo bởi đường đa tuyến. Closed Boolean. Bằng TRUE: đường đa tuyến sẽ được khép kín, bằng FALSE: đường đa tuyến sẽ được mở. ConstantWidth Double. Chiều dày của tất cả các đoạn của đường đa tuyến. Elevation Double. Cao độ của đường đa tuyến (toạ độ z của đường đa tuyến). Coordinate(i) Variant (thực chất là mảng 2 hoặc 3 phần tử kiểu Double). Toạ độ của đỉnh thứ i của đường đa tuyến. Coordinates Variant (mảng kiểu Double). Toạ độ của tất cả các đỉnh của đường đa tuyến. Phương thức Giải thích SetWidth Thiết lập chiều dày đầu và chiều dày cuối cho đoạn thứ i của đường đa tuyến. GetWidth Lấy chiều dày đầu và chiều dày cuối cho đoạn thứ i của đường đa tuyến. Dưới đây là một số thao tác hiệu chỉnh đường đa tuyến thường dùng Thêmmộtđỉnhvàođườngđatuyến Để thêm một đỉnh vào đường đa tuyến, có thể sử dụng phương thức AddVertex. Cú pháp của phương thức này như sau: 252 object.AddVertex Index, Point Tham số Giải thích Object Là đối tượng LWPolyline. Index Kiểu Integer. Chỉ số của đỉnh cần thêm vào đường đa tuyến. Đỉnh đầu tiên của đường đa tuyến được đánh số là 0. Giá trị Index nhập vào phải lớn hơn 0. Point Kiểu Variant (mảng 2 phần tử kiểu Double) chứa toạ độ của điểm cần thêm vào đường đa tuyến. Ví dụ sau sẽ minh hoạ cách thức chèn một đỉnh vào đường đa tuyến: Sub VD_AddVertex() Dim plineObj As AcadLWPolyline Dim points(0 To 9) As Double ' Xác định các đỉnh của đường đa tuyến points(0) = 1: points(1) = 1 points(2) = 1: points(3) = 2 points(4) = 2: points(5) = 2 points(6) = 3: points(7) = 2 points(8) = 4: points(9) = 4 ' Tạo đường đa tuyến trong không gian mô hình Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) ZoomAll MsgBox "Them dinh vao duong da tuyen.", , "Vi du AddVertex" ' Định nghĩa toạ độ đỉnh mới Dim newVertex(0 To 1) As Double newVertex(0) = 1.5: newVertex(1) = 1 ' Thêm một đỉnh cào đường đa tuyến plineObj.AddVertex 2, newVertex plineObj.Update MsgBox "Da them dinh vao duong da tuyen.", , "Vi du AddVertex" End Sub Đọchoặcthayđổitoạđộđỉnhcủađườngđatuyến Để đọc hoặc thay đổi toạ độ đỉnh của đường đa tuyến, có thể sử dụng thuộc tính Coordinate(i) có trong đối tượng LWPolyline. Khi sử dụng thuộc tính này, cần lưu ý là chỉ số các đỉnh của đường đa tuyến được đánh số bắt đầu từ 0. Đoạn mã dưới đây sẽ tạo một đường đa tuyến, sau đó thay đổi toạ độ đỉnh thứ 2 của đường đa tuyến và hiển thị toạ độ mới của điểm này trong hộp thông báo. Sub VD_Coordinate() Dim plineObj As AcadLWPolyline Dim points(0 To 9) As Double ' Xác định các đỉnh của đường đa tuyến points(0) = 1: points(1) = 1 points(2) = 1: points(3) = 2 points(4) = 2: points(5) = 2 points(6) = 3: points(7) = 2 points(8) = 4: points(9) = 4 ' Tạo đường đa tuyến trong không gian mô hình Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) ZoomAll MsgBox "Thay doi toa do dinh 2.", , "Vi du Coordinate" . tượng sử dụng các thuộc tính Không giống như các khi sử dụng các phương thức, người lập trình có thể sử dụng các thuộc tính để hiệu chỉnh sự hiển thị của các đối tượng hình học trong bản vẽ AutoCAD. . đối xứng Sau khi lấy đối xứng (MIRRTEXT=1) Sau khi lấy đối xứng (MIRRTEXT=0) Hình V-12: Biến hệ thống MIRRTEXT và phương thức Mirror Ví dụ sau sẽ tạo một đường đa tuyến, sau đó lấy đối xứng. "Quá trình dịch chuyển đã kết thúc." End Sub Lấyđốixứng– Phương thứcMirror Sử dụng phương thức Mirror để lấy đối xứng một đối tượng qua một trục được xác định trước. Cú pháp của phương