Milli aviasiya akademiyasi

Simmetrik çevirmə mirrorObj komandası
SubMirrorPolyline()

DimplineObjAsAcadLWPolyline

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

ZoomExtents

' Simmetriya oxunun təyini

Dim point1(0 To 2) As Double,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

' xətti çevirib rənginin dəyişdirilmisə

Dim mirrorObj As AcadLWPolyline

Set mirrorObj = plineObj.Mirror(point1, point2)

mirrorObj.Color = acRed

ZoomExtents

End Sub