k=2

ELSE

k=1

ENDIF

nom:=nom+1

AADD(rez,({nil}))

rez[nom]=SUBSTR(st0,0,p1-1)

rez[nom]=(VAL(rez[nom])*koef)

st0=ALLTRIM(SUBSTR(st0,p1,60))

NEXT

RETURN rez

//****************************************************

FUNCTION SHELK(max) //проверка компонента на слой шелкографии

false:=0

FOR proo:=1 TO 2

proo=2

n1:=AT ('[Ly "SLK',bufer)

n2=AT('{I '+namecomp,bufer)

n3=AT('COMP_DEF ',bufer)

IF n3=0

n3=65500

ENDIF

IF n2=0

n2=n3

ENDIF

IF n1<>0

IF n1<n2

false:=1

ELSE

false:=0

ENDIF

ENDIF

IF n1=0

IF n2=65500

IF filesost<>'end'

filesost=READF()

proo=1

ENDIF

ENDIF

ENDIF

NEXT

RETURN false

//****************************************************

FUNCTION FINDCOMP() // поиск компонента с именем 'namecomp'

FOR kol:=1 TO 2

kol=2

c2=AT('{I ',bufer) //поиск {I 'имя prt'

c1=AT('{COMP_DEF ',bufer)

IF c2<>0 .AND. c1<>0 .AND. c2>c1

c2=0

ENDIF

IF c2<>0

kol=1 //после конца процедуры повторить поиск с тем- //же именем

nomcomp=nomcomp+1

?'Количство элементов на плате:',ALLTRIM(STR(nomcomp)),' '

setpos(row()-1,Col())

AADD(compon,{NIL,NIL,NIL,0,0,NIL,0,0,NIL}) //увеличение массива на один элемент

slovo:=STROKA(c2)

st0:=ALLTRIM(slovo)

st1:=AT('.',st0)

compon[nomcomp,1]=ALLTRIM(SUBSTR(st0,4,st1-4)) //выделение названия компонента

st1:=RAT(' ',slovo)

compon[nomcomp,9]:=(SUBSTR(st0,st1+1,30)) compon[nomcomp,6]:=0

compon[nomcomp,3]:=0

compon[nomcomp,2]='top'

bufer:=LTRIM(RIGHT(bufer,LEN(bufer)-(c2+3))) //отброс передней части буфера

FOR powtor:=1 TO 2

powtor=2

c2=AT('{I ',bufer) //определ.поз.следующ.компон.

c3=AT('{Ps "B"',bufer)

c4=AT('{Pl ',bufer)

c1=AT('{COMP_DEF ',bufer) //определ.след.названия

IF c1=0

c1=66000

ENDIF

c5=AT('{Ro' ,bufer)

c6=AT('{At H ' ,bufer)

IF c2<>0 .AND. c1<>0 .AND. c2<c1

endc2=c2

ELSEIF c1<>0 //определения конца области

endc2=c1 //поиска в пределах текущего

ELSE //компонента

endc2=65001

ENDIF

IF c3<>0 //определ.стороны

IF c3<endc2 //компон. в пределах текущего {I

compon[nomcomp,2]='bot'

ENDIF

ENDIF

IF c5<>0 //определ.стороны

IF c5<endc2 //компон. в пределах текущего {I

rot:=STROKA(c5)

compon[nomcomp,6]=VAL(SUBSTR(rot,5,20))

ENDIF

ENDIF

IF c6<>0 //определ.стороны

IF c6<endc2 //компон. в пределах текущего {I

rot:=STROKA(c6+6)

compon[nomcomp,3]=koef*VAL(ALLTRIM(rot))

ENDIF

ENDIF

IF c4<>0 опр.атриб.комп,если он расположен

IF c4<endc2 не дальше следующего {I-го)

slovo:=STROKA(c4)

compon[nomcomp,4]=ALLTRIM(SUBSTR(slovo,5,15))

ENDIF

ELSE

IF endc2=65001 если атриб. в данном буфере

IF filesost<>'end' не наидены и до конца буфера

filesost=READF() не встречается {I ,{COMP_DEF, тогда

powtor=1 подгрузить след. буфер и искать

ELSE в нем

powtor=2 если буфер последний то

идти дальше

ENDIF

ENDIF

ENDIF

NEXT

ENDIF

NEXT повторный поиск комп. в оставш. буфере с тем-же именем

RETURN

//****************************************************

FUNCTION POISK(name) поиск данных о новом элементе

PRIVATE razmx:={},razmy:={},st_org:=' ',st_razm:=' ',x:=0,y:=0,tp

CLS

fclose(desc)

pnow=0

setpos(0,0)

??'Поиск данных на элемент ',name,' .'

str=4

stolb=15

desc:=FOPEN('PDF\'+alltrim(name)+'.pdf')

IF FERROR()<>0

??'не найдены'

IF ASCAN(errfile,name+'.pdf')=0

AADD(errfile,name+'.pdf')

ENDIF

fclose(desc)

RETURN 'no'

ENDIF

FOR cont:=1 to 2

cont=2

IF READF()='end'

cont=2

ELSE

cont=1

ENDIF

c1=AT('{Org ',bufer)

IF c1<>0

st_org:=STROKA(c1+5)+'}'

ENDIF

c1=AT('{At H ',bufer)

IF c1<>0

tm1:=(STROKA(c1+6)+'}')

ttt:=SKONT(tm1)

hcomp:=ttt[1]

ENDIF

POISKRAZM(@x,@y)

NEXT

PROCENT()

st_org:=SKONT(st_org) координаты org

ASORT(razmx)

ASORT(razmy)

IF len(razmx)<1

razmx:={0}

ENDIF

IF len(razmy)<1

razmy:={0}

ENDIF

gabar[1]=ABS(razmx[LEN(razmx)]-razmx[1])

gabar[2]=ABS(razmy[LEN(razmy)]-razmy[1])

st_org[1]:=razmx[LEN(razmx)]-st_org[1]

st_org[2]:=st_org[2]-razmy[1]

??'найдены'

fclose(desc)

PROCENT()

RETURN st_org возвращает коорд. точки привязки

FUNCTION POISKRAZM(x,y)

private mpoisk:={{65000,'L'},{65000,'R'},{65000,'C'}}

mpoisk[1,1]=AT('{L ',bufer) поиск на графическом слое линий(L),прямо-

угольников(R),кругов(C)

mpoisk[2,1]=AT('{R ',bufer)

mpoisk[3,1]=AT('{C ',bufer)

cc:=0

For pk:=1 to len(mpoisk)

IF mpoisk[pk,1]=0

mpoisk[pk,1]=65000

ENDIF

Next

ASORT(mpoisk,,,{|px,py| px[1]<py[1]}) выбор графического элемен та,ближайшего к началу файла

cc:=mpoisk[1,1]

IF cc<>65000 .AND. mpoisk[1,2]<>'C'

st_razm:=ALLTRIM(STROKA(cc+3))+'}'

bufer:=SUBSTR(bufer,cc+3,65000)

mas:=SKONT(st_razm)

FOR k:=1 TO LEN(mas)-1 STEP 2 выборка координат по Х

x=x+1

AADD(razmx,0)

razmx[x]:=mas[k]

IF LEN(razmx)>20

ASORT(razmx)

min1:=razmx[1]

max2:=razmx[LEN(razmx)]

razmx={min1,max2}

x=2

ENDIF

NEXT

FOR k:=2 TO LEN(mas) STEP 2 выборка координат по Y

y=y+1

AADD(razmy,0)

razmy[y]:=mas[k]

IF LEN(razmy)>20

ASORT(razmy)

min1:=razmy[1]

max2:=razmy[LEN(razmy)]

razmy={min1,max2}

y=2

ENDIF

NEXT

POISKRAZM(@x,@y)

ELSEIF cc<>65000 .AND. mpoisk[1,2]='C'

st_razm:=ALLTRIM(STROKA(cc+3))+'}'

bufer:=SUBSTR(bufer,cc+3,65000)

mas:=SKONT(st_razm)

IF len(mas)=3

st_tmp:=SKONT(st_org) координаты org

AADD(razmx,st_tmp[1]+(mas[1]+mas[3]/2))

AADD(razmy,st_tmp[2]+(mas[2]+mas[3]/2))

AADD(razmx,st_tmp[1]+mas[1]-mas[3]/2)

AADD(razmy,st_tmp[2]+mas[2]-mas[3]/2)

ENDIF

POISKRAZM(@x,@y)

ENDIF

RETURN

//****************************************************

5. Файл specif.prg содержит в себе текст подпрограммы, создающей перечень всех элементов, содержащихся на анализируемой плате, в виде стандартного dbf файла с именем xxxxx.dbf, где ххххх — имя pfd файла PCAD-а.

//***************************************************************

FUNCTION CreatSpec()

PRIVATE struct1 [4,4],nom, ns1:='name',ns2:='oboz',ns3:='kol',ns4:='con'