[ripeinik]

Добрый день, люди добрые! Помогите кто чем может,если может...

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

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

Делать это вручную я офигею, их там мильон штук на 5 чертежах (да-да,это кто-то типа "исполнительную" делал ВРУЧНУЮ забивая текст и зачем-то его при этом сдвигая...а мне теперь надо сделать поверхность но точную, а не абы какую...)

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

помогите, а то я ослепну...

[Alan]

А м.б. текст точкой вставки надо сдвигать к пересечению сеток влево?
Нужен уточнить алгоритм задачи размещения текста.
И чем задана сетка?

[Bull]

штатной возможности вроде нету. А для лиспа могу алгоритм подсказать. Принцип - в выделении по строкам и по столбцам поочередно (благо, совершенной анархии в расположении нет, судя по картинке). Всему тексту назначить выравнивание "снизу справа". Затем выделенному столбцу назначить координату по X одну и то же. Так все столбцы. Потом построчно также координаты Y. Сам в лиспах не силен, составить не смогу.

[ripeinik]

Сообщение от Alan А м.б. текст точкой вставки надо сдвигать к пересечению сеток влево? Нужен уточнить алгоритм задачи размещения текста. И чем задана сетка?

нет, на это чертеже надо именно направо, на другом-налево... там просто вон те три верхние правые точки уже на своих местах

сетка задана полилиниями, это в общем не принципиально, она одинаковая,могу задать хоть точками, хоть отрезками,хоть чем

Сообщение от Bull штатной возможности вроде нету. А для лиспа могу алгоритм подсказать. Принцип - в выделении по строкам и по столбцам поочередно (благо, совершенной анархии в расположении нет, судя по картинке). Всему тексту назначить выравнивание "снизу справа". Затем выделенному столбцу назначить координату по X одну и то же. Так все столбцы. Потом построчно также координаты Y. Сам в лиспах не силен, составить не смогу.

анархия есть и еще какая, ибо на картинке только маленькая часть той беды,что у меня перед глазами. они все сдвинуты примерно в одну и ту же сторону, грубо говря на СЗ или на ЮВ но на разные расстояния

а как назначить тексту всему выравнивание? имеете в виду лисп, а не в автокаде? для меня лисп это вообще где-то за пределами разума

[Bull]

Сообщение от ripeinik анархия есть и еще какая,

Я имел ввиду, что такое размещение позволяет выделить рамкой отдельный столбец или строку без перемешиваний с соседними.

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

Сообщение от ripeinik для меня лисп это вообще где-то за пределами разума

Для меня тоже не сильно ближе. Но тут есть спецы, которые могут помочь в разных ситуациях. Останется только их творение внедрить в АКАД, а это несложно.

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

Сообщение от ripeinik а как назначить тексту всему выравнивание? имеете в виду лисп, а не в автокаде?

Вот тут как раз лисп-то и не нужен. Надо просто весь текст (или рамкой) выделить и через панель свойств назначить выравнивание

[ripeinik]

Сообщение от Bull Я имел ввиду, что такое размещение позволяет выделить рамкой отдельный столбец или строку без перемешиваний с соседними. ----- добавлено через ~3 мин. ----- Для меня тоже не сильно ближе. Но тут есть спецы, которые могут помочь в разных ситуациях. Останется только их творение внедрить в АКАД, а это несложно. ----- добавлено через ~3 мин. ----- Вот тут как раз лисп-то и не нужен. Надо просто весь текст (или рамкой) выделить и через панель свойств назначить выравнивание

а. ну тогда я вас поняла.. это конечно немного сократит работу но хотелось бы еще более автоматизированно..
но на безрыбье... спасибо в общем=)

[Bull]

переименуй тему "помогите составить lisp на изменение координат текстов", может, подлетят спецы

[Сергей Богатов]

Может смещение произошло из-за отсутствующего шрифта в системе? Выложи файл (не картинку, а именно ДВГшку)

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

Напоминаю, что вопрос автором размещен в разделе "AutoCAD", а не "Программирование"...

[Bull]

Сообщение от Сергей Богатов Может смещение произошло из-за отсутствующего шрифта в системе? Выложи файл (

Да ладно, там же видно, что не в этом дело. "Съехало" бы одинаково

Сообщение от Кулик Алексей aka kpblc Напоминаю, что вопрос автором размещен в разделе "AutoCAD", а не "Программирование"...

Советуете новую тему открыть автору?

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

Я советую, если не найдено другое решение, а) переименовать тему; б) "обратить внимание" с просьбой перемещения.
Вообще-то, я думаю, задача может быть решена и вручную: выделяется, например, столбец, вызывается окно свойств, устанавливается координата Х для точки вставки текстов (уточнение: выделенных текстов). Аналогично по строкам.

[Nordek]

А Вы бы как хотели, чтобы работала "автоматизация", опишите порядок Ваших действий и действий "Автоматизатора", например: "Мне нужно выделять кривой текст мышкой, а затем указывать точку куда ему нужно встать и текст прыгает на вновь указанное место, например на пересечение осей (как у Вас на картинке)"?

[Bull]

Сообщение от Кулик Алексей aka kpblc Вообще-то, я думаю, задача может быть решена и вручную:

...

Сообщение от ripeinik Делать это вручную я офигею, их там мильон штук на 5 чертежах

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

За автора ни переименовывать тему, ни инициировать ее перемещение не буду.

[ripeinik]

Сообщение от Кулик Алексей aka kpblc Напоминаю, что вопрос автором размещен в разделе "AutoCAD", а не "Программирование"...

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

Сообщение от Bull Сообщение от Сергей Богатов Может смещение произошло из-за отсутствующего шрифта в системе? Выложи файл ( Да ладно, там же видно, что не в этом дело. "Съехало" бы одинаково

именно, шрифты присутствуют

в принципе проблема уже решилась автокадовскими методами, спасибо Bull, однако, чую придут вскоре еще стотыщпицот чертежей и мне опять придется исправлять Х и Y, а столбцов там ойойойой 3 км через 20 метров сетка.. так что все еще надеюсь на помощь "спецов"

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

Сообщение от Nordek А Вы бы как хотели, чтобы работала "автоматизация", опишите порядок Ваших действий и действий "Автоматизатора", например: "Мне нужно выделять кривой текст мышкой, а затем указывать точку куда ему нужно встать и текст прыгает на вновь указанное место, например на пересечение осей (как у Вас на картинке)"?

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

потом о чудо мне тут подсказали,и я создала ПСК с началом координат в сетке, потом выровняла весь текст, потом выделяла 1 строку-задавала одинаковый y1 для всего текста в этой строке, потом вторую строку - у2, и т.д. и так же со столбцами и координатой х, только вот строк всего, 3 а столбцов 150, а чертежей 5, а сколько их завтра придет-неизвестно, так что такой способ хоть и быстрее в разы, все равно как-то не очень

[Дима_]

Сообщение от ripeinik а столбцов там ойойойой 3 км через 20 метров сетка..

сетка равномерная (размер "ячеек" одинаковый)?

[Сергей Богатов]

если у нас есть равномерная сетка, и мы знаем максимальное смещение текста от узлов этой сетки, то можно наваять достаточно простую программу:
1. проверяем является ли остаток от деления координат текста на координаты ближайших узлов (если они жёстко заданы по какой-либо формуле) меньше максимального отдаления текста от узла
2. если 1=true то двигаем текст в узел. иначе выдаём лог, что такие-то тексты находятся вне поля сетки

P.S.
Будет работать только если максимальное смещение явно меньше 1/2 размера между узлами сетки... И ещё нет смещения некоторых текстов в одну сторону - тексты будут "слипаться"

[ripeinik]

Сообщение от Дима_ сетка равномерная (размер "ячеек" одинаковый)?

ну, скажем так, между столбцами одинаково (20метров) а между строками благо их всего три можно сделать, так что считаем что да, равномерная, 20х20

Сообщение от Сергей Богатов P.S. Будет работать только если максимальное смещение явно меньше 1/2 размера между узлами сетки... И ещё нет смещения некоторых текстов в одну сторону - тексты будут "слипаться"

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

Сообщение от Сергей Богатов то можно наваять достаточно простую программу:

тааааааааа

[VVA]

Сообщение от ripeinik а мне теперь надо сделать поверхность но точную, а не абы какую

А зачем текст двигать? Можно назначить точке координату Z ближайшего текста
Программа для установки Z-координаты точки текста рядом с ней
Различные вариации на эту тему

[ripeinik]

Сообщение от VVA А зачем текст двигать? Можно назначить точке координату Z ближайшего текста Программа для установки Z-координаты точки текста рядом с ней Различные вариации на эту тему

а кто ж знал, что так можно было? =)

спасибо! попробую

[Дима_]

Сообщение от ripeinik ну, скажем так, между столбцами одинаково (20метров) а между строками благо их всего три можно сделать

на скорую руку как-то так, запускать командой test

Код:

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

  (vl-load-com)
(defun round(x)
  ((lambda (fx)
     (if (< (abs (- x fx)) 0.5) fx (if (< x 0) (1- fx) (1+ fx))))
   (fix x)))
(defun c:test()
  ((lambda (pt w h ent-lst doc)
     (vla-startundomark doc)
     (mapcar '(lambda (lst)
                ((lambda (x y)
                   (entmod (subst (list 10 x y (last (assoc 10 lst))) (assoc 10 lst) lst)))
                 (+ (* (round (/ (- (cadr (assoc 10 lst)) (car pt)) w)) w) (car pt))
                 (+ (* (round (/ (- (caddr (assoc 10 lst)) (cadr pt)) h)) h) (cadr pt))))
             ent-lst)
     (vla-endundomark doc))
   (getpoint "\nНачало сетки: ")
   (getdist "\nШаг по X: ")
   (getdist "\nШаг по Y: ")
   (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "*text")))))))
   (vla-get-activedocument (vlax-get-acad-object))))

p.s. - исправил округление...