Есть плата, разведена в PADS-е, установка компонентов с двух сторон.
Надо получить два списка компонентов - установленных со стороны TOP и со стороны BOTTOM.
Как это сделать ?
(Можно, наверное, попробовать проанализировать формат ASCII, там точно все это расписано, но хочется найти менее трудоемкое решение)

Вот Бейсик-скрипт нашел. Может подойдет.


Что-то не удалось файл отослать. Вот текст скрипта:

'
' This will check each component to see which side it is mounted on. Then output a bom file for everything mounted on the top
'and everything mounted on the bottom
'mb 11-13-98

Dim ListComps$(10000)

Sub Main
filenamebot = DefaultFilePath + "\" +"bombot.txt"
filenametop = DefaultFilePath + "\" +"bomtop.txt"
Open filenametop For Output As #1
Open filenamebot For Output As #2


index = 0
Dim nextComp As Object
For Each nextComp In ActiveDocument.GetObjects(1, "", False)

ListComps$(index) = nextComp.Name + " " + nextComp.PartType + " " + nextComp.Decal + " "+"Layer"+Str(nextcomp.layer)
If nextcomp.layer =1 Then Print #1, ListComps$(index) Else Print #2, ListComps$(index)
index = index + 1
Next nextComp

Close
'open notepad to view the files
notepadtop = "notepad " + filenametop
opentop=Shell(notepadtop,1)
AppActivate opentop
notepadbot = "notepad " + filenamebot
openbot=Shell(notepadbot,1)
AppActivate openbot

End Sub

Спасибо, работает !!!
А где бы почитать про скрипты, как их создавать ?
И где их (скрипты) находят ?

Нужно освоить Бейсик. Встроенный редактор скриптов (SAX Basic) выдает помощь по реализованным в PADS функциям. Примеры скриптов поставляются в дистрибутиве и лежат в последних версиях в разделе PADS Projects\Samples\Scripts\Layout (если у Вас старая версия, поищите по расширению *.bas). Этот скрипт был в подкаталоге Unsupported указанного каталога.

Спасибо,
придется вспоминать Basic.