[SetQ]

Привет!

В Экспрессах есть команда txtexp, которая разбивает текст на отрезки и дуги. Нужно тоже самое, но для отрезков и полилиний с каким-то типом линии. В итоге надо получить отдельные отрезки заместо пунктиров и т.д.

Никто не встречал?

[SetQ]

похоже, что никак(( на заморском форуме сказали..

[Хмурый]

через связку
_wmfout
_wmfin
согласовать масштабы
и расчленить wmf

[zenon]

Хмурый, не знал

[Хмурый]

Сообщение от zenon Хмурый, не знал

точность не очень большая

[nick49]

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

[SetQ]

Нашёл
Нужны экспрессы. открываем файл C:\Program Files\AutoCAD XXXX\Express\txtexp.lsp, ищем строчки

(-4 . "<OR") ; filter for mtext and text (0 . "MTEXT") (0 . "TEXT") (-4 . "OR>")

удаляем их (такой патч ), перегружаем компьютер. Всё работает по команде txtexp.

[Gotch]

Сообщение от SetQ Нашёл Нужны экспрессы. открываем файл C:\Program Files\AutoCAD XXXX\Express\txtexp.lsp, ищем строчки удаляем их (такой патч ), перегружаем компьютер. Всё работает по команде txtexp.

SetQ такой вопрос
у меня текст после обработки этим лиспом переварачивается на 180 градусов
где в этом лиспе это можно подправить?

[Хмурый]

Gotch, стоит выключить все привязки перед применением команды

[Gotch]

Сообщение от Хмурый Gotch, стоит выключить все привязки перед применением команды

у меня это не повлияло

приложил пример.dwg

линию проводил слева - направо

[Хмурый]

Gotch, я-то полагал, что ты текст расчленяешь, а не линию

[Gotch]

Сообщение от Хмурый Gotch, я-то полагал, что ты текст расчленяешь, а не линию

А да извиняюсь, что неправильно сформулировал свой вопрос

[SetQ]

Gotch, попробуй:

Код:

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

          (command
;;;                   "_.mirror" SS "" PT1 PT2 "_y"
                   "_.WMFOUT" TMPFIL SS "")
 
          (if (findfile tmpfil)                           ; Does WMF file exist?
            (progn
              (command "_.ERASE" SS "")                   ; erase the orignal text
              (setq ss (acet-wmfin TMPFIL))               ; insert the WMF file
;;;              (command "_.mirror" ss "" PT1 PT2 "_y")
            ) ;progn
          ) ;if

или просто стереть "_.mirror" SS "" PT1 PT2 "_y" и (command "_.mirror" ss "" PT1 PT2 "_y").