LISP для замены множества чисел в Autocad из таблицы Excel

gorodetsky18 · 13.04.2019, 23:30

Доброго времени суток. Подскажите возможно ли решить следующую задачу:
В dwf файле имеется некоторое количество чисел (_text желтым цветом), которое нужно заменить из файла Excel.

Заранее спасибо!

Сергей812 · 14.04.2019, 00:25

1. Используйте присоединение файлов к сообщению (для этого переключитесь в расширенный режим).
2. Разве dwf файлы доступны для изменения? Может, все таки dwg?
3. Необязательно на лиспе: по COM-интерфейсу из Excel сграбьте с использованием фильтра примитивы желтого текст на заданном слое, данные из таблицы экселя загоните в коллекцию (с ключом из первого столбца), и в цикле замените полученные ранее тексты на значения из коллекции.

Boxa · 14.04.2019, 11:12

Цитата:

Сообщение от Сергей812

Разве dwf файлы доступны для изменения? Может, все таки dwg?

ну если очень хочется, то можно и изменять =о)
И соглашусь, Lisp для этой задачи не самое лучший выбор.

gorodetsky18 · 14.04.2019, 11:17

Сергей812, да извиняюсь в dwg файле.

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

3й пункт не совсем понятен (не такой продвинутый пользователь). Если можно по подробнее.
И в идеале, чтобы расположение и поворот _text оставались прежними, но с новыми значениями из excel.

Сергей812 · 14.04.2019, 11:35

Цитата:

Сообщение от Boxa

Lisp для этой задачи не самое лучший выбор.

ну в любом случае либо придется по COM в эксель за данными из лиспа лезть, либо из экселя рулить самим акадом. Дело вкуса и есть ли уже наработки (библиотеки) под соответствующий язык)

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

Цитата:

Сообщение от gorodetsky18

3й пункт не совсем понятен (не такой продвинутый пользователь). Если можно по подробнее.

основами VBA владеете в экселе?

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

Цитата:

Сообщение от gorodetsky18

И в идеале, чтобы расположение и поворот _text оставались прежними, но с новыми значениями из excel.

если замените только содержимое - зачем самому примитиву куда-то "убегать"?)

gorodetsky18 · 14.04.2019, 12:04

Цитата:

Сообщение от Сергей812

основами VBA владеете в экселе?

к сожалению нет (

Сергей812 · 14.04.2019, 12:19

Цитата:

Сообщение от gorodetsky18

к сожалению нет (

Ну и лисп скорее всего тоже.

Ну тогда у вас 3 варианта:
1. Начать изучать любой из языков программирования (хотя бы основы) и начать самому писать, задавая вопросы в ходе процесса.
2. Выложить образцы (а не какую то картинку) и ждать, пока у кого-то из форумчан будет время и желание решить вашу проблему.
3. Обратиться в раздел исполнителей.

Затравка для решения на VBA - тыц, тыц, тыц.

gorodetsky18 · 14.04.2019, 12:25

Цитата:

Сообщение от Сергей812

2. Выложить образцы (а не какую то картинку) и ждать, пока у кого-то из форумчан будет время и желание решить вашу проблему.

Файлы прикрепил.

trir · 14.04.2019, 14:18

через БД это делается за 5 минут

koMon · 14.04.2019, 15:06

можно и не лазить в xls из лиспа:
1. сделать из xls csv, там всего одна колонка
2. прочитать в лиспе csv в в список
3. в том же лиспе пройтись по нужным текстам и заменить порядковое содержимое их на nth тексты из списка п.2

maratovich · 14.04.2019, 17:34

А никто не задумался что это всё заменит не только нужную цифру, но все подобные.
нет привязки к хэндлу или ID

koMon · 14.04.2019, 17:41

разве поменяется handle при изменении свойства textstring у текстового объекта?

maratovich · 14.04.2019, 17:44

Цитата:

Сообщение от koMon

у текстового объекта?

у какого ? у какого именно объекта ?
автор хочет поменять в чертеже цифру 7 на 2134, ну и поменяете вы её..... везде ! во всём чертеже где будет встречаться 7. Как вы поймёте где именно нужно заменить ?

koMon · 14.04.2019, 17:49

у того, у которого textstring="7" и который, как я понимаю является уникальным

Сергей812 · 14.04.2019, 17:53

Слой "_P1", цвет желтый - видимо по этим критериям.

gorodetsky18 · 14.04.2019, 17:55

Цитата:

Сообщение от koMon

у того, у которого textstring="7" и который, как я понимаю является уникальным

все верно, номер 7 уникальный как и все остальные номера. Повторяющихся нет.
Немного поясню. В dwg файле уникальных номер порядка 500 шт. и каждый из них нужно заменить на значение из excel. 1 на 720, 2 на 2190, 3 на 597 и т.д.

maratovich · 14.04.2019, 17:59

Цитата:

Сообщение от koMon

и который, как я понимаю является уникальным

по принципу - "Не читал, но осуждаю!"

Эх представляю как автор будет кусать локти после таких изменений.
Offtop: без сортировок здесь не обойтись

koMon · 14.04.2019, 18:03

напротив) и читал и предлагаю

Цитата:

Сообщение от maratovich

по принципу - "Не читал, но осуждаю!"

Эх представляю как автор будет кусать локти после таких изменений.
Offtop: без сортировок здесь не обойтись

Цитата:

Сообщение от gorodetsky18

все верно, номер 7 уникальный как и все остальные номера. Повторяющихся нет.
Немного поясню. В dwg файле уникальных номер порядка 500 шт. и каждый из них нужно заменить на значение из excel. 1 на 720, 2 на 2190, 3 на 597 и т.д.

----- добавлено через ~8 мин. -----
gorodetsky18, если не горит завтра выложу лисп

Сергей812 · 14.04.2019, 18:18

Цитата:

Сообщение от gorodetsky18

все верно, номер 7 уникальный как и все остальные номера. Повторяющихся нет.

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

gorodetsky18 · 14.04.2019, 18:41

Цитата:

Сообщение от koMon

если не горит завтра выложу лисп

Не горит. Спасибо огромное!

Сергей812 · 14.04.2019, 18:41

в общем проще самому посмотреть: на слое "_Р1" (буква русская), примитив текст, цвет желтый = 2. Тогда получаем уникальные числа и только числа.
ТС увидел, что будет завтра лисп - и все, отключился полностью от реальности)

gorodetsky18 · 14.04.2019, 18:42

Цитата:

Сообщение от Сергей812

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

во всем чертеже желтый текст уникальный.

Сергей812 · 14.04.2019, 18:46

Цитата:

Сообщение от gorodetsky18

во всем чертеже желтый текст уникальный.

Пропарсил чертеж - желтый текст без учета слоя:

ОВ1 A-GENM-IDEN
ЭО A-GENM-IDEN
ОВ1 A-GENM-IDEN
ЭО A-GENM-IDEN
СС A-GENM-IDEN
ПД A-GENM-IDEN
ДУ A-GENM-IDEN
ПД A-GENM-IDEN
ВК A-GENM-IDEN
ЭО A-GENM-IDEN
ОВ2 A-GENM-IDEN
ОВ1 A-GENM-IDEN
ОВ2 A-GENM-IDEN
ДУ A-GENM-IDEN
ПД A-GENM-IDEN
первый столбец значение, второй - имя слоя. Где там уникальность в первом столбце?

Кулик Алексей aka kpblc · 14.04.2019, 20:06

Цитата:

Сообщение от gorodetsky18

В dwg файле уникальных номер порядка 500 шт. и каждый из них нужно заменить на значение из excel. 1 на 720, 2 на 2190, 3 на 597 и т.д.

Эх, если бы это были блоки с атрибутами!

koMon · 14.04.2019, 20:20

Цитата:

Сообщение от Сергей812

Где там уникальность в первом столбце?

среди жёлтого текста есть числа, вот они-то и будут уникальными порядковыми номерами excel-а, ну или nth списка. как-то так)

gorodetsky18 · 14.04.2019, 20:33

Цитата:

Сообщение от Сергей812

Пропарсил чертеж - желтый текст без учета слоя:

ОВ1 A-GENM-IDEN
ЭО A-GENM-IDEN
ОВ1 A-GENM-IDEN
ЭО A-GENM-IDEN
СС A-GENM-IDEN
ПД A-GENM-IDEN
ДУ A-GENM-IDEN
ПД A-GENM-IDEN
ВК A-GENM-IDEN
ЭО A-GENM-IDEN
ОВ2 A-GENM-IDEN
ОВ1 A-GENM-IDEN
ОВ2 A-GENM-IDEN
ДУ A-GENM-IDEN
ПД A-GENM-IDEN
первый столбец значение, второй - имя слоя. Где там уникальность в первом столбце?

Во вложении только _text который нужно заменить

Желтый текст - это порядковый номер замера, который делается лазерным дальномером и записывается сразу в таблицу excel, поэтому там повторных чисел быть не должно.

Сергей812 · 14.04.2019, 20:41

Ну так все это расположено на слое "_Р1" (видимо, Размер1), как и писал выше. А заменять любой желтый текст с числом в чертеже - это так, рулетка)

koMon · 15.04.2019, 10:33

Код:

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

 
;**********
(vl-load-com)
;**********
(defun c:Replace_text ()
	(setq csv_file_name (getfiled "Выберите файл CSV с чилами для замены" (strcat (vlax-get (vla-get-ActiveDocument (vlax-get-acad-object)) 'Path) "\\") "csv" 16)
		  csv_file_id (open csv_file_name "r")
		  change_index 1
		  changed_count 0
		  replacing_numbers_list '()
	)
	(while (setq current_string (read-line csv_file_id))
		(setq replacing_numbers_list (cons (cons (itoa change_index) current_string) replacing_numbers_list)
			  change_index (1+ change_index)
		)
	)
	(close csv_file_id)
	(vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
	(setq yellow_text_sset (ssget "_x" '((0 . "TEXT") (62 . 2))))
	(while (not (zerop (sslength yellow_text_sset)))
		(setq yellow_text_object (vlax-ename->vla-object (ssname yellow_text_sset 0)))
		(if (null (vlax-ldata-get yellow_text_object "Changed"))
			(if (assoc (vla-get-textstring yellow_text_object) replacing_numbers_list)
				(progn
					(vlax-ldata-put yellow_text_object "Changed" t)
					(vlax-ldata-put yellow_text_object "Org_string" (vla-get-textstring yellow_text_object))
					(vla-put-textstring yellow_text_object (cdr (assoc (vla-get-textstring yellow_text_object) replacing_numbers_list)))
					(setq changed_count (1+ changed_count))
				)
			)
		)
        (setq yellow_text_sset (ssdel (ssname yellow_text_sset 0) yellow_text_sset))
	)
	(vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
	(princ (strcat "\nИзменено " (itoa changed_count) " текстов"))
	(princ)
)

gorodetsky18 · 15.04.2019, 11:59

Цитата:

Сообщение от koMon

Код:

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

 
;**********
(vl-load-com)
;**********
(defun c:Replace_text ()
	(setq csv_file_name (getfiled "Выберите файл CSV с чилами для замены" (strcat (vlax-get (vla-get-ActiveDocument (vlax-get-acad-object)) 'Path) "\\") "csv" 16)
		  csv_file_id (open csv_file_name "r")
		  change_index 1
		  changed_count 0
		  replacing_numbers_list '()
	)
	(while (setq current_string (read-line csv_file_id))
		(setq replacing_numbers_list (cons (cons (itoa change_index) current_string) replacing_numbers_list)
			  change_index (1+ change_index)
		)
	)
	(close csv_file_id)
	(vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
	(setq yellow_text_sset (ssget "_x" '((0 . "TEXT") (62 . 2))))
	(while (not (zerop (sslength yellow_text_sset)))
		(setq yellow_text_object (vlax-ename->vla-object (ssname yellow_text_sset 0)))
		(if (null (vlax-ldata-get yellow_text_object "Changed"))
			(if (assoc (vla-get-textstring yellow_text_object) replacing_numbers_list)
				(progn
					(vlax-ldata-put yellow_text_object "Changed" t)
					(vlax-ldata-put yellow_text_object "Org_string" (vla-get-textstring yellow_text_object))
					(vla-put-textstring yellow_text_object (cdr (assoc (vla-get-textstring yellow_text_object) replacing_numbers_list)))
					(setq changed_count (1+ changed_count))
				)
			)
		)
        (setq yellow_text_sset (ssdel (ssname yellow_text_sset 0) yellow_text_sset))
	)
	(vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
	(princ (strcat "\nИзменено " (itoa changed_count) " текстов"))
	(princ)
)

Просто Супер!!! Спасибо огромное!

13.04.2019, 23:30		#1
LISP для замены множества чисел в Autocad из таблицы Excel gorodetsky18 Регистрация: 13.04.2019 Сообщений: 9 Доброго времени суток. Подскажите возможно ли решить следующую задачу: В dwf файле имеется некоторое количество чисел (_text желтым цветом), которое нужно заменить из файла Excel. Заранее спасибо!
Просмотров: 5132

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Lisp. Работа с таблицами AutoCAD	SNIIP	LISP	31	28.03.2023 07:31
Связь AutoCad с Excel. Связь "Таблицы свойств блока" в "Редакторе блоков" и базы Excel.	Марсель113	LISP	3	18.01.2019 13:29
Достать "формулу" из ячейки таблицы autocad	tsetse	LISP	43	23.12.2018 08:48
Как перенести координаты из AUTOCAD в Excel и обратно с помощью LISP?	aydinkhalil	LISP	11	24.12.2014 10:51
Как перенести значения из таблицы Excel в AutoCAD в виде текста?	Yur.OK_SPb	AutoCAD	22	01.08.2011 16:42