[ie.spb]

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

[wetr]

Сообщение от Кулик Алексей aka kpblc data extraction - это имеется в виду извлечение атрибутов? Потому что таблица в #12 как-то странновато сделана: обновления не выполняется при копировании объектов. Проверял на ADT 2006 Rus.

Сообщение от Djonikbishkek Такая же история на 2008 каде. Но когда сам создаешь все нормально, обновляется как положено.

Все верно вы говорите. В моей таблице прописаны мои пути доступа к файлу в котором производится подсчет атрибутов. Поэтому на других компах и не будет обновлять пока не перебьешь пути к файлу. Или, как говорит Джоник-Бишкек, можно создать таблицу заново.

[ie.spb]

Твоя правда. И все таки долгая это история. Проще программкой. И еще не переводи мой ник на русский, а то звучит не очень как-то.

[wetr]

Djonikbishkek, ОК!

[Supermax]

Мужики! вы совсем заработались.
Вот как надо и складывай, и вычитай и хоть в степень возводи.

[wetr]

Сообщение от Supermax Мужики! вы совсем заработались. Вот как надо и складывай, и вычитай и хоть в степень возводи.

Ага, а когда у тебя хотя бы 50 блоков с различными параметрами, как у Djonikbishkek, ты что делать будешь? Записывать в филд формулу из 50 слагаемых??? Потом прибавилось пара блоков... Перебивать формулу в филде??? Ты уж извени, Supermax, но твой вариант самый плохой...

[Supermax]

Какого перебивать? А добавить слабо? Если в блоке и высота и длинна, как отличить одно от другого? Только указанием на конкретный параметр. Что в проге, что в формуле, работа одна и та же. Тыкай, тыкай, тыкай. Формула хоть никуда не исчезает и все указанные параметры хранит, а прогой один раз посчитал и привет. Иначе в прогу надо вставлять создание файла и сохранение в нем данных, или в сам файл чертежа вставлять куда-то. Можно конечно параметры длин обозвать особо, чтобы прога их выделяла из прочих длин, но тогда платим универсализмом. Прийдется везде такие названия параметрам давать, а это не приемлемо.

Что, сохранять в таблицу лучше? В два раза больше работы.

[wetr]

по моему мы про разные веши разговариваем. Supermax, ты data extraction пробовал??? Судя по высказываниям - "Что, сохранять в таблицу лучше? В два раза больше работы" - нет.
1. Для данной КОНКРКТНОЙ задачиDjonikbishkekа, лисп это лучший вариант, не надо тыкать,тыкать, тыкать.
2. data extraction позволяет автоматом вывести ЛЮБЫЕ параметры, хоть длину, хоть высоту, в таблицу и не важно сколько блоков. Я вчера пробовал посчитать 2500 блоков Djonikbishkekа. Все вывелось в таблицу за несколько секунд. А ты сколько раз бы тыкал??? После создаем ячейку "сумма". И ФСЕ!

[Supermax]

Заинтриговал, однако.

[ie.spb]

Алексей, еще вопрос. Так получилось, что у одного нашего сотрудника русский Автокад, и программа выдает сумму 0. Знаю что надо где-то в тексте программы поставить "_", вот только где?

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

Дело в том, что у меня не используются командные методы, поэтому ставить "_" где бы то ни было - бесполезно (попросту негде). Сейчас проверю на 2006-м, оно у меня русское...
Проверил. Все считается. Может, в блоках нет свойства distance?

[ie.spb]

Я знаю в чем проблема. Мои блоки созданы в английской версии, и у них есть параметр Distance, который так и воспринимается русской версией. А если блок создать в русской версии, то этот параметр называется Длина. Или я не прав?

[wetr]

вот тут то и проявляются преимущества data extraction

[ie.spb]

Тебе надо рекламным агентом работать. Хорошо продвигаешь data extraction. :-))

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

Втупую, думать не получается:

Код:

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

(defun c:get-len (/ summ selset)
  (vl-load-com)
  (if (setq selset (ssget '((0 . "INSERT"))))
    (setq summ
           (apply
             '+
             (mapcar
               '(lambda (b) (vlax-variant-value (vla-get-value b)))
               (vl-remove-if-not
                 '(lambda (a)
                    (wcmatch (strcase (vla-get-propertyname a))
                             "DISTANCE,ДЛИНА"
                             ) ;_ end of wcmatch
                    ) ;_ end of lambda
                 (apply
                   'append
                   (mapcar
                     '(lambda (x)
                        (vlax-safearray->list
                          (vlax-variant-value
                            (vla-getdynamicblockproperties x)
                            ) ;_ end of vlax-variant-value
                          ) ;_ end of vlax-safearray->list
                        ) ;_ end of lambda
                     (vl-remove-if-not
                       '(lambda (x)
                          (equal (vla-get-isdynamicblock x) :vlax-true)
                          ) ;_ end of lambda
                       (mapcar 'vlax-ename->vla-object
                               ((lambda (/ tab item)
                                  (repeat (setq tab  nil
                                                item (sslength selset)
                                                ) ;_ end setq
                                    (setq tab
                                           (cons (ssname selset (setq item (1- item))) tab)
                                          ) ;_ end of setq
                                    ) ;_ end of repeat
                                  tab
                                  ) ;_ end of lambda
                                )
                               ) ;_ end of mapcar
                       ) ;_ end of vl-remove-if-not
                     ) ;_ end of mapcar
                   ) ;_ end of apply
                 ) ;_ end of vl-remove-if-not
               ) ;_ end of mapcar
             ) ;_ end of apply
          ) ;_ end of setq
    ) ;_ end of if
  (if summ
    (alert (rtos summ 2 2))
    ) ;_ end of if
  ) ;_ end of defun

Заберет данные и с DISTANCE, и с ДЛИНА.

[ie.spb]

Я понимаю, что после вчерашнего. Еще раз с прошедшим. И к теме, даже если заменить Distance на Длина, все равно не работает, выдает ошибку.

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

Тут мало что после вчерашнего, так еще и работы немеряно нарисовали. короче, образец (если можно, конечно). Потому как рисовать полный вариант означает пытаться изобразить замену того, что рекламирует wetr

[ie.spb]

Вот тот же самый файл только с параметром "Длина"

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

Моя дурак. В коде идиотская ошибка. Исправил #34.

[ie.spb]

Вот теперь все работает. Спасибо огромное. Как буду в Питере с меня пиво, к бабке не ходи. Как говорят у нас в Киргизии "Чон рахмат, досум"

[Log_in]

А при копировании блоков не обновляет таблицу потому что извлечение атрибутов делалось с "выбором объектов", а не применительно к "текущему рисунку"... и наверное wetr прав, что извлечение атрибутов более универсальная штука нежели лисп под конкретную задачу, хотя если задач немного, то почему бы и нет