[DinarSTR]

Как сделать так чтобы графический вид блока с атруботом можно было поменять исходя из данных в екселе. К примеру у меня есть блок дерево, а мне нужно его поменять на блок куст, исходя из того что у меня в экселе? все это можно сделать вручную, есть Lsp blrevers, но он меняет по одному. хотелось бы массово и исходя из данных экселя

[LynxM]

В СПДС GraphiCS есть возможность создать таблицу с отчетом (взаимосзять таблицы с блоками AutoCAD (идеальный вариант - объекты СПДС)).
Таблица "вытягивает" указанные вами блоки и их свойства и имеет свойства изменять атрибуты выбранных блоков через таблицу (изменив атрибуты в таблице - изменились в блоке).
Для данного случая: таблица вытянула атрибут "дерево" - меняем его в таблице на "куст" и на чертеже видим блоки "куст".

Какие минусы (учитывая тему):
- таблицы СПДС, а не Exel;
- необходим сам СПДС GraphiCS.

И еще один минус работы СПДС GraphiCS с блоками AutoCAD: меняются только атрибуты блока, свойства - нельзя изменить. (можно менять свойства только параметрических объектов СПДС).

P.S. Если имеется возможность такое реализовать в AutoCAD - будет интересно это почитать и взять себе для пользования. Пока приходится для реализации подобных случаев использовать СПДС.

[DinarSTR]

Мне нужно что бы и свойства менялись также. Вот лисп который меняет вручную

[LynxM]

Снял небольшой пример взаимосвязи блоков AutoCAD с таблицами СПДС графикса.

Взял стандартный блок с палитры деревья и привязал их к таблице СПДС. Идет взаимосвязь между таблицей и "параметром видимости" блока:

http://youtu.be/ZbJViJ4OpKE

[swell{d}]

Сообщение от LynxM Если имеется возможность такое реализовать в AutoCAD - будет интересно это почитать и взять себе для пользования.

http://fordewind.org/wiki/lib/exe/fe...-high-res-.pdf
весь цикл статей: http://fordewind.org/wiki/doku.php?id=solo_autocad

[LynxM]

swell{d}, спасибо за ссылку но это чуть-чуть не то что нужно.

А вот как сменить параметры блоков таким образом в связке с Excel (выбор/растяжение/поворот/...)?

Offtop: О том как это делает Дмитрий Тищенко я имел честь удивить мастер класс от самого автора на САПРяжении

[b@r@b@n]

Я связь данных Excel и Автокад осуществляю в два этапа
1. Сохранение Листа с данными в формате txt.
2. С помощью Лисп функции читаю текстовый файл и формирую список из точечных пар (переменная . значение)

Дальше делаем со списком все что душеньке угодно )))

[DinarSTR]

С помощью лисп функции вы можете поменять блок? Если да можете прислать пример?

[b@r@b@n]

1. считываем свойства с удаляемого блока.
2. удаляем блок
3. на его место вставляем новый с необходимыми параметрами.

Перед этим формируем список блоков которые необходимо изменить
Менять пока надобности не было поэтому примера нет.
Я в основном делаю расчеты в Exel, а потом по результатам корректирую модель.

[hwd]

Сообщение от b@r@b@n 1. считываем свойства с удаляемого блока. 2. удаляем блок 3. на его место вставляем новый с необходимыми параметрами.

Ну да, и сразу же получаем проблемы, если в чертеже имеются поля, ссылающиеся на свойства заменённого вхождения блока: вместо конкретного значения будет отображаться ####. Т.о. сразу же пойдут лесом ведомости и спецификации, использующие в своих формулах эти значения. Чтобы этого не было, замену следует выполнять с использованием HandOverTo.

[Дима_]

ИХмо правильней создать дин. блоки с различной видимостью и менять ее в зависимости от данных таблицы.

[hwd]

Сообщение от Дима_ ИХмо правильней создать дин. блоки с различной видимостью и менять ее в зависимости от данных таблицы.

А если в перечне XLS файла кустов и деревьев окажется несколько десятков, а в чертеже их будет пара-тройка тысяч, да к тому же в екселе их состав будет постоянно изменяться?

[Дима_]

Сообщение от hwd А если в перечне XLS файла кустов и деревьев окажется несколько десятков, а в чертеже их будет пара-тройка тысяч, да к тому же в екселе их состав будет постоянно изменяться?

То hwd - подзабыли Вы истоки матчасти - DXF. Размер файла будет больше только на описание нескольких десятков блоков, при вставке вхождения дин. блока вставляеться сгенерированный его "подблок" - "*U..." (свойства name и effectivename), который и HandOverTo'неться при изменении дин аттрибутов (реальное имя блока name измениться, а хэндл вхождения останеться прежним). То есть информации больше в чертеже не будет (ну а "пургу" для чистки надо будет вызвать в обоих случаях - т.к. механизмы идеентичны).

[DinarSTR]

это все здорово, но каким образом мне блоки перевести?

[Дима_]

Сообщение от DinarSTR но каким образом мне блоки перевести?

Вам же написали - либо програмным, либо через функционал СПДС.

[DinarSTR]

Тогда если все настолько просто, не соизволили бы вы продемонстрировать как мне "переблочить" только те блоки которые в ведомости экселя отвечают тем или иным свойствам? Просто есть файлы где блоков порядка тысячи, а сидеть вручную не подходит. в СПДС я тоже не вижу применения. А что подразумевается под программным путем?

[b@r@b@n]

Сообщение от DinarSTR А что подразумевается под программным путем?

Пишем функции на Лиспе (программируем).

[Дима_]

Сообщение от DinarSTR Тогда если все настолько просто, не соизволили бы вы продемонстрировать как мне "переблочить" только те блоки которые в ведомости экселя отвечают тем или иным свойствам?

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

Код:

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

 (vl-load-com)
(defun c:example()
  ((lambda (data)
     (mapcar '(lambda (ent)
               (mapcar '(lambda (atr)
                            ((lambda (x)
                                 (if x (entmod (subst (cons 2 (caddr (car x)))
                                                      (assoc 2 (entget ent))
                                                      (entget ent)))))
                             (vl-remove-if-not
                               '(lambda (x)
                                  (and (= (car x)(vla-get-tagstring atr))
                                       (= (cadr x) (vla-get-textstring atr))))
                                 data)))
                        (vlax-safearray->list (vlax-variant-value
                           (vla-getattributes(vlax-ename->vla-object ent))))))
            (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "INSERT") (66 . 1))))))))
    (mapcar '(lambda (row) (mapcar 'vlax-variant-value row))
              (cdr (vlax-safearray->list (vlax-variant-value
                (vlax-get-property (vlax-get-property (vlax-get-property
                   (vlax-get-property (vlax-get-object "excel.application") 'Worksheets)
                     'Item 1) 'UsedRange) 'Value)))))))