[Deutschland]

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

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

[Сергей812]

Поскольку смысл этого действия (замена отрезков на блоки) не раскрыт, то как вариант:
1. Сделать динамический блок в виде симметрично растягивающегося относительно центра отрезка (со скрытыми ручками) и с динпараметром поворота.
2. Получаете из отрезка его длину и угол поворота, а также координаты середины отрезка. Затем вставляете блок и задаете его динпараметры значениями из отрезка. И после удаляете отрезок.

[Boxa]

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

[Oleg T]

Сообщение от Deutschland Попробовал LISP. Замена набора примитивов на выбранный примитив.

Не знаю, правильно ли понял, но набросал простенький лисп.

Код:

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

 (defun c:1 ()
	(setq nab(ssget))
	(setq kol (sslength nab))
	(setq n -1)
	(repeat kol
		(setq n (+ n 1))
		(setq pr (ssname nab n))
		(setq name_i (cdr (assoc '5 (entget pr))))
		(setq t_i (cdr (assoc '10 (entget pr))))
		(command "-block" name_i t_i pr "")
		(command "-insert" name_i t_i "1" "1" "0")
	)
)

У меня работает. Может, придется немного подправить.

PS
Возможен еще вариант, более правильный:
создать в файле блок из отрезка длиной 1 и пакетно заменить им отрезки, а то здесь слишком много блоков получается, это нерационально.
Может, лучше разместить тему в разделе программирования, там наверняка помогут.

[Сергей812]

Сообщение от Oleg T Возможен еще вариант, более правильный: создать в файле блок из отрезка длиной 1 и пакетно заменить им отрезки, а то здесь слишком много блоков получается, это нерационально.

а также еще сделать блоки - дольные доли единицы...

[VitalyAF]

...
А управлять как всеми этими блоками?
Например, выбрать дин. блоки с определёнными атрибутами, заменить на другие?
Вертикалку из палочек собрать...

[Deutschland]

Сообщение от Oleg T Не знаю, правильно ли понял, но набросал простенький лисп. Код: [Выделить все] (defun c:1 () (setq nab(ssget)) (setq kol (sslength nab)) (setq n -1) (repeat kol (setq n (+ n 1)) (setq pr (ssname nab n)) (setq name_i (cdr (assoc '5 (entget pr)))) (setq t_i (cdr (assoc '10 (entget pr)))) (command "-block" name_i t_i pr "") (command "-insert" name_i t_i "1" "1" "0") ) ) У меня работает. Может, придется немного подправить. PS Возможен еще вариант, более правильный: создать в файле блок из отрезка длиной 1 и пакетно заменить им отрезки, а то здесь слишком много блоков получается, это нерационально. Может, лучше разместить тему в разделе программирования, там наверняка помогут.

Разъясните пожалуйста. Не понимаю как с ним правильно работать. Здесь я прочитал. Активировал с помощью цифры '1'. В какой последовательности работать дальше?

[Deutschland]

Забыл добавить один из важных моментов. Есть СТО Газпром газораспределение 2.7-2013. И все блоки должны быть вставлены именно в таком виде, в котором они были предоставлены организации. То есть в данном случае его нельзя изменять. Он только растяжимый. Файл блока прикрепил. l0.dwg

И спасибо всем, кто ответил. Буду пробовать все предложенные вами способы. Будут вопросы - напишу.

[Сергей812]

чудоблок - на динпараметр поворота уже сил не хватило, видимо) И точка вставки не в центре блока-отрезка. Ну все равно алгоритмом остается почти прежним - только цепляетесь к одной из конечных точек "входного" отрезка как точки вставки.

----- добавлено через ~2 ч. -----
и откуда берутся данные для двух атрибутов в блоке? вручную вводить - это сразу хороший минус в скорости...

[Boxa]

Какой хороший блок, человек делавший его явно мастер, так просто и так элегантно повысить сложность автоматизации, это надо уметь. То, что это получилось случайно, я ни в жисть не поверю. Я прямо таки в восторге.
Deutschland, спасибо Вам большое, за то, что поделились.

[Сергей812]

Ну какая то логика в этом есть: вроде в том же LT акаде можно работать с динблоком - в отличие от расширенных данных, присоединенных к отрезку.

[Boxa]

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

[Сергей812]

Offtop:

Сообщение от Boxa мне просто очень понравилось как сделан именно этот блок.

есть большие сомнения - что создатель блока с ним реально сам работал)

[VitalyAF]

Boxa
Спробуйте маво колобку Element.dwg
из палитры КМ,КЖ... пришлось поработать с архитекторами...

[koMon]

Сообщение от Deutschland Он только растяжимый. Файл блока прикрепил. l0.dwg

коряво растяжимый
я внёс коррекцию только в растяжение, Offtop: ну и как водится короткий лисп.
перед использованием нужно переопределить блок в чертеже на нижеприлагаемый.
атрибуты у вставленных блоков пустые.

Код:

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

 
(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 (setq block_rotation_angle (angle block_insert_point line_end_point)))
				  							(angle block_insert_point line_start_point)
											block_rotation_angle
								   )
			  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)
)

[Boxa]

koMon, а ведь условия против изменения блока...

Сообщение от Deutschland И все блоки должны быть вставлены именно в таком виде, в котором они были предоставлены организации. То есть в данном случае его нельзя изменять.

А по поводу лиспа, ИМХО доработать Ваш вариант до работы с исходным блоком не так уж и сложно, буквально несколько действий (внимательнее к блоку присмотритесь =) )...

VitalyAF, и зачем это?

[VitalyAF]

Сообщение от Boxa и зачем это?

Та же линия с атрибутами в виде дин. блока,
только более функциональная. Переименуй атрибы и пользуйся!

https://i.postimg.cc/4x7bT1zw/KM-Element.gif

[Deutschland]

Мне решили ещё усложнить задачу до поры до времени... Вы наверное задаётесь вопросом зачем ему это всё надо? У нас в организации прошла проверка, в ходе которой сделали замечание. Мол, вместо отрезков должны быть блоки. Заставили переделывать. Только над одним куском схемы я корпел чуть больше рабочей недели. Всё, чем я занимался - это вручную удалял эти отрезки и вставлял блоки. А переделывать схему придётся для целого города.

Буквально сегодня проверяющий дал нам блок (обычный блок). Он даже не динамический (не растягивается - ничего!) Будем добиваться адекватных блоков. Но пока что придётся работать именно с таким (прикрепил файл). И теперь я смотрю длину отрезка, удаляю его, вставляю блок, указываю длину, поворачиваю его и свожу с другим и так по цепочке. Очень кропотливая работёнка.

Но можно ли как-то и из этой ситуации выкрутиться, чтобы заменить отрезки на блоки (с такими же длинами, поворотами и т.д.) пакетно или ещё как-нибудь упростить работу?

[Deutschland]

Сообщение от koMon Код: [Выделить все] (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 (setq block_rotation_angle (angle block_insert_point line_end_point))) (angle block_insert_point line_start_point) block_rotation_angle ) 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) )

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

[Сергей812]

Сообщение от Deutschland И в чём блок был корявый, скажите пожалуйста.

точку вставки перенести в середину блока, там же сделать динамический поворот блока. И растяжение от центра блока. Тогда даже вручную было бы проще - вставляется блок с привязкой к середине отрезка, затем он ручкой разворачивается до совпадения с отрезком, другой ручкой растягивается до конца заменяемого отрезка. А то, что вам дали, это действительно:

Сообщение от Boxa так просто и так элегантно повысить сложность автоматизации, это надо уметь.

причем даже не автоматизации, а просто работы.

[Семёныч]

Для Deutschland.
В приведенном файле-блоке используется полилиния, а не отрезок (LINE).
Вот заготовка для однократной замены отрезка блоком.
Скопировать текст в буфер, вставить в командную строку и нажать Enter. Блок уже должен быть в текущем файле.

Код:

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

(progn
(setvar "ATTDIA" 0)
(setvar "ATTREQ" 1)
(setq otr (car (entsel "\nВыберите отрезок: ")))
(setq votr (vlax-ename->vla-object otr))
(setq tvs (cdr (assoc 10 (entget otr))))
(setq dlina (vlax-get-property votr 'Length))
(setq ugol (/ (* 180(vlax-get-property votr 'angle)) pi))
(entdel otr)
(vl-cmdf "_-INSERT" "l0" "X" dlina "Y" "1" "Z" "1" "_R" ugol tvs "" "")
(setvar "ATTDIA" 1)
(setvar "ATTREQ" 0)
)

[Deutschland]

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

Блок в текущем файле. Скопировал, вставил в командную строку, далее меня просят выбрать отрезок, выбираю. Ничего не происходит. Несколько раз пробовал. Что я делаю не так

[Семёныч]

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

[Сергей812]

Сообщение от Семёныч Если выбирается отрезок,

кстати хороший вопрос - исходные примитивы: отрезки (line) или полилинии (polyline)?

[Семёныч]

В моей заготовке пока подразумевается объект, у которого есть свойства "длина" ("Length") и "угол поворота"("angle"). У полилинии таких свойств нет. С другой стороны, если применить программу к отрезку, то он заменяется блоком и повторно применять программу к нему бесполезно. К тому же автор темы постоянно упоминает понятие "отрезок". Я написал именно заготовку программы Если она устроит автора темы, то её можно будет довести до финала.

[Сергей812]

Семёныч, это вопрос к ТС был - не сильно удивлюсь, если там и отрезки, и полилинии)

Сообщение от Семёныч у которого есть свойства "длина" ("Length") и "угол поворота"("angle"). У полилинии таких свойств нет.

у полилинии есть общая длина.

[Deutschland]

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

Я ожидаю, что произойдёт то, о чём вы и пишете. Но отрезок так и остаётся отрезком.

----- добавлено через ~6 мин. -----
И раз разговор зашёл про полилинии - в схеме намешано всё подряд, где встречаются как отрезки, так и полилинии, которые и нужно заменить на один блок.

[Семёныч]

Сообщение от Deutschland Но отрезок так и остаётся отрезком.

Тогда попробуй начерти ОТРЕЗОК (LINE) и примени к нему программу. Скопируй сюда протокол выполнения по F2.
Сделай то же самое с твоим объектом и тоже скопируй сюда протокол.
Не помешал бы и оригинальный файл (или его фрагмент). Но если страна нахождения - Германия, то я пас.

[Deutschland]

Сообщение от Семёныч Тогда попробуй начерти ОТРЕЗОК (LINE) и примени к нему программу. Скопируй сюда протокол выполнения по F2. Сделай то же самое с твоим объектом и тоже скопируй сюда протокол. Не помешал бы и оригинальный файл (или его фрагмент). Но если страна нахождения - Германия, то я пас.

Выполняется регенерация модели.

Утилиты меню AutoCAD загружены.
Команда:
Команда:
Команда: <Сетка откл>
Команда:
Команда:
Команда: _insert
Точка вставки или [Базовая точка/Масштаб/Поворот]:
Введите значения атрибутов
SN:
Идентификатор:

Команда:
Команда:
Команда: _line
Первая точка:
Следующая точка или [оТменить]:
Следующая точка или [оТменить]:

Команда: (progn
(_> (setvar "ATTDIA" 0)
(_> (setvar "ATTREQ" 1)
(_> (setq otr (car (entsel "\nВыберите отрезок: ")))
(_> (setq votr (vlax-ename->vla-object otr))
(_> (setq tvs (cdr (assoc 10 (entget otr))))
(_> (setq dlina (vlax-get-property votr 'Length))
(_> (setq ugol (/ (* 180(vlax-get-property votr 'angle)) pi))
(_> (entdel otr)
(_> (vl-cmdf "_-INSERT" "l0" "X" dlina "Y" "1" "Z" "1" "_R" ugol tvs "" "")
(_> (setvar "ATTDIA" 1)
(_> (setvar "ATTREQ" 0)
(_> )

Выберите отрезок: ; ошибка: no function definition: VLAX-ENAME->VLA-OBJECT

Открывается файл формата AutoCAD 2013.
Выполняется регенерация модели.

Утилиты меню AutoCAD загружены.
Команда:

Файл Autodesk DWG. Это файл формата TrustedDWG, сохраненный в приложении Autodesk или в приложении, лицензированном корпорацией Autodesk.

Команда:
Команда: (progn
(_> (setvar "ATTDIA" 0)
(_> (setvar "ATTREQ" 1)
(_> (setq otr (car (entsel "\nВыберите отрезок: ")))
(_> (setq votr (vlax-ename->vla-object otr))
(_> (setq tvs (cdr (assoc 10 (entget otr))))
(_> (setq dlina (vlax-get-property votr 'Length))
(_> (setq ugol (/ (* 180(vlax-get-property votr 'angle)) pi))
(_> (entdel otr)
(_> (vl-cmdf "_-INSERT" "l0" "X" dlina "Y" "1" "Z" "1" "_R" ugol tvs "" "")
(_> (setvar "ATTDIA" 1)
(_> (setvar "ATTREQ" 0)
(_> )

Выберите отрезок: ; ошибка: no function definition: VLAX-ENAME->VLA-OBJECT

[Сергей812]

Сообщение от Deutschland VLAX-ENAME->VLA-OBJECT

добавьте в код

Код:

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

 (vl-load-com)

[Семёныч]

Как-то я привык уже, что в AutoCAD 2013 и в следующих версиях загрузка функций VLisp (vl-load-com) происходит автоматически. Возможно, это у меня так происходит.
Частная задача: замена отрезка блоком l0.

Код:

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

(defun C:LB ( / atd atr echo osm *error* otr votr tvs dlina ugol)
(vl-load-com)
(princ "\nЗамена отрезка блоком.")
(setq atd (getvar "ATTDIA"))
(setvar "ATTDIA" 0)
(setq atr (getvar "ATTREQ"))
(setvar "ATTREQ" 1)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)
;; Обработчик ошибок
(defun *error* (msg)(princ msg)
(setvar "ATTDIA" atd)
(setvar "ATTREQ" atr)
(setvar "CMDECHO" echo)
(setvar "OSMODE" osm)
(princ)
) ; *error*
(setq otr (car (entsel "  Выберите отрезок (Enter-отказ): ")))
(if otr 
    (progn
    (if (= (cdr (assoc 0 (entget otr))) "LINE")
        (progn 
        (setq votr (vlax-ename->vla-object otr))
        (setq tvs (cdr (assoc 10 (entget otr))))
        (setq dlina (vlax-get-property votr 'Length))
        (setq ugol (/ (* 180(vlax-get-property votr 'angle)) pi))
        (vl-cmdf "_UNDO" "_BE")
        (entdel otr)
        (vl-cmdf "_-INSERT" "l0" "X" dlina "Y" "1" "Z" "1" "_R" ugol tvs "" "")
        (vl-cmdf "_UNDO" "_E")
        (princ "\nОтрезок заменен на блок.")
        ) ; progn
        (princ "\nВыбранный объект не ОТРЕЗОК.")
    ) ; if
    ) ; progn
    (princ "\nОтмена.")
) ; if
(setvar "ATTDIA" atd)
(setvar "ATTREQ" atr)
(setvar "CMDECHO" echo)
(setvar "OSMODE" osm)
(princ)
)

Скопировать код в командную строку и нажать Enter. Для запуска программы ввести LB.

[Сергей812]

Если в образце красным кружком обозначен примитив, к которому применяется программа - то ТС может применять программу хоть до посинения: там полилиния) А так какая то пассивная позиция у ТС - хочет сэкономить много человекочасов, но при этом лениться даже корректные входные условия выдать сразу: почти половина линейных примитивов в образце - полилинии.

[Семёныч]

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

[Сергей812]

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

не вводите ТС в заблуждение - если будет полилиния, то блок там не появится)

Сообщение от Семёныч Непонятно также назначение атрибутов.

так задавал уже:

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

но ТС видит только то, что ему нужно, похоже)

[Семёныч]

Сообщение от Сергей812 не вводите ТС в заблуждение

Что это вы постоянно упоминаете какого-то ТС? Нет здесь никакого ТС. Я общаюсь с автором темы Deutschland и жду от него реакции. Если вы решили подменить собой автора темы, то вам и карты в руки. Дорабатывайте программу по своему разумению. А еще лучше - пошлите автора темы в раздел "Поиск исполнителей".

[Сергей812]

Сообщение от Семёныч Что это вы постоянно упоминаете какого-то ТС? Нет здесь никакого ТС. Я общаюсь с автором темы Deutschland и жду от него реакции. Если вы решили подменить собой автора темы, то вам и карты в руки. Дорабатывайте программу по своему разумению. А еще лучше - пошлите автора темы в раздел "Поиск исполнителей".

ТС - топикстартер, автор ветки. Стандартное сокращения на множестве форумов.

Offtop: А указывать, что другим делать - будете на своем форуме, если хватит способностей раскрутить его до уровня dwg.ru, чтобы там появились люди

[Boxa]

ИМХО, ветка уже давно переросла раздел Autocad, т.к. штатными средствами автоматизировать работу у ТС не получится и нужно писать соответствующую программу. Самому или привлекая помощь, а т.к. с программированием у автора судя по всему не очень, то....

Сообщение от Семёныч А еще лучше - пошлите автора темы в раздел "Поиск исполнителей".

это не самый плохой совет.

ЗЫ.
А полилинии или линии особой разницы нет, _explode все уравняет =)

[Deutschland]

Сообщение от Сергей812 Если в образце красным кружком обозначен примитив, к которому применяется программа - то ТС может применять программу хоть до посинения: там полилиния)

Вовсе нет. Красным кружком обозначено место, на которое следует обратить внимание. Это рабочие моменты. И перед тем как загрузить файл сюда я не убрал его.

Сообщение от Сергей812 А так какая то пассивная позиция у ТС - хочет сэкономить много человекочасов, но при этом лениться даже корректные входные условия выдать сразу: почти половина линейных примитивов в образце - полилинии.)

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

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

Блоки были выданы организации в таком виде. Насколько я знаю в дальнейшем планируется идентификация элементов на схемах, которую будут производить на основании идентификатора (системного номера) объекта из БД.

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

Сообщение от Семёныч Как-то я привык уже, что в AutoCAD 2013 и в следующих версиях загрузка функций VLisp (vl-load-com) происходит автоматически. Возможно, это у меня так происходит. Частная задача: замена отрезка блоком l0. Скопировать код в командную строку и нажать Enter. Для запуска программы ввести LB.

Ура! Премного благодарен Всё заработало исправно. На работе стоит AutoCAD 2010.
1. На данный момент вставляется блок, который я загружал сюда последним. Можно ли заменить вставляемый блок, на динамический (тот, который я скидывал в тему ещё ранее)?
2. Реально ли написать такой код, чтобы применять его не разово? Выделить все отрезки на схеме и сразу всё заменить на данный блок.

[koMon]

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

Сообщение от Boxa ИМХО доработать Ваш вариант до работы с исходным блоком не так уж и сложно,

если не трудно)

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

1. лисп загружают
2. выделять нужно отрезки
3. лисп заменяет выбранные отрезки на дин. блок i0.

Сообщение от Сергей812 точку вставки перенести в середину блока, там же сделать динамический поворот блока.

удобнее будет с точкой вставки на конце линии (в блоке кстати полилиния непонятно нафик) и углом поворота относительно точки вставки.

[Deutschland]

Сообщение от koMon 1. лисп загружают 2. выделять нужно отрезки 3. лисп заменяет выбранные отрезки на дин. блок i0.

Я так и делал - не работало. Наконец-то решил эту проблему.

Из протокола:
Команда: LINE_DBLOCK
; ошибка: no function definition: VLAX-GET-ACAD-OBJECT

Добавил в начале лиспа:

Код:

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

(vl-load-com)

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

[Сергей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