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

 
 
> Плата -> список компонентов по разным сторонам, Как получить ?
Jul
сообщение Oct 23 2006, 19:02
Сообщение #1


Местный
***

Группа: Свой
Сообщений: 476
Регистрация: 15-12-04
Из: СПб
Пользователь №: 1 481



Есть плата, разведена в PADS-е, установка компонентов с двух сторон.
Надо получить два списка компонентов - установленных со стороны TOP и со стороны BOTTOM.
Как это сделать ?
(Можно, наверное, попробовать проанализировать формат ASCII, там точно все это расписано, но хочется найти менее трудоемкое решение)
Go to the top of the page
 
+Quote Post
 
Start new topic
Ответов
Fellow
сообщение Oct 23 2006, 22:15
Сообщение #2


Частый гость
**

Группа: Участник
Сообщений: 90
Регистрация: 29-06-05
Пользователь №: 6 404



Цитата(Jul @ Oct 23 2006, 22:02) *
Есть плата, разведена в 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

Сообщение отредактировал Fellow - Oct 23 2006, 22:16
Go to the top of the page
 
+Quote Post
Jul
сообщение Oct 24 2006, 02:12
Сообщение #3


Местный
***

Группа: Свой
Сообщений: 476
Регистрация: 15-12-04
Из: СПб
Пользователь №: 1 481



Спасибо, работает !!!
А где бы почитать про скрипты, как их создавать ?
И где их (скрипты) находят ? smile.gif
Go to the top of the page
 
+Quote Post
Fellow
сообщение Oct 24 2006, 17:15
Сообщение #4


Частый гость
**

Группа: Участник
Сообщений: 90
Регистрация: 29-06-05
Пользователь №: 6 404



Цитата(Jul @ Oct 24 2006, 05:12) *
Спасибо, работает !!!
А где бы почитать про скрипты, как их создавать ?
И где их (скрипты) находят ? smile.gif

Нужно освоить Бейсик. Встроенный редактор скриптов (SAX Basic) выдает помощь по реализованным в PADS функциям. Примеры скриптов поставляются в дистрибутиве и лежат в последних версиях в разделе PADS Projects\Samples\Scripts\Layout (если у Вас старая версия, поищите по расширению *.bas). Этот скрипт был в подкаталоге Unsupported указанного каталога.
Go to the top of the page
 
+Quote Post
Jul
сообщение Oct 25 2006, 04:14
Сообщение #5


Местный
***

Группа: Свой
Сообщений: 476
Регистрация: 15-12-04
Из: СПб
Пользователь №: 1 481



Спасибо,
придется вспоминать Basic.
Go to the top of the page
 
+Quote Post



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

 


RSS Текстовая версия Сейчас: 22nd July 2025 - 18:40
Рейтинг@Mail.ru


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