реклама на сайте
подробности

 
 
> [DelphiScript] Как извлечь аттрибуты элементов, из файла .PcbDoc
akhmetov
сообщение Dec 2 2008, 05:51
Сообщение #1





Группа: Новичок
Сообщений: 5
Регистрация: 27-08-08
Пользователь №: 39 838



Добрый день !

Необходимо в программе на DelphiScript извлечь из файла .PcbDoc список элементов и их атрибутов,
т.е. то, что Altium показывает в Report->Bill of Materials (BOM) с выставленным флажком Include Parameters from Database

Список элементов получить легко:
Код
Var
    PCBBoard   : IPCB_Board;
    PcbObj        : IPCB_Component;
    PcbIterator  : IPCB_BoardIterator;
    PcbObjPi      : IPCB_Iterator;
Begin
    PCBBoard   := PCBServer.GetCurrentPCBBoard;

    If PCBBoard = Nil Then exit;

    PcbIterator := PCBBoard.BoardIterator_Create;
    PcbIterator.AddFilter_ObjectSet(MkSet(eComponentObject));
    PcbIterator.AddFilter_LayerSet(AllLayers);
    PcbIterator.AddFilter_Method(eProcessAll);

    PcbObj := PcbIterator.FirstPCBObject;
    While PcbObj <> Nil Do
    Begin
       {
         PcbObj - элемент, как получить его атрибуты ?
       }
        PcbObj := PcbIterator.NextPCBObject;
    End;
    PCBBoard.BoardIterator_Destroy(PcbIterator);
end;

PCB API Reference читаю, не помогает.
Как получить атрибуты элементов ?
Go to the top of the page
 
+Quote Post



Reply to this topicStart new topic
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 


RSS Текстовая версия Сейчас: 28th June 2025 - 11:24
Рейтинг@Mail.ru


Страница сгенерированна за 0.01338 секунд с 7
ELECTRONIX ©2004-2016