[Малявка]

"Фрагмент.dwg" - небольшая часть PDF-файла, пропущенного через Corel Draw.
Все высотные отметки взорваны. пунктирные линии взорваны.
Проштудировала все посты про "объединение слов". Не нашла подходящих лиспов к моему случаю. Функция из Express не подходит: для правильного отображения результата требует точечного выбора в строгой последовательности, а я хочу рамкой.
Всех примитивов в чертеже - 400 тысяч!
Прошу помощи.
Спасибо.
____________________
p.s Предполагаю такой алгоритм склеивания текста:
После запуска макроса командная строка предлагает выбрать несколько примитивов.
Выбираю рамкой или индивидуально какую-то одну отметку, например "1", "5", "0", ".", "1", "6", причём в произвольной последовательности знаков.
После этого ком. строка предлагает выбрать базовую точку будущего примитива
Я указываю мышкой.
Затем макрос соединяет все выбранные примитивы "текст", считая их по оси "Х" слева направо, даже если они расположены под углом. Это важно, так как просмотренные мною программы склеивают примитивы не так, как надо.
В конце работы макрос формирует нужный склеенный примитив под таким же углом и с базовой точкой в указанном месте, на новом слое, например, "Отметки", или на текущем слое. Получается "150.16".
Удаляет старые примитивы.
На всякий случай, надо предусмотреть возможность Ctrl+Z

Работаю в AutoCAD 2011 RUS

[Kirill_Ja]

Самый простой способ реализации - через эту ветку))))
А если серьезно, может проще просто выехать в поле и переснять?
Или перецифровать растр. Установить его в качестве подложки в любой программе (обвеске) для рисования топографии.
В Геониксе там или Кредо Топоплане.

[Малявка]

Kirill_Ja, спасибо за совет. Первый способ простой, да не дешевый ))
Я предполагаю (хотя, это только мои мысли), что эти отметки как раз и будут использоваться в Геониксе.
А что, действительно сложно сделать, чтобы макрос вычислял координату "Х" у базовых точек выделенных примитивов "текст"?
А потом в восходящем порядке формировал бы из них один примитив.

[Do$]

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

Код:

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

(defun _dwgru-conv-pickset-to-list (value / tab item)
  (repeat (setq	tab  nil
		item (sslength value)
	  ) ;_ end setq
    (setq tab (cons (ssname value (setq item (1- item))) tab))
  ) ;_ end repeat
) ;_ end defun

(defun c:textapp (/ ss lst txt str)

  (setq ss (ssget '((0 . "TEXT"))))
  (setq lst (_dwgru-conv-pickset-to-list ss))
  (setq	lst (vl-sort lst
		     '(lambda (a b)
			(< (cadr (assoc 10 (entget a)))

			   (cadr (assoc 10 (entget b)))
			)
		      )
	    )
  )
  (setq txt (car lst))
  (setq str "")
  (foreach deltxt (cdr lst)
    (setq str (strcat str (cdr (assoc 1 (entget deltxt)))))
    (entdel deltxt)
  )
  (entmod
    (list (cons -1 txt)
	  (cons 1 (strcat (cdr (assoc 1 (entget txt))) str))
    )
  )
)

[Малявка]

Do$, спасибо огромное! Пошла тестировать!
_______________
Класс! Работает!
Осталось ещё указать базовую точку.
И - как обычно - "озеленить" получившийся новый примитив, чтобы видеть оставшиеся для редактирования.
Но даже и за этот лиспик - СПАСИБО!!!
Великая помощь!

[Do$]

Только ESC не жмите и систему координат мировую поставьте.

Код:

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

(defun _dwgru-conv-pickset-to-list (value / tab item)
  (repeat (setq	tab  nil
		item (sslength value)
	  ) ;_ end setq
    (setq tab (cons (ssname value (setq item (1- item))) tab))
  ) ;_ end repeat
) ;_ end defun

(defun c:textapp (/ ss pt lst txt str)

  (setq	ss  (ssget '((0 . "TEXT")))
	pt  (getpoint)
	lst (_dwgru-conv-pickset-to-list ss)
	lst (vl-sort lst
		     '(lambda (a b)
			(< (cadr (assoc 10 (entget a)))
			   (cadr (assoc 10 (entget b)))
			)
		      )
	    )
	txt (car lst)
	str ""
  )
  (foreach deltxt (cdr lst)
    (setq str (strcat str (cdr (assoc 1 (entget deltxt)))))
    (entdel deltxt)
  )
  (entmod
    (list (cons -1 txt)
	  (cons 10 pt)
	  (cons 1 (strcat (cdr (assoc 1 (entget txt))) str))
	  (cons 62 3)
    )
  )
)

[Малявка]

Do$, Спасибо! Тестирую.
______________
Do$, Огромное спасибо! Это именно то, что надо!
Моя благодарность ярким позитивом распространяется на весь форум DWG.RU

[Do$]

Пожалуйста!
+1 к моей карме

[Владимир.]

По-моему, проще отметки с pdf "набить" вручную

[gomer]

Сообщение от Малявка Первый способ простой, да не дешевый ))

ну и не такой уж недешевый, зато это будет выглядеть не как с коленки

Сообщение от Kirill_Ja А если серьезно, может проще просто выехать в поле и переснять?

Может найти оригиналы из компаса?

Сообщение от Do$ +1 к моей карме

карму в карман не положишь

[Малявка]

Do$, очень верно подмечено.
Владимир., да уж было и это, набивали на растровой подложке.
Ещё вопрос, что легче и быстрее. Вот я и попробую, сравню.

[Александр Кот]

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

[Олег (jr.)]

Попробуй , на скорую руку без проверки

Код:

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

(defun C:amt (/ atent atlist elist ent strtxt)
  (command "_undo" "_be")
(setq strtxt "")
(while  
      
  (and (setq ent (car (entsel "\nВыбирай однострочный текст по порядку (Enter для окончания): ")))    
       (eq "TEXT" (cdr (assoc 0 (setq elist (entget ent))))))       
        (setq strtxt (strcat strtxt " " (cdr (assoc 1  elist))))
  )  
  (setq atent (car (nentsel "\nВыбрать атрибут: ")))
  (setq atlist (entget atent))
(entmod (subst (cons 1 strtxt)(assoc 1 atlist)atlist))
(command "_regen")
  (command "_undo" "_e")
  (princ)
  )