[Deutschland]

На схеме имеется большое количество примитивов (отрезков), которые необходимо заменить (преобразовать) на (в) блоки (вхождение блока). Каждый раз удаляю отрезок, вставляю тот же отрезок, но уже как блок (Вставка - Блок) и соединяю с остальными. И нужно, чтобы эти блоки (отрезки) были отделены друг от друга, поэтому я не могу сделать всю схему одним блоком. Вся работа занимает огромное количество времени, чтобы заменить всё. Существует ли способ заменить это всё разом?

Попробовал LISP. Замена набора примитивов на выбранный примитив. Но это не подошло под мой случай, так как замена производится именно на тот объект, который был выбран в качестве образца. То есть сохраняются все его свойства (угол, длина и т.п.) Необходимо чтобы всё встало на те же места, под теми же углами и длинами.

[Сергей812]

Сообщение от Deutschland Но только после применения он эти блоки на схеме разворачивает в противоположную сторону.

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

[VitalyAF]

Сообщение от Deutschland 2. Реально ли написать такой код, чтобы применять его не разово? Выделить все отрезки на схеме и сразу всё заменить на данный блок

... а иначе и смысла нет!

[koMon]

Сообщение от Deutschland Но только после применения он эти блоки на схеме разворачивает в противоположную сторону.

блок оригинальный или с моей коррекцией?

Код:

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

 (vl-load-com)
;************
(defun c:Line_DBlock ()
	(setq modelSpace_object (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
		  lines_ss (ssget '((0 . "LINE")))
		  lines_list (vl-remove-if '(lambda (list_member)
		  								(/= 'ename (type list_member))
		  							)
									(mapcar 'cadr (ssnamex lines_ss))
					 )
	)
	(foreach line_entity lines_list
		(setq line_object (vlax-ename->vla-object line_entity)
			  line_start_point (vlax-get line_object 'startpoint)
			  line_end_point (vlax-get line_object 'endpoint)
			  line_length (vlax-get line_object 'length)
			  block_insert_point (if (< (car line_start_point) (car line_end_point))
										line_start_point
										line_end_point
								 )
			  block_rotation_angle (if (zerop (distance block_insert_point line_end_point))
				  							(angle block_insert_point line_start_point)
				  							(angle block_insert_point line_end_point)
								   )
			  current_block (vla-InsertBlock modelSpace_object (vlax-3d-point 0 0 0) "l0" 1 1 1 block_rotation_angle)
			  current_block_dynamic_properties_list (vlax-safearray->list (vlax-variant-value (vla-getdynamicblockproperties current_block)))
		)
		(foreach dynamic_property current_block_dynamic_properties_list
			(cond
				(
					(= "Расстояние1" (vla-get-PropertyName dynamic_property))
						(vla-put-value dynamic_property (vlax-make-variant line_length))
				)
				(
					t
				)
			)
		)
		(vla-put-insertionpoint current_block (vlax-3d-point block_insert_point))
		(vla-delete line_object)
	)
	(princ)
)

[Deutschland]

Сообщение от koMon блок оригинальный или с моей коррекцией?

Блок с вашей коррекцией.

[koMon]

Сообщение от Deutschland Блок с вашей коррекцией.

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

Код:

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

 
(vl-load-com)                                                                                                           ;	загружаем поддержку расширенных
																														;	функций ActiveX
;************
(defun c:Line_DBlock ()                                                                                                	;	определяем команду
	(setq modelSpace_object (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))                        ;	запоминаем объект пространства модели
		  lines_ss (ssget '((0 . "LINE")))                                                                              ;	создаём набор отрезков
		  lines_list (vl-remove-if '(lambda (list_member)
		  								(/= 'ename (type list_member))                                                  ;	конвертируем набор отрезков
		  							)                                                                                   ;	в список отрезков
									(mapcar 'cadr (ssnamex lines_ss))
					 )
	)
	(foreach line_entity lines_list                                                                                     ;	для каждого отрезка
																														;	из списка  выполняем

		(setq line_object (vlax-ename->vla-object line_entity)                                                          ;	снимаем координаты начальной
			  line_start_point (vlax-get line_object 'startpoint)                                                       ;	точки отрезка

			  line_end_point (vlax-get line_object 'endpoint)                                                           ;	снимаем координаты конечной
																														;	точки отрезка

			  line_length (vlax-get line_object 'length)                                                                ;	снимаем длину отрезка
			  block_insert_point (cond
			  							(
											(or
												(< (car line_start_point) (car line_end_point))
												(and
													(equal (car line_start_point) (car line_end_point) 1e-6)    		;	назначаем точкой вставки
													(> (cadr line_end_point) (cadr line_start_point))           			;	блока, заменяющего отрезок
												)                                                               		;	левую току наклонного
											)                                                                   		;	или горизонтального отрезка
												line_start_point                                                		;	если отрезок вертикальный
										)                                                                       		;	назначаем точкой вставки
										(                                                                       		;	нижнюю точку отрезка
											t
												line_end_point
										)
								 )
			  block_rotation_angle (if (zerop (distance block_insert_point line_end_point))                     		;	назначаем угол поворота блока
				  							(angle block_insert_point line_start_point)                         		;	относительно его точки вставки
				  							(angle block_insert_point line_end_point)
								   )
			  current_block (vla-InsertBlock modelSpace_object (vlax-3d-point 0 0 0) "l0" 1 1 1 block_rotation_angle)	;	вставляем блок в начало координат
			  current_block_dynamic_properties_list (vlax-safearray->list
			  											(vlax-variant-value
															(vla-getdynamicblockproperties current_block)               ;	собираем в список динамические
														)                                                               ;	свойства вставленного блока
													)
		)
		(foreach dynamic_property current_block_dynamic_properties_list
			(cond
				(
					(= "Расстояние1" (vla-get-PropertyName dynamic_property))                                           ;	устанавливаем длину отрезка
						(vla-put-value dynamic_property (vlax-make-variant line_length))                                ;	в свойство "Расстояние1"
				)                                                                                                       ;	вставленного блока
				(
					t
				)
			)
		)
		(vla-put-insertionpoint current_block (vlax-3d-point block_insert_point))                                       ;	переносим блок из начала координат
																														;	в точку вставки
		(vla-delete line_object)                                                                                        ;	удаляем заменяемый отрезок
	)
	(princ)                                                                                                             ;	подавляем эхо последнй выполненной функции
)

[Deutschland]

Сообщение от koMon лисп с комментариями и немного доработанной точкой вставки блока

Благодарю Теперь всё работает корректно.

[АлексЮстасу]

Попалось такое приложение для создания схем сетей газораспределения в AutoCAD и BricsCAD. Не копал - поддерживают ли приложение, можно ли заменять линии на блоки и пр.
Просто в копилку ТС - вдруг пригодится.

[Deutschland]

Сообщение от koMon ниже лисп с комментариями и немного доработанной точкой вставки блока Код: [Выделить все] (vl-load-com) ; загружаем поддержку расширенных ; функций ActiveX ;************ (defun c:Line_DBlock () ; определяем команду (setq modelSpace_object (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) ; запоминаем объект пространства модели lines_ss (ssget '((0 . "LINE"))) ; создаём набор отрезков lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member)) ; конвертируем набор отрезков ) ; в список отрезков (mapcar 'cadr (ssnamex lines_ss)) ) ) (foreach line_entity lines_list ; для каждого отрезка ; из списка выполняем (setq line_object (vlax-ename->vla-object line_entity) ; снимаем координаты начальной line_start_point (vlax-get line_object 'startpoint) ; точки отрезка line_end_point (vlax-get line_object 'endpoint) ; снимаем координаты конечной ; точки отрезка line_length (vlax-get line_object 'length) ; снимаем длину отрезка block_insert_point (cond ( (or (< (car line_start_point) (car line_end_point)) (and (equal (car line_start_point) (car line_end_point) 1e-6) ; назначаем точкой вставки (> (cadr line_end_point) (cadr line_start_point)) ; блока, заменяющего отрезок ) ; левую току наклонного ) ; или горизонтального отрезка line_start_point ; если отрезок вертикальный ) ; назначаем точкой вставки ( ; нижнюю точку отрезка t line_end_point ) ) block_rotation_angle (if (zerop (distance block_insert_point line_end_point)) ; назначаем угол поворота блока (angle block_insert_point line_start_point) ; относительно его точки вставки (angle block_insert_point line_end_point) ) current_block (vla-InsertBlock modelSpace_object (vlax-3d-point 0 0 0) "l0" 1 1 1 block_rotation_angle) ; вставляем блок в начало координат current_block_dynamic_properties_list (vlax-safearray->list (vlax-variant-value (vla-getdynamicblockproperties current_block) ; собираем в список динамические ) ; свойства вставленного блока ) ) (foreach dynamic_property current_block_dynamic_properties_list (cond ( (= "Расстояние1" (vla-get-PropertyName dynamic_property)) ; устанавливаем длину отрезка (vla-put-value dynamic_property (vlax-make-variant line_length)) ; в свойство "Расстояние1" ) ; вставленного блока ( t ) ) ) (vla-put-insertionpoint current_block (vlax-3d-point block_insert_point)) ; переносим блок из начала координат ; в точку вставки (vla-delete line_object) ; удаляем заменяемый отрезок ) (princ) ; подавляем эхо последнй выполненной функции )

Ответьте пожалуйста, что необходимо изменить в коде, чтобы отрезки были заменены не на этот динамический блок, а на обычный (статический). Блок прикрепил.

[koMon]

Сообщение от Deutschland что необходимо изменить в коде, чтобы отрезки были заменены не на этот динамический блок, а на обычный (статический). Блок прикрепил.

Код:

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

 
(vl-load-com)                                                                                                           ;	загружаем поддержку расширенных
																														;	функций ActiveX
;************
(defun c:Line_Block ()                                                                                                	;	определяем команду
	(setq modelSpace_object (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))                        ;	запоминаем объект пространства модели
		  lines_ss (ssget '((0 . "LINE")))                                                                              ;	создаём набор отрезков
		  lines_list (vl-remove-if '(lambda (list_member)
		  								(/= 'ename (type list_member))                                                  ;	создаём из набора отрезков
		  							)                                                                                   ;	список отрезков
									(mapcar 'cadr (ssnamex lines_ss))
					 )
	)
	(foreach line_entity lines_list                                                                                     ;	для каждого отрезка
																														;	из списка  выполняем

		(setq line_object (vlax-ename->vla-object line_entity)                                                          ;	конвертируем отрезок-примитив
																														;	в отрезок-объект
			  line_start_point (vlax-get line_object 'startpoint)                                                       ;	снимаем координаты начальной
																														;	точки отрезка
			  line_end_point (vlax-get line_object 'endpoint)                                                           ;	снимаем координаты конечной
																														;	точки отрезка

			  line_length (vlax-get line_object 'length)                                                                ;	снимаем длину отрезка
			  block_insert_point (cond
			  							(
											(or
												(< (car line_start_point) (car line_end_point))
												(and
													(equal (car line_start_point) (car line_end_point) 1e-6)    		;	назначаем точкой вставки
													(> (cadr line_end_point) (cadr line_start_point))           		;	блока, заменяющего отрезок
												)                                                               		;	левую точку наклонного
											)                                                                   		;	или горизонтального отрезка
												line_start_point                                                		;	если отрезок вертикальный
										)                                                                       		;	назначаем точкой вставки
										(                                                                       		;	нижнюю точку отрезка
											t
												line_end_point
										)
								 )
			  block_rotation_angle (if (zerop (distance block_insert_point line_end_point))                     		;	назначаем угол поворота блока
				  							(angle block_insert_point line_start_point)                         		;	относительно его точки вставки
				  							(angle block_insert_point line_end_point)
								   )
			  current_block (vla-InsertBlock modelSpace_object
			  								(vlax-3d-point 0 0 0)                                                       ;	вставляем блок "L0" в начало координат
											"L0"
											line_length 1 1 block_rotation_angle
							)
		)
		(vla-put-insertionpoint current_block (vlax-3d-point block_insert_point))                                       ;	переносим блок из начала координат
																														;	в точку вставки

		(vla-delete line_object)                                                                                        ;	удаляем заменяемый отрезок
	)
	(princ)                                                                                                             ;	подавляем эхо последнй выполненной функции
)

[АлексЮстасу]

Offtop: Общие соображения на эту тему: Дополнительные, описательные данные в атрибутах.

[Сергей812]

Offtop:

Сообщение от АлексЮстасу Общие соображения на эту тему: Дополнительные, описательные данные в атрибутах.

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

[АлексЮстасу]

Offtop: Дас ист фантастиш, но вдруг кто-нибудь образумится? Вдруг заказчики перестанут требовать кантовать круглое и катать квадратное?
Забыл еще написать. Из СТО:

Область применения ... Положения настоящего стандарта обязательны для применения структурными подразделениями, филиалами, дочерними и зависимыми обществами ОАО «Газпром газораспределение» при создании и применении электронных схем сетей газораспределения. Положения настоящего стандарта не распространяются на проектную и исполнительную документацию, планы территорий, схемы газификации.

Соответственно, требования стандарта не распространяются на любые иные организации и схемы. Если иное, то есть формальная причина не заниматься этими заменами.

[Teyso]

Сообщение от koMon скачал свой блок отсюда, в новый документ втавил блок, нарисовал отрезки, работает ниже лисп с комментариями и немного доработанной точкой вставки блока Код: [Выделить все] (vl-load-com) ; загружаем поддержку расширенных ; функций ActiveX ;************ (defun c:Line_DBlock () ; определяем команду (setq modelSpace_object (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) ; запоминаем объект пространства модели lines_ss (ssget '((0 . "LINE"))) ; создаём набор отрезков lines_list (vl-remove-if '(lambda (list_member) (/= 'ename (type list_member)) ; конвертируем набор отрезков ) ; в список отрезков (mapcar 'cadr (ssnamex lines_ss)) ) ) (foreach line_entity lines_list ; для каждого отрезка ; из списка выполняем (setq line_object (vlax-ename->vla-object line_entity) ; снимаем координаты начальной line_start_point (vlax-get line_object 'startpoint) ; точки отрезка line_end_point (vlax-get line_object 'endpoint) ; снимаем координаты конечной ; точки отрезка line_length (vlax-get line_object 'length) ; снимаем длину отрезка block_insert_point (cond ( (or (< (car line_start_point) (car line_end_point)) (and (equal (car line_start_point) (car line_end_point) 1e-6) ; назначаем точкой вставки (> (cadr line_end_point) (cadr line_start_point)) ; блока, заменяющего отрезок ) ; левую току наклонного ) ; или горизонтального отрезка line_start_point ; если отрезок вертикальный ) ; назначаем точкой вставки ( ; нижнюю точку отрезка t line_end_point ) ) block_rotation_angle (if (zerop (distance block_insert_point line_end_point)) ; назначаем угол поворота блока (angle block_insert_point line_start_point) ; относительно его точки вставки (angle block_insert_point line_end_point) ) current_block (vla-InsertBlock modelSpace_object (vlax-3d-point 0 0 0) "l0" 1 1 1 block_rotation_angle) ; вставляем блок в начало координат current_block_dynamic_properties_list (vlax-safearray->list (vlax-variant-value (vla-getdynamicblockproperties current_block) ; собираем в список динамические ) ; свойства вставленного блока ) ) (foreach dynamic_property current_block_dynamic_properties_list (cond ( (= "Расстояние1" (vla-get-PropertyName dynamic_property)) ; устанавливаем длину отрезка (vla-put-value dynamic_property (vlax-make-variant line_length)) ; в свойство "Расстояние1" ) ; вставленного блока ( t ) ) ) (vla-put-insertionpoint current_block (vlax-3d-point block_insert_point)) ; переносим блок из начала координат ; в точку вставки (vla-delete line_object) ; удаляем заменяемый отрезок ) (princ) ; подавляем эхо последнй выполненной функции )

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

[BRATYXA]

Добрый день!
А может кто-нибуть пошагово объяснить как пользоваться через LISP произвести замену отрезков на блоки?

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

Сообщение от BRATYXA Добрый день! А может кто-нибуть пошагово объяснить как пользоваться через LISP произвести замену отрезков на блоки?

https://dwg.ru/pub/9