• TTA
  • Восстановленный участник
  • На форуме с 28 февраля 2006г.
  • Сообщений: 5
  • Спасибо: 0

Тема: Как развернуть все текстовые элементы?

Человеки, как сделать в васике следующее:
"Взорвать" все объекты в файле и повернуть все текстовые элементы вертикально?

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Как развернуть все текстовые элементы?

Sub explode_and_rotate()
Dim elem As Object
ThisDrawing.ActiveSpace = acModelSpace
ThisDrawing.SendCommand "_explode" & vbCr & "all" & vbCr & vbCr
ThisDrawing.ActiveSpace = acPaperSpace
ThisDrawing.SendCommand "_explode" & vbCr & "all" & vbCr & vbCr
For Each elem In ThisDrawing.ModelSpace
    If elem.ObjectName = "AcDbText" Then
        elem.Rotation = 90 * 3.141592 / 180
    End If
Next elem
For Each elem In ThisDrawing.PaperSpace
    If elem.ObjectName = "AcDbText" Then
        elem.Rotation = 90 * 3.141592 / 180
    End If
Next elem
End Sub

Вариант, конечно топорный, но, какой вопрос, - такой и ответ:).
Не понятно, нужно ли это во всех пространствах или только в пространстве модели. Не понятно, - "вертикально", это "+90" или "-90". Не понятно в какой системе координат должен работать макрос.
Так что под определенные условия можно сделать и красивше)).

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Как развернуть все текстовые элементы?

Ну и еще, в зависимости от того, какие объекты в чертеже, возможно надо будет продублировать строки:

ThisDrawing.SendCommand "_explode" & vbCr & "all" & vbCr & vbCr