[Deutschland]

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

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

[Семёныч]

Для 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)

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