[Janna_R]

Всем здравствуйте!

Быть может, кто нибудь поможет найти решение...
Существует текст "АБВГ ДЕ 123" Задача: програмно изменить порядок чередования букв в тексте на "321 ЕД ГВБА"
На caduser.ru, я нашла код, но не знаю как его использовать:

Public Function ReverseStr(ByVal str As String) As String
Dim k As Long, tempStr As String
tempStr = ""
For k = 1 To Len(str)
tempStr = Mid(str, k, 1) & tempStr
Next
ReverseStr = tempStr
End Function

Спасибо!
Жанна

[mamuk]

вот попробуйте

Код:

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

 (defun c:revers_string (/)
  (setq obj (car(entsel "\Укажите текст")))
(setq nev_stirng (vl-list->string (reverse(vl-string->list (cdr(assoc 1 (entget obj)))))))
      (entmod (subst (cons 1 nev_stirng) (assoc 1 (entget obj)) (entget obj))) 
  )

http://dwg.ru/art/8 тут как код использовать

[Janna_R]

2 mamuk

Огромное спасибо!!!

Все работает! Только.... Дайте водицы, а то кушать так хочется, что и переночевать негде :-)

А можно сделать, так что-бы не каждое слово выделять, а рамкой или через фильтр? А заодно и внутри блоков:-)

А насчет кода, что я нашла. Мне кажется, что это не лисп?

Жанна

[mamuk]

Сообщение от Janna_R А заодно и внутри блоков:-)

тут я честно пас, такого не сделаю! тут по опытней товарища надо. да и в каком виде представлен текст может это атрибут?

Сообщение от Janna_R А можно сделать, так что-бы не каждое слово выделять, а рамкой или через фильтр?

надо условия фильтра выбора (слой,цвет, размер), за Многострочный текст ни чего не скажу.

Сообщение от Janna_R А насчет кода, что я нашла. Мне кажется, что это не лисп?

это не лисп скорее всего VBA.

[hwd]

Сообщение от Janna_R А можно сделать, так что-бы не каждое слово выделять, а рамкой или через фильтр? А заодно и внутри блоков:-)

можно. Глянь тут видео - если такое решение устраивает, то в принципе можно в код добавить обработку содержимого блоков. Только предупреждаю сразу - чтобы уметь этим пользоваться, нужно потратить час-другой на ознакомление с регулярными выражениями (тема не сложная).

[Victor]

У нас часто такая задача возникает. Но мы меняем стиль. Реверс редко.

[Олег (jr.)]

Сообщение от Janna_R Быть может, кто нибудь поможет найти решение... Существует текст "АБВГ ДЕ 123" Задача: програмно изменить порядок чередования букв в тексте на "321 ЕД ГВБА" На caduser.ru, я нашла код, но не знаю как его использовать:

Похоже такое происходит после выполнения команды ОТРАЖЕНИЕ или Mirror
Если так тогда установи значение 0 для переменной MIRRTEXT
В командной строке набери MIRRTEXT 0
и все текстовые примитивы будут отражаться после этого нормально

[gomer]

Сообщение от Олег (jr.) Похоже такое происходит после выполнения команды ОТРАЖЕНИЕ или Mirror Если так тогда установи значение 0 для переменной MIRRTEXT

дак это разные вещи, когда текст шиворот навыворот и когда задом наперед
если слетает mirrtext, а это бывает при пользовании неуклюжих лиспов, зеркалящих текст, то можно использовать и это