[mindchamber]

ДОброго дня. Не нашел решение как можно повернуть множество мультивыносок, чтобы относительное положение текста и стрелки не менялось.

Ниже 3 скрина

1) Исходное состояние
2) Как хотелось бы чтобы было
3) Как он поворачивает если я через свойства поворачиваю.

PS: выноски сохранять свое положение относительно геометрического центра (хотя бы примерно)

[Кулик Алексей aka kpblc]

А обычная _.rotate не срабатывает? Это предположение, если что

[Ingpro]

Сообщение от mindchamber выноски сохранять свое положение относительно геометрического центра (хотя бы примерно)

Может подойти лисп MidRotate.lsp (автора не знаю), который позволяет выбирать несколько объектов, и поворачивать их вокруг своих центров.

----- добавлено через ~2 мин. -----

Сообщение от Кулик Алексей aka kpblc А обычная _.rotate не срабатывает?

обычная _.rotate запрашивает базовую точку и все объекты крутятся вокруг неё...

[Dinoxromniy]

Сообщение от mindchamber Ниже 3 скрина

Это как аудиосообщение в вотсапе, только скрины.

Сообщение от mindchamber чтобы относительное положение текста и стрелки не менялось.

Если готовы заморочиться с VBA, то на нем код будет выглядеть примерно так (насколько можно писать код по скринам, у меня на примере сработало, у вас - кто ж кроме вас этот файл видел):

Код:

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

Sub rot_mleaders()
    Dim sstext As AcadSelectionSet
    Dim FilterType(0) As Integer
    Dim FilterData(0) As Variant
    Dim ent As AcadEntity
    Dim vrtPnt As Variant
    Dim dblPnt(0 To 2) As Double
    Dim ssObj As AcadSelectionSet
    For Each ssObj In ThisDrawing.SelectionSets
        If ssObj.name = "SS3" Then
        ssObj.Delete
        Exit For
        End If
    Next ssObj
    
    FilterType(0) = 0
    FilterData(0) = "MULTILEADER"
    ThisDrawing.SelectionSets.Add("SS3").SelectOnScreen FilterType, FilterData
    For Each ent In ThisDrawing.SelectionSets.Item("SS3")
    vrtPnt = ent.GetLeaderLineVertices(0)
    dblPnt(0) = vrtPnt(0)
    dblPnt(1) = vrtPnt(1)
    dblPnt(2) = vrtPnt(2)
        ent.Rotate dblPnt, Atn((vrtPnt(0) - vrtPnt(3)) / (vrtPnt(1) - vrtPnt(4)))
    
    Next ent
    ThisDrawing.SelectionSets.Item("SS3").Delete
End Sub

Если речь идет о каком то одном конкретном файле - можете приложить выкопировку мультивыносок в исходных координатах, я попробую повернуть и перевыложить. Поворот вокруг острия стрелки выноски.

[mindchamber]

Сообщение от Ingpro Может подойти лисп MidRotate.lsp (автора не знаю), который позволяет выбирать несколько объектов, и поворачивать их вокруг своих центров. ----- добавлено через ~2 мин. ----- обычная _.rotate запрашивает базовую точку и все объекты крутятся вокруг неё...

Спасибо, мужик. То что надо

[Ingpro]

mindchamber, этот код выполняет поворот нескольких MULTILEADER относительно конца стрелки.

[koMon]

mindchamber,
можно менять только угол каждой мультивыноски