[Kostia8_8]

Добрый день Можно ли программно выбрать все примитивы,входящие в некую прямоугольную область(заданную опять же в программе),и отзеркалить их относительно выбранной прямой?
Отзеркаливать выбранный объект методом Mirror я разобрался как,но выбирать так каждый объект чертежа както не оптимально)
Пробовал выбирать примитивы в области методом Select объекта SelectionSet,но запутался,и ничего не отображает..

[Олег (jr.)]

Сообщение от Kostia8_8 Добрый день Можно ли программно выбрать все примитивы,входящие в некую прямоугольную область(заданную опять же в программе),и отзеркалить их относительно выбранной прямой? Отзеркаливать выбранный объект методом Mirror я разобрался как,но выбирать так каждый объект чертежа както не оптимально) Пробовал выбирать примитивы в области методом Select объекта SelectionSet,но запутался,и ничего не отображает..

Попробуй так

Код:

[Выделить все]

Option Explicit

Sub WPMirror()
    Dim oEnt As AcadEntity
    Dim points(0 To 11) As Double
    Dim p1, p2, sp, ep
    Dim i As Integer, j As Integer

    p1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "Specify a first corner point: ")

    p2 = ThisDrawing.Utility.GetCorner(p1, vbCrLf & "Specify an opposite corner: ")

    points(0) = CDbl(p1(0))
    points(1) = CDbl(p1(1))
    points(2) = CDbl(p1(2))

    points(3) = CDbl(p2(0))
    points(4) = CDbl(p1(1))
    points(5) = CDbl(p1(2))

    points(6) = CDbl(p2(0))
    points(7) = CDbl(p2(1))
    points(8) = CDbl(p1(2))

    points(9) = CDbl(p1(0))
    points(10) = CDbl(p2(1))
    points(11) = CDbl(p1(2))

    Dim oSset As AcadSelectionSet

    With ThisDrawing.SelectionSets
    
        While .Count > 0
        
            .Item(0).Delete
            
        Wend
        
        Set oSset = .Add("$MirrorSet$")
        
    End With

    Dim mode As Integer

    mode = acSelectionSetWindowPolygon

    oSset.SelectByPolygon mode, points

    sp = ThisDrawing.Utility.GetPoint(, vbCrLf & "Specify a first of mirror line: ")

    ep = ThisDrawing.Utility.GetPoint(sp, vbCrLf & "Specify a second point of mirror line: ")

    For Each oEnt In oSset

        oEnt.Mirror sp, ep

    Next

End Sub

~'J'~

[Kostia8_8]

Олег (jr.), и опять Большое спасибо

[Олег (jr.)]

Сообщение от Kostia8_8 Олег (jr.), и опять Большое спасибо

Учи базис!