[goa_wert]

Идея автоматической спецификации лежит на основе подсчёта всех блоков, находящихся в пространстве модели (modelspace).
Идея не нова, но вменяемой реализации пока не видел.

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

Код:

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

block:=acad.ActiveDocument.Blocks.Item(i);
blockname:=block.Name;

Однако этот вариант отпал - надо знать колличество.
Тогда начал делать так:

Код:

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

items:=acad.ActiveDocument.ModelSpace.Item(i);
item_name:=items.ObjectName;

В итоге получал что то вроде:
acDbLine или acDbBlockReference

т.е в Итоге я могу посчитать количество абсолютно всех блоков скупом. А вот как теперь зная, что текущий объект - это вхождение блока достать его имя?

з.ы. Может уже есть готовые решения, чтоб я зря время не тратил?
Пробовал в 2008 автокаде Извлечь Атрибуты. Да - показывает кол-во блоков, но как-то долго..глючно... А так я бы и экспорт в эксель загнал бы сразу....

[ShaggyDoc]

Идея не нова, но вменяемой реализации пока не видел.

И не увидишь. Потому что идея - порочна. Подсчет количества блоков это НЕ "автоматическая спецификация". Это всего лишь подсчет количества блоков - пусть с сортировками и прочим.

То же на LISP сделано множество раз. Delphi для этого самый неподходящий инструмент. Вот оформление спецификаций (БД, редактирование в форме или сетке, справочники, формирование отчета, печать и т.п.) - для этого Delphi, пожалуй, наилучший инструмент. И зачем для Delphi еще какая-то "эксель"? Она сама по себе в 100 раз лучше. Или в 200 - для оформления спецификаций. Экспорт в Excel тоже легко между делом выполняется - как ТНП из отходов основного производства.

[goa_wert]

То же на LISP сделано множество раз

Поделитесь ссылкой на сабж, если не трудно

Делфи как раз и выбрал для оформления спецификаций. Т.е. алгоритм такой:
Связь Делфи с автокадом -> Чтение блоков и их подсчёт -> Формировании на основе прочтённых данных спецификации -> Экспорт в эксель уже готовой сформатированной спецификации...

[ShaggyDoc]

goa_wert, алгоритм - наоборот.

1. Не связь Delphi с Автокадом, а AutoCAD с Delphi.
2. Не чтение блоков, а поиск любых примитивов (блок частный случай), у которых имеется ссылка на таблицу и запись в БД.
3. Формирование спецификации не на основе "прочитанных" данных, а из БД. В спецификации может быть множество позиций, никак не отраженных в чертеже, а также имеющихся в чертеже, но не в виде блоков. С добавлением необходимых позиций. По каким-то позициям "Кол" может быть извлечено и из чертежа.
4. Печать спецификации из Delphi. Факультативно - экспорт в Excel не сформатированной спецификации, а содержимого DataSet.

Ссылки на LISP я не держу (сам пишу). Найдете поиском по форуму.

[goa_wert]

Ну может и так. Мне вот только немного не понятен пункт 2.
Это получаеться что в чертеже есть своя база данных которая хранит информацию о каждом примитиве?

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

См. расширенные данные и (или) пользовательские словари.

[goa_wert]

А может кто-то всё таки подскажет как в делфи реализовать это:

А вот как теперь зная, что текущий объект - это вхождение блока достать его имя?

Я пытался сделать так:

Код:

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

for i:=0 to a.ActiveDocument.ModelSpace.Count-1 do
   begin
     Current_Item:=a.ActiveDocument.ModelSpace.Item(i);
     if Current_Item.EntityName='AcDbBlockReference' then
       begin
         BlockRef:=Current_Item;
         Form1.ListBox2.Items.Add(BlockRef.Name);
       end;
      end;

Однако при компиляции возникла ошибка в строке: BlockRef:=Current_Item; - мол разные типы переменных (IAcadBlockReference и IAcadEntity)

[VVA]

В свое время было опубликовано Алексеем на autocad.ru. Считает и динамические блоки по EffectiveName

Код:

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

(defun c:blockcount (/ adoc selset res name) 
  (vl-load-com) 
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))) 
  (if (setq selset (ssget '((0 . "INSERT")))) 
    (progn 
      (foreach blk 
               (mapcar 'vlax-ename->vla-object 
                       (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))) 
                       ) ;_ end of mapcar 
        (setq name (cond 
                     ((and (vlax-property-available-p blk 'isdynamicblock) 
                           (= (vla-get-isdynamicblock blk) :vlax-true) 
                           ) ;_ end of and 
                      (vla-get-effectivename blk) 
                      ) 
                     (t (vla-get-name blk)) 
                     ) ;_ end of cond 
              ) ;_ end of setq 
        (if (member name (mapcar 'car res)) 
          (setq res (subst (cons name (1+ (cdr (assoc name res)))) 
                           (assoc name res) 
                           res 
                           ) ;_ end of subst 
                ) ;_ end of setq 
          (setq res (append res (list (cons name 1)))) 
          ) ;_ end of if 
        ) ;_ end of foreach 
      (princ "\nИмя\tКоличество") 
      (foreach item res 
        (princ (strcat "\n" (car item) "\t" (vl-princ-to-string (cdr item)))) 
        ) ;_ end of foreach 
      (princ) 
      ) ;_ end of progn 
    ) ;_ end of if 
  ) ;_ end of defun

[goa_wert]

2 VVA - Спасибою Буду разбираться.
По поводу своего-же вопроса:

Однако при компиляции возникла ошибка в строке: BlockRef:=Current_Item; - мол разные типы переменных (IAcadBlockReference и IAcadEntity)

Решил сам. Нужно сделать так

Код:

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

BlockRef:= IDispatch(Current_Item) as IAcadBlockReference;

p.s. У меня к сожалению форум на autocad.ru не работает...

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

> #7 : Так тебе дельфя английский языком сообщает, что ты работаешь с разными типами данных - пытаешься сравнивать описание блока и обычные примитивы. Могу сказать только одно: справка по объектной модели acad'a должна быть прочитана от корки до корки.

[ShaggyDoc]

Сообщение от Кулик Алексей aka kpblc > справка по объектной модели acad'a должна быть прочитана от корки до корки.

Верно. Причем прочитана в прямом и обратном направлении, несколько раз. И всегда открыта справка acadauto.chm.

Из Delphi с AutoCAD можно работать только через объектную модель. Так же работает встроенный в AutoCAD VBA. Но он хоть встроен внутрь.

Работу через объектную модель из внешнего приложения можно сравнить с управлением марсо-луноходами с Земли. Можно, но неудобно. И с ограничениями. Нет в объектной модели свойства или метода - и ничего не сделаешь. А там далеко не все есть, и работа с объектами далеко не всегда эффективна. Многое объектными методами нельзя сделать в принципе.

Обычная ошибка "дельфинов" - основываясь на своем хорошем знании Delphi и слабом знании AutoCAD пытаются делать свое приложение "главным".

[goa_wert]

А можно ли сделать связку ObjectARX+Excel ?
Меня привлекает то, что можно делать Автокадовские менюшки и панели инструментов...
В Делфи такой фичи не нашел.

з.ы. Не знаю как на счёт неудобства и невозможности выполнения некоторых функций - пока не встречал...
з.з.ы. Это вторая програмка которую пишу. Первую писал год назад, которая значительно ускорила создание монтажных чертежей (автоматическая прорисовка переходов, отводов, шаровых кранов, фильтров), но время идёт вперед и наша контора постепенно переходит на 3D. И первая прога отпала за не надобностью... Но год - очень славно послужила
з.з.з.ы. У меня что знание AutoCAD, что Delphi где-то на троечку....И мне всё равно какое приложение "главное". Для меня важен результат

[Бриг]

Сообщение от ShaggyDoc И зачем для Delphi еще какая-то "эксель"? Она сама по себе в 100 раз лучше. Или в 200 - для оформления спецификаций.

Спецификации во Всемогущем Excel - это здорово. И очень удобно.

[ShaggyDoc]

Сообщение от Бриг Спецификации во Всемогущем Excel - это здорово. И очень удобно.

Ага, еще бы про "всемогущий Word" написали. Многие в нем и делают. В спецификациях "Всемогущему Excel" нечего перемножать и складывать. А "база данных", которую в Excel можно сделать - самая примитивная и абсолютно ни от чего не защищенная.

Спецификации (серьезные) - это прежде всего база данных оборудования, изделий и материалов. С возможностями удобной работы, выбора позиций и прочего. Уж если говорить про "офисные средства", то там для таких целей имеется Access. На ней вполне можно сделать приложения для спецификаций.

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

Здесь же человек работает с профессиональной системой програмирования Delphi. Просто видимо не знает, что для формирования готовых документов используются генераторы отчетов. Или как ими пользоваться.

А можно ли сделать связку ObjectARX+Excel ?

ObjectARX нужен исключительно для работы с AutoCAD. Вообще-то это набор библиотек. А среда программирования - MS VC++ (разных версий). Естественно, что в программах, разрабатываемых в такой мощной среде, можно сделать связку с Excel. Но зачем козе баян?

Меня привлекает то, что можно делать Автокадовские менюшки и панели инструментов... В Делфи такой фичи не нашел.

А при чем здесь Delphi или еще "кто-то"? Все, что есть в объектной модели - доступно и через Delphi. "Фичу" надо искать не в Delphi, а в AutoCAD.

мне всё равно какое приложение "главное". Для меня важен результат

Если "все равно", то и результата можно не получить.

[Бриг]

Сообщение от ShaggyDoc Ага, еще бы про "всемогущий Word" написали. Многие в нем и делают.

И в автокаде делают до сих пор. И не жалуются.

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

Зачем усложнять то, что еще и в простоте на понятно? Спецификация в Excel снимает столько проблем, что многим профессиональным программистам (которые проектируют "спецификацию" с нуля и думают, что сейчас у них все заработает) и не снилось.

[lee]

Сообщение от goa_wert Идея автоматической спецификации лежит на основе подсчёта всех блоков, находящихся в пространстве модели (modelspace). Идея не нова, но вменяемой реализации пока не видел.

поставь Autodesk ADT (Architecture) и не изобретай велосипед. Вменяемых реализаций он не видел !!!