镜像可以绕着轴或镜像线创建对象的镜像图像副本。可以镜像所有图形对象。
要镜像对象，请使用该对象的 Mirror 方法。这个方法需要输入两个坐标值。这两个指定的坐标值成为镜像线的端点，然后绕这条线镜像基础对象。在三维中，这条线会形成垂直于 UCS 的 XY 平面的镜像平面并包含镜像线。
与 AutoCAD 中的 mirror 命令不同，此方法将反射的图像放置在图形中并保留原对象。（要删除原来的对象，请使用 Erase 方法。）
要管理 Text 对象的反射特性，请使用 MIRRTEXT 系统变量。MIRRTEXT 的默认设置为开 (1)，这将导致 Text 对象像其他对象一样也被镜像。当 MIRRTEXT 设置为关 (0) 时，不会镜像文字。使用 GetVariable 和 SetVariable 方法可以查询和设置 MIRRTEXT 设置。
用户可以在图纸空间中镜像 Viewport 对象，虽然这样做并不会影响其模型空间视图或模型空间对象。
有关镜像对象的详细信息，请参见《用户手册》中的“复制、偏移或镜像对象”。
本例创建一条优化多段线，然后绕一个轴镜像该多段线。新创建的多段线会着上蓝色。
Sub Ch4_MirrorPolyline()
' 创建多段线
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
' 定义镜像轴
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
' 镜像多段线
Dim mirrorObj As AcadLWPolyline
Set mirrorObj = plineObj.Mirror(point1, point2)
Dim col As New AcadAcCmColor
Call col.SetRGB(125, 175, 235)
mirrorObj.TrueColor = col
ZoomAll
End Sub