[gorodetsky18]

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

[Сергей812]

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

[gorodetsky18]

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

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

[Сергей812]

Сообщение от 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]

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

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

[koMon]

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

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

[gorodetsky18]

Сообщение от Сергей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]

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

[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)
)

[gorodetsky18]

Сообщение от 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) )

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