[ie.spb]

Доброго времени суток. Есть такая проблема: имеются блоки с одним единственным атрибутом, надо сложить значения атрибутов. Думаю что для знающего человека написать небольшой код будет не сложно.
Вроде, такой же темы не нашел. Извлечение данных слишком долго. Хотелось бы просто выбрать блоки и получить сумму.
Имя атрибута "_Мощность".
Если у кого есть решения, выручайте.
Заранее спасибо

[Alan]

Пара способов без программирования (см. в Поиске описано не раз)
1.Извлечение данных
2. ATTOUT, потом Excel

[ie.spb]

Спасибо. Но про эти способы я знаю. Они все равно долгие.
У меня на плане куча разных светильников, они поделены на группы. Задача стоит подсчитать мощность отдельно взятой группы. Это бы крайне ускорило рабочий процесс

[trir]

SQL

[gomer]

Задача элементарная, но лучше этой теме быть в поиске исполнителей

[Alan]

Сообщение от ie.spb У меня на плане куча разных светильников, они поделены на группы. Задача стоит подсчитать мощность отдельно взятой группы

При такой постановке задачи, решение от gomer"a наилучшее.

[ie.spb]

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

[Do$]

http://google.gik-team.com/?q=%D0%9F...9+forum.dwg.ru

[beeliy]

Получилось примерно так:

Код:

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

 (DEFUN C:SummAtrib ()
  (vla-addText
    (vla-get-ModelSpace
      (vla-get-ActiveDocument (vlax-get-acad-object))
    )
    (APPLY
      '+
      (MAPCAR
    '(LAMBDA (g)
       (ATOF (cdr
           (ASSOC
             1
             (entget
               (car
             (VL-REMOVE-IF-NOT
               '(lambda (y)
                  (= (cdr (ASSOC 2 (ENTGET y))) "_Мощность")
                )
               (MAPCAR
                 'vlax-vla-object->ename
                 (vlax-safearray->list
                   (vlax-variant-value
                 (vla-GetAttributes
                   (vlax-ename->vla-object
                     g
                   )
                 )
                   )
                 )
               )
             )
               )
             )
           )
         )
       )
     )
    (vl-remove-if
      'listp
      (mapcar 'cadr (ssnamex (ssget '((0 . "INSERT")))))
    )
      )
    )
    (vlax-3d-point
      (GETPOINT)
    )
    1
  )
)

Лисп не будет работать при выборе блока без атрибута "_Мощность".

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

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

[maratovich]

Сообщение от ie.spb Я же говорю, атрибут у всех один и тот же. В него вписана мощность. Задача стоит выбрать блоки и сложить значения атрибутов

А файл из разряда секретных ? Может ещё и по слоям подсчет вести, ведомость сразу сделать или спецификацию ?

[ie.spb]

Спасибо за ответы. По поводу #9 пишет:

; error: bad argument type: lentityp nil

Сообщение от maratovich А файл из разряда секретных ? Может ещё и по слоям подсчет вести, ведомость сразу сделать или спецификацию ?

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

Сообщение от Do$ http://google.gik-team.com/?q=%D0%9F...9+forum.dwg.ru

Прикольно. Возьму на заметку.

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

Сообщение от Кулик Алексей aka kpblc В коде не учитывается вариант ввода нецелых чисел через точку или запятую - это что бросилось в глаза сразу. Заодно - значение атрибута может начинаться с пробела или какого-либо не числового символа. Ну и еще вариантов можно понапридумывать массу.

Цифры только целые, это точно. Значение атрибута без пробелов и без любых других символов.

[maratovich]

Как вариант решения задачи. В архиве принскрины.

[ie.spb]

Сообщение от maratovich Как вариант решения задачи. В архиве принскрины.

А что это такое? Если не секрет, конечно

[maratovich]

Сообщение от ie.spb А что это такое? Если не секрет, конечно

Программа TECHBRAS предназначена для автоматического получения спецификации элементов и деталей в программе AutoCAD при использовании в любой сфере деятельности. Позволяет автоматически произвести поиск блоков с атрибутами, на основе которых строится таблица спецификации, подсчитываются и суммируются значения количества и других требуемых данных, заполняется ведомость по расположению блоков по слоям. Автоматически производится экспорт таблиц спецификации и ведомости в Word, Excel, AutoCAD.
Основным преимуществом является универсальная настройка большинства параметров, которая позволяет настроить программу под Ваши потребности и желания – по принципу «Я хочу, чтобы было именно так!».

Подробнее здесь или в личку.

[gomer]

Сообщение от beeliy Лисп не будет работать

Да, не будет. Так спешили что все перепутали, вот и не будет
А у меня будет

Код:

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

 (defun C:CALCLIGHT (/ *error*)
  (defun *error* (msg) (princ))
  ( (lambda (ss pt)
      (if (and ss pt)
        ((lambda (str)
           (vla-addtext
             (vla-get-Block
               (vla-get-activelayout
                 (vla-get-activedocument (vlax-get-acad-object))
               )
             )
             str
             (vlax-3d-point pt)
             250
           )
         )
          (itoa
            (apply
              '+
              (mapcar
                (function
                  (lambda (x)
                    (atoi
                      (vla-get-TextString
                        (car
                          (vlax-safearray->list
                            (vlax-variant-value
                              (vla-getattributes (vlax-ename->vla-object x))
                            )
                          )
                        )
                      )
                    )
                  )
                )
                (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
              )
            )
          )
        )
      )
    )

    (progn
      (prompt "\nВыберите светильники для расчета")
      (ssget
        ;; "_X"
        '
         ((0 . "INSERT")
          (2 . "_Светильник1")
         )
      )
    )

    (progn
      (initget 1)
      (getpoint "\nУкажите точку вставки текста: ")
    )
  )
)

По всем вопросам допила

Сообщение от maratovich в личку

договоримся

[Nike]

Сообщение от gomer По всем вопросам допила Цитата: Сообщение от maratovich в личку договоримся

Вот же жмикрут!

[gomer]

Nike, свободен