[mifi]

Помогите с макросом.

Есть множество мелких надписей повернутых хаотично. Хотелось бы по нажатию кнопки заранее выделенный текст выставлялся например на 0, другую кнопку нажимаешь выставляет на 90 и т.д

Собственно хочется упростить рутинную работу: выделяешь текст, вызываешь свойства, в поле поворот вписываешь нужный угол

[Do$]

Про быстрые свойства слышали?

[gomer]

вам написать за магарыч или не получается применить 'rotation?

[mifi]

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

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

Сообщение от gomer вам написать за магарыч или не получается применить 'rotation?

Написать то сможете? На пивас подкину

[gomer]

Код:

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

 (defun C:TEXTTOZEROANG ()
 
  (defun *error* (msg) (princ))

  (vl-load-com)

  ( (lambda (ss )
      (if ss 
        (foreach
          en
          (vl-remove-if
           'listp
            (mapcar 'cadr (ssnamex ss))
          )
          (vla-put-Rotation (vlax-ename->vla-object en) 0.0)
        )
      )
    )
    (ssget '((0 . "*TEXT") (-4 . "<>")(50 . 0.0)))
  )
  (*error* nil)
)

Кидайте

[Хмурый]

torient из Express Tools

[VVA]

ZeroRotation.lsp Set rotation of objects to zero (based on current UCS)
Выставляешь ПСК на нужный угол и поворачиваешь тексты в 0 текущей ПСК
Этот лисп хорошо применять в модели из пространстве листа. Когда в модели проставил надписи, а в листе они расположены под разными углами, а не вдоль листа.

[Do$]

gomer, звездочку в коде потерял
+ ко всему сказанному, если сделать стиль текста аннотативным, в нем можно задать опцию выравнивания текста по листу. То есть, в модели он будет как угодно, а в листе всегда с нулевым поворотом.

[gomer]

Do$, не пали контору, мне еще на сало не кинули, к тому же

Сообщение от Do$ То есть, в модели он будет как угодно, а в листе всегда с нулевым поворотом.

ага, и все обрезки в *

[Do$]

Не понял про что ты, я про это.

[gomer]

Do$, это в примере все красиво, а в реальном чертеже черт ногу сломит, к тому же у тс все в 2D

[Do$]

Я в реальном это тоже использовал. Тоже 2D.
Вдоль трассы ж.д. пути стоят опоры, у них есть номера. Трасса может изгибаться как угодно. Как в итоге на листах будет размещаться отдельный кусок, на начальном этапе рисования я не знаю. Поставил номера вот таким стилем - и голова не болит, что будут они в видовом экране вверх ногами.
Конечно, не всегда это применимо. Просто хочется быть уверенным, что прежде, чем приниматься за программирование, были рассмотрены все стандартные возможности. А то столько уже велосипедов написано

[АлексЮстасу]

Сообщение от VVA ZeroRotation.lsp Set rotation of objects to zero (based on current UCS) Выставляешь ПСК на нужный угол и поворачиваешь тексты в 0 текущей ПСК

Не поможет ли для просмотра в 3D? Т.е. при повороте в вид сбоку надписи становятся видны только в виде неких черточек - не читаются. Можно их быстро повернуть, чтобы читались?
(По ссылке не скачивал - не удается зарегистрироваться. Не нравятся там мои эл. адреса...)

[VVA]

АлексЮстасу, Команда поворачивает тексты в 0 текущей ПСК. Думаю поможет, но нужно проверять

[АлексЮстасу]

Сообщение от VVA Команда поворачивает тексты в 0 текущей ПСК. Думаю поможет, но нужно проверять

Команда ZeroRotation изменяет угол поворота текстов на 0, но только в плоскости, в которой текст был написан.
Т.е., если чертежу сделать вид сбоку, установить ПСК по виду, то тексты у меня как были черточками, так и остались.

[gomer]

писал я как-то прогу по выворачиванию текста на жопки, но так как на холодец мне не прилетело, то ищите сами