Copy Пример |
Sub Example_Copy() ' Этот пример создает круг и затем копирует этот круг. Новый круг затем ' перемещен. ' Создайте круг 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 MsgBox "Копируйте круг.", , "Copy Пример" ' Копируйте круг Dim copyCircleObj As AcadCircle Set copyCircleObj = circleObj.Copy() ' Определите точки, которые составляют вектор перемещения 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 "Переместите скопированный круг на 2 единицы в направление X.", , "Copy Пример" ' Переместите круг copyCircleObj.Move point1, point2 ZoomAll MsgBox "Законченное перемещение.", , "Copy Пример" End Sub