[Андрей Будзинский]

Добрый день!
Помогите пожалуйста написать програмку, которая делала бы следующее:
-создать количество слоёв, равное количеству описаний блоков
- присвоить каждому слою имя как имя блока
- скопировать по одному блоку на слой, который имеет такое же имя, что и имя блока
Так, например, в примере создалось бы 3 слоя: Блок-1, Блок-2 и Блок-3.
Ну и скопировать по одному блоку в соответствующий слой.
Заранее большое спасибо!

[Дима_]

Код:

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

(vl-load-com)
(defun c:block-to-layer ()
(mapcar '(lambda (block)
	((lambda (lst)
		(entmod (subst	(cons 8 (vla-get-effectivename (vlax-ename->vla-object block)))
						(assoc 8 lst)
						lst)))
(entget block)))
(vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_a"(list (cons 0 "insert")))))))
(princ))

запускать block-to-layer

[TararykovDG]

Дима_, у Вас можно учиться искусству программирования на лиспе, только вот у меня вопрос. Конструкция (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_a"(list (cons 0 "insert")))))) вернет только все вхождения блоков, а не описания. А Андрей Будзинский вроде просил:

создать количество слоёв, равное количеству описаний блоков

может я не прав?

[Андрей Будзинский]

Спасибо что откликнулись!
TararykovDG, Вы абсолютно правы. Необходимо на созданные слои поместить лишь одно описание блока (или одну копию блока).
Дима_, Вам большое спасибо, что откликнулись. Но я немного нечётко сформулировал задачу. Вобщем, нужно чтобы существующие блоки не перекидывались на новые слои, а лишь копировался один из блоков на слой с соответствующим именем. Можно даже не блок, а объекты, входящие в описание блока. Так после выполнения лиспа для приведённого примера, на 0 слое осталось всё без изменения, а на новые слои скопировалось по одному блоку (на слой Блок 1 - 1 блок с именем Блок-1 и т.д.). Если несложно, подмодифицируйте код, чтобы он выполнял эту задачу. Большое спасибо!

[VVA]

Модифицированный вариант команды от Димы_. Не оптимально, но зато быстро

Код:

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

(vl-load-com)
(defun C:BTL () (c:block-to-layer))
(defun c:block-to-layer (/ laylist)
;;;command block-to-layer
  (mapcar
    '(lambda (block / lst)
       (if (not (vl-position
                  (get-block-name (vlax-ename->vla-object block))
                  laylist
                ) ;_ end of VL-POSITION
           ) ;_ end of not
         (progn
           (entmod
             (subst
               (cons
                 8
                 (car (setq
                        laylist (cons (get-block-name
                                        (vlax-ename->vla-object block)
                                      ) ;_ end of get-block-name
                                      laylist
                                ) ;_ end of cons
                      ) ;_ end of setq
                 ) ;_ end of car
               ) ;_ end of cons
               (assoc 8
                      (setq
                        lst (entget
                              (vlax-vla-object->ename
                                (vla-copy (vlax-ename->vla-object block))
                              ) ;_ end of vlax-vla-object->ename
                            ) ;_ end of entget
                      ) ;_ end of setq
               ) ;_ end of assoc
               lst
             ) ;_ end of subst
           ) ;_ end of entmod
         ) ;_ end of progn
       ) ;_ end of if
     ) ;_ end of lambda
    (vl-remove-if
      'listp
      (mapcar 'cadr
              (ssnamex (ssget "_a" (list (cons 0 "insert"))))
      ) ;_ end of mapcar
    ) ;_ end of vl-remove-if
  ) ;_ end of mapcar
  (princ)
) ;_ end of defun
(defun get-block-name (itm)
  (cond
    ((and (vlax-property-available-p itm 'isdynamicblock)
          (= (vla-get-isdynamicblock itm) :vlax-true)
     ) ;_ end of and 
     (vla-get-effectivename itm)
    )

    (t (vla-get-name itm))
  ) ;_ end of cond
) ;_ end of defun

[hwd]

Сообщение от Андрей Будзинский Необходимо на созданные слои поместить лишь одно описание блока (или одну копию блока).

Описание блока и копия (правильнее - "вхождение блока") - это разные вещи. Не путайте мягкое с тёплым.
Offtop: Курсовая работа?

[TararykovDG]

Но я немного нечётко сформулировал задачу

Андрей Будзинский, на самом деле вопросов стало только больше.

скопировалось по одному блоку

а если у вашего блока были атрибуты и в каждом из его вхождений со своими значениями, то что копировать в значения атрибутов на блок в новом слое?
и еще, как сказал hwd скопировать надо вхождение блока или описание? В чертеже может быть описано несколько блоков, например Блок1, Блок2, ..., Блок10, а вставлены в чертеж только Блок1 и Блок2, причем несколько раз, это вхождения блоков, так вот программы Дима_ и VVA создадут слои Блок1 и Блок2. Далее у Дима_ все вхождения блоков Блок1 и Блок2 перейдут соответственно на слои Блок1 и Блок2, а у VVA на слои Блок1 и Блок2 будут скопированы по одному вхождению блоков Блок1 и Блок2. Но вот блоки Блок3...Блок10 останутся без внимания и соответствующих слоев не появиться.
А как нужно Вам, так и осталось вопросом?

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

Не, ребята, вопросов еще больше
А что делать с вложенными блоками? А как обрабатывать внешние ссылки? И все-таки: копировать или перемещать блоки (принимая, что значения и настройки атрибутов должны быть продублированы)?

[hwd]

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

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

Ну вот, Андрей, такой облом спалил
Автору: чем точнее техзадание, тем быстрее и точнее будет решение

[ShaggyDoc]

А может быть автор ветки забыл про слой 0 и свойства примитивов блока ByBlock.....
Что-то задача подозрительная, навевает мысли...

[Дима_]

Да - видимо я поторопился - автору - поделитесь конечной задачей, может "ясность" появиться?

[Андрей Будзинский]

Спасибо огромное!
Код Димы подправленный VVA полностью решил задачу. Ну и хочу внести ясность, зачем мне всё это понадобилось.
Значит есть модель, содержащая много описаний блоков с разными количествами вхождений. Большинство документов подготавливалось именно с использованием всей модели. Но в конце нужно было сделать чертёжик, где указаны размеры каждого описания блока. Более того, для наглядности каждый нужно было расположить в нескольких ВЭ. Поместить в ВЭ только описание блока похоже невозможно. Поэтому эту задачу можно решить, управляя видимостью слоя в ВЭ. Создавать слои и копировать на них блоки вручную - довольно тяжёлая задача. Вот поэтому и решил обратиться за помощью.
Ещё раз большое спасибо!

[hwd]

Сообщение от Андрей Будзинский где указаны размеры каждого описания блока. Более того, для наглядности каждый нужно было расположить в нескольких ВЭ. Поместить в ВЭ только описание блока похоже невозможно.

Похоже, что вы не понимаете, что такое описание (правильнее - определение) блока, а что такое вхождение блока.

[ShaggyDoc]

Поэтому эту задачу можно решить, управляя видимостью слоя в ВЭ.

Мои подозрения оправдываются. Для этого не надо создавать множество описаний блоков. Можно иметь один правильный блок, и вставлять его на множество, возможно, действительно необходимых слоев.

"Правильный" блок это:

1. Блок, у которого все примитивы находятся на слое "0".
2. Все примитивы блока имеют свойства "ByBlock" (некоторые, возможно - ByLayer). Некоторые, возможно, "кокретный цвет". Главное - слой "0".

"Правильный" блок, при вставке на любой слой наследует свойства текущего (в момент вставки) слоя.

Т.е. примитивы правильного блока будут как бы размещены на этом слое.

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

Плодить описаний блокв не нужно! Не нужны и "программки".

[TararykovDG]

Сообщение от ShaggyDoc "Правильный" блок это: 1. Блок, у которого все примитивы находятся на слое "0".

ShaggyDoc, прошу прощения, но у меня вопрос по "правильным блокам". Для отображения точек тахеометрической съемки (ж/д путей и полосы отвода) я создал такой блок:
окружность - для отображения самой точки;
атрибут1 - высотная отметка точки;
атрибут2 - код точки; (например: "R" - рельефная точка; "1" - точка 1-го пути; "BR" - бровка и т. д.)
атрибут3 - порядковый номер точки;

при отрисовки плана съемки необходимо видеть все атрибуты, а вот для печати атрибут2 и атрибут3 необходимо убрать. Для этого я в определении блока разнес все атрибуты по своим слоям, теперь отключая и включая слои я могу когда мне убирать и снова отображать атрибут2 и атрибут3, назначать им разные цвета задавая цвет слою. Чем же этот блок "неправильный"?

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

А не проще ли было поместить атрибуты на непечатаемый слой?

[TararykovDG]

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

[ShaggyDoc]

я создал такой блок:

Надо создавать не собственное условное изображение, а использовать стандартное. В "Условных знаках..." имеются различные знаки для отображения точек сетей - номера с 1 по 12. Там имеется даже до 4-х атрибутов. И вся страна много десятилетий пользуется. И проектировщики прекрасно знают, как рационально использовать топографическую подоснову. А как же они работали на бумаге, когда вообще ничего нельзя было "отключить"?

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

При грамотной организации работ посмотреть "полную" подоснову всегда можно.

[TararykovDG]

Сообщение от ShaggyDoc В "Условных знаках..." имеются различные знаки для отображения точек сетей - номера с 1 по 12. Там имеется даже до 4-х атрибутов.

Если есть атрибуты, значит речь идет о программной реализации некой библиотеки "Условных знаков". У меня от руководства есть "голый" ACAD 2008 и все надстройки самодельное творчество. Если же эти "Условные знаки" есть в свободном доступе, то не сочтите за труд дать ссылку, я хоть поучусь как надо делать.

Сообщение от ShaggyDoc И проектировщики прекрасно знают, как рационально использовать топографическую подоснову.

не хочу никого обидеть, но это не про наших проектировщиков

Сообщение от ShaggyDoc Вот когда появляется куча неведомых слоев, хитро переплетенных между изображениями блоков и атрибутов, это гораздо хуже.

С этим пожалуй целиком и полностью соглашусь

Сообщение от ShaggyDoc При грамотной организации работ посмотреть "полную" подоснову всегда можно.

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

[ShaggyDoc]

TararykovDG, поясняю:

1. Упомянутые условные знаки - это книга с названием "УСЛОВНЫЕ ЗНАКИ
ДЛЯ ТОПОГРАФИЧЕСКИХ ПЛАНОВ МАСШТАБОВ 1:5000, 1:2000, 1:1000, 1:500". Эту книгу обязан наизусть знать каждый, кто имеет отношение к топографии. Даже программист. Особенно программист, потому что ему потом будут "предъявы" делать, что неправильно "напрограммировал".

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

Особенность топографии в том, что она делается для неоднократного использования и строго по этому стандарту. Топография попадает под лицензируемый вид деятельности, материалы сдаются в специальный фонд. Даже если съемки делает частник. Кое-где из съемок формируется сводный план города.

Контроль обычно серьезный, в том числе и в части соблюдения условных изображений. Кто не соблюдает - вылетает с рынка.

2. Программные реализации, разумеется, есть и их немало. И у меня в ruCAD есть специальный раздел - там около 500 "кнопок" на все виды. "Библиотека" - понятие относительное. В составе программы есть и библиотеки блоков - ими обычно делают точечные знаки. Но много линейных и площадных обозначений. Некоторые довольно сложно реализовать, например, изображения откосов.

Ну, а "точки" - это вообще ничтожная мелочь. Доля их на топографических планах ничтожна, незачем и думать о специальных слоях для "атрибутов". Топография забита "по завязку" совсем другим.

Библиотеки DWG-блоков для топографии есть где-то в Download на этом сайте. Но самих блоков мало, нужны программы для удобной работы с ними и с другими условными изображениями. Наподобие показанной на рисунке.

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

Работу с классификатором слоев также желательно поддерживать программно. И ничего лишнего!

Если же в фирме описанное мной не соблюдается, то это не фирма, а шарага и делать там нечего.

[MeshIN]

ShaggyDoc, извините, что вмешиваюсь.

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

Общепринятого классификатора насколько я знаю не существует, максимум , на уровне региона/корпоративного стандарта. Если б таковой существовал все ведущие производители давно уже, адаптировали софт под него.

[ShaggyDoc]

Сообщение от MeshIN Общепринятого классификатора насколько я знаю не существует, максимум , на уровне региона/корпоративного стандарта. Если б таковой существовал все ведущие производители давно уже, адаптировали софт под него.

Со "стандартами" сейчас в связи с законом о ТР вообще сложности. Что касается классификаторов, то раньше, да, "общепринятых" не было. Мы сами делали классификатор, который применялся на уровне нескольких городов.

Но ГИС-Ассоциация не дремлет. Хоть со скрипом, дело идет. Утверждена Правительством Концепция базовых пространственных данных, там без классификаторов не обойтись. И сами классификаторы появились (хоть не утверждены на государственном уровне). Причем пошли именно от разработчиков софта.

Существует "КЛАССИФИКАТОР СЛОЕВ, СЕМАНТИЧЕСКИХ ХАРАКТЕРИСТИК, ОБЪЕКТОВ ТОПОГРАФИЧЕСКИХ ПЛАНОВ МАСШТАБА 1:500, 1:1000". Аналогичные есть для более мелких масштабов. Есть и в виде документов и в виде RSC-файлов для ГИС-Панорамы, а этот продукт используют все "силовые" структуры. И остальным нет никакого смысла противиться.

Например, упоминавшиеся "точки" относятся к слою "МАТЕМАТИЧЕСКАЯ ОСНОВА КАРТЫ". Латинское имя (для разных целей) "LAYER2" и есть, например,

ПУНКТ Г.Г.С. (002-000-P)
ТОЧКА ПЛАНОВОЙ СЕТИ ДОЛГОВРЕМ (005-100-P)
ТОЧКА ПЛАНОВОЙ СЕТИ ВРЕМЕННАЯ (005-200-P)
НИВЕЛИРНАЯ МАРКА, РЕПЕР (011-000-P)
ЗНАК МЕЖЕВОЙ ГРАНИЧНЫЙ СТОЛБ (008-300-P)
ПУНКТ ГЕОДЕЗИЧЕСКИХ СЕТЕЙ (004-000-P)

В классификаторах и атрибуты описаны. Сделана привязка к изображению условного знака. Например, для объекта (знака) "ПУНКТ ГЕОДЕЗИЧЕСКИХ СЕТЕЙ" (показано изображение из условных знаков) есть код 11600000 и атрибуты

АБСОЛЮТНАЯ ВЫСОТА
СОБСТВЕННОЕ НАЗВАНИЕ
ХАРАКТЕР РАСПОЛОЖЕНИЯ
НОМЕР ПУНКТА МАТ.ОСНОВЫ
ОТМЕТКА ОСНОВАНИЯ

И аналогично для всех знаков. В том числе для линейных и площадных. В классификаторах "атрибут" это не атрибут блока AutoCAD, а какая-то семантическая характеристика объекта, которая обычно содержится в базе данных, но может, при необходимости, и на чертеже отобразиться.

А кто такие "все ведущие производители"? Autodesk в этой отрасли к ним никак не относится. Отстала навсегда, хоть ещё пытается пыжиться с "вертикальными решениями". ESRI? Mapinfo? Так им "до лампочки", как и Autodesk. Во всех этих продуктах всегда можно было создавать любые слои. Если где-то используют классификатор, пусть пользователи и создают слои не от фонаря, а по классификатору.

В России "ведущими" можно считать Панораму, ИнГЕО, ObjectLand. Их разные группы организаций используют. Но, если по моему заказу профессиональный Геоцентр делал в ИнГЕО карту, так там слои ещё 8 лет назад были именованы именно по классификаторы. И все предприятия бывшей Роскартографии используют классификаторы. И Геонадзор начинает требовать их соблюдения.

Ну, а принятие стандарта на государственном уровне - дело времени. "Де-факто" он действует, "де-юре" появится, когда увлекательные игры с административной реформой и "отменой" всех норм закончатся.