|
Разработка программного обеспеченияизменений, сделанных в этом окне. - КОМПОНОВКА - данный пункт не активен при выборе, до тех пор, пока не будет указанно правильное имя анализируемого pdf- файла в окне АТРИБУТЫ (о чем свидетельствует горящее посреди экрана сообщение “Не вижу pdf-файла”). Если pdf- файл доступен, то при выборе этого пункта меню начинается его анализ : за скоростью этого процесса пользователь может следить по процентной линии, отображаемой на экране. [pic] Внизу экрана отображается общее количество найденных на плате элементов а так-же сообщение о результате поиска контура платы на слое KONTUR. После завершения анализа платы программа выбирает габариты элементов из файла gabarits.dbf по их названию, а если не находит нужного, то выполняет поиск pdf-файла злемента (для prt, обработанного pdifout.exe) в подкаталоге PDF (который должен находиться в том-же каталоге что и программа). При успешном поиске она анализирует этот файл, находит в нем габариты элемента и заносит их в базу gabarits.dbf. Т.е. если на анализируемой плате есть элементы со стандартным названием, но не стандартными (обнавленными) габаритами, то необходимо удалить gabarits.dbf, а в подкаталог PDF скопировать все .pdf-файлы элементов платы, и тогда габариты всех элементов платы просканируются и файл подготовится заново. (В существующей версии каждый элемент по размерам округляется до параллелограмма, т.е. шар например станет кубом. Для точной графической передачи элементов в трехмерном виде требуется создание специальной графической библиотеки в формате T-FLEX, чему будет посвящена следующая версия программы.) Габариты элемента помещаются в базу gabaritrs.dbf. Т.е. если элемент встречался хотя-бы раз в какой- либо плате, то во всех последующих платах данные на него будут браться из базы без повторной обработки его PRT-файла. Если контур платы был обнаружен, то при создании файлов для T-FLEX в них передадутся габаритные размеры платы, со слоя KONTUR, округленные по форме до прямоугольника (существующая версия не обрабатывает сложные контуры). Если-же контур найден не был то программой создается собственный прямоугольный контур платы по условию: расстояние от края платы до граничных элементов равно 10 мм. После этого предлагается меню компоновки: [pic] - Выход (или ESC) — выход в предыдущее (главное) меню, если этот пункт выбирается первым, то при выходе происходит отказ от создания файлов платы в формате T-FLEX; - Трехмерная компоновка — при выборе этого пункта начинается процесс создания файлов изображения платы в трехмерном виде в формат T-FLEX. На экране отображается количество элементов, созданных в файлах T- FLEX , соответственно на нижнй и верхней стороне платы. При этом создаются 3-и файла в формате T-FLEX: *****top.frg-файл элементов верхней стороны платы, *****bot.frg-файл элементов нижней стороны платы, *****plt.frg-файл контура платы (символом ***** обозначаются пять первых символов каждого файла, они общиие для всех трех файлов, которые пользователь редактирует по своему усмотрению в пункте Имя файла). После завершения автоматически предлагается меню компановки и пользователь, по жланию, может либо создать какой-либо другой вид платы, либо выйти в главное меню; - Имя файла — при выборе этого пункта курсор переходит в окно с именм файла и позволяет изменить его по своему усмотрению; [pic] - Описание — при выборе этого пункта создается стандартный dbf- файл, содержащий перечень всех элементов анализируемой платы. - Двумерная компановка — при выборе этого пункта предлагается меню с различными двумерными видами платы : спереди (F), сзади (A), слева (L), справа (R). Под каждым пунктом нарисована плата и стрелкой показано направление взгляда на неё. [pic] При выборе нужного пункта происходит создание файлов двумерного изображения, соответствующего вида, в формате T-FLEX (создается файл *****2d#.frg , где ***** - имя задаваемое пользователем при выборе пункта “имя”, а # - символ признак вида : F, A, L, R). После этого вновь предлагается меню компановки. Алгоритм и описание программы. Программа разработана и написана в СУБД CLIPPER 5.2 с использованием стандартных форматов файлов баз данных. Учитывая объем программы и сложность алгоритма, использовались методы структурированного программирования и текст программы разбит на несколько файлов, в которых выделены основные функции, таким образом, чтобы их легко было редактировать во время отладки. 1. Основная программа содержится в файле dbfill.prg, которая в своей работе использует процедуры и функции, описанные во вспомогательных программных файлах. На первом шаге выполнения программа считывает имя pdf-файла, заданного в командной строке, делает текущим каталог в котором она находится, создает переменные, необходимые в работе как её, так и другим подпрограммам: PARAMETERS fname //считать параметры командной строки PUBLIC higt,higtd,pnow:=0,filelen,exit:='',attr:='',desc,bufer:=SPACE(65000), ; compon[0,9],nomcomp:=0 PUBLIC koef:=0.1,str,stolb,parts,znak,kontur[0],verkont:=0,parametr PUBLIC errfile[0] // массив сообщений об ошибках PRIVATE razm,filend,not,L,p1,str2,colo PUBLIC tlplat:=7 //толщина платы set cursor off cls colo:=setcolor('g+/b') tmppat:=dirname() //делает текущим каталог в котором наход. pat:=LOWER(exename()) //исполняемый файл c1:=RAT('tel',pat) pat:=LEFT(pat,c1-2) DIRCHANGE (pat) Далее вызывается функция, активизирующая главное меню программы, которая, в зависимости от выбранного пункта, передает управление той или иной процедуре: IF fname<>NIL cls setboxgrow(3) wbox(0) set date format 'dd:mm:yyyy' //открытие основного окна ZAGOL('ОБРАБОТКА PDF-ФАЙЛА '+DTOC(DATE())) SETCOLOR('N/G') wmenu:=wind(1,2,maxrow()-3,maxcol()-3,'Главное меню',5) perv:=1 SHOWTIME(0,72,'G/G') attrtmp:='DEMO ' higttmp:=30.00 higtdtmp:=30.00 exittmp:=' out' GL() //выов фкнкции главного меню WINCLOSE() SETCOLOR(colo) cls ELSE SETCOLOR(colo) cls @ 3,0 SAY 'Не введено имя pdf файла!' ENDIF SETCOLOR(colo) DIRCHANGE (tmppat) //возвращает сохраненный текущий каталог SETCOLOR('g/n') @ MAXROW()-1,15 SAY 'Shurasoft 1997 Mihail & Alexandr Company' SETCOLOR(colo) //возвращение текущего цвета при выходе ?' ' RETURN //***************************************************************** FUNCTION GL() //главное меню CLEAR GETS cglold:=setcolor('n/rg') @ 11,5 CLEAR TO maxrow()-2,maxcol()-6 @ 11,5 TO maxrow()-2,maxcol()-6 DOUBLE set cursor off set scoreboard off readexit(.F.) set cursor on set date format to 'dd.mm.yyyy' setpos(12,(maxcol()/2)-4) dispout(' АТРИБУТЫ ','g+/b') @ 13,7 say "Имя комплекта................................" color ('W+/rg') get attrtmp color('rg+/rg,n/w') @ 14,7 say "Ограничение по высоте сверху в mm............" color ('W+/rg') get higttmp picture '@B 999.99' color('gr+/rg,n/w') @ 15,7 say "Ограничение по высоте снизу в mm............." color ('W+/rg') get higtdtmp picture '@B 999.99' color('gr+/rg,n/w') setcolor(cglold) set cursor off mas:={{'Атрибуты','Компановка','Выход'},{"Редактирование атрибутов файла","Скомпоновать файл в формате T-FLEX","Выход в DOS"}} str:=MENU (mas,14,perv) perv=str str1:=10 IF str=1 //если выбран пункт АТРИБУТЫ- запустить меню , //позволяющее изменить атрибуты set cursor on read set cursor off ELSEIF str=2 //если выбран пункт КОМПАНОВКА- запустить //процедуру анализа pdf- файла WSELECT(0) SETCOLOR('n/bg') PUBLIC pnow:=0,filelen,desc,bufer:=SPACE(65000),compon[0,9],nomcomp:=0 PUBLIC kontur[0],verkont:=0,parametr PUBLIC errfile[0] // массив сообщений об ошибках CREATDB() wzapis:=wind(2,3,maxrow()-7,maxcol()-6,"Компановка",5) higt:=higttmp higtd:=higtdtmp attr:=alltrim(attrtmp) CONT() winclose() wselect(wmenu) ELSEIF str=0 //если не выбран не один пункт perv=4 ENDIF IF str<>3 wselect(wmenu) GL() ENDIF RETURN //***************************************************************** FUNCTION CONT() //функция анализу\ирующая pdf- файл PUBLIC kolkomp,koltop:=0,kolbot:=0,dx,dy //выделенме параметров эле- //ментов //dx,dy -поправка на 0 desc:=FOPEN(fname) filelen:=FSEEK(desc,0,2) prflen:=filelen FSEEK(desc,0,0) CLS ?'ИДЕТ ПОИСК КОМПОНЕНТ...' not:=SEARCHCOMP(@koef) //вызов функции которая выполняет всю работу по анализу текста pdf- айла , находит имена, обозначения, габариты всех элементов, находя щихся на плате и упаковы вает их в виде файла базы данных kolkomp:=0 IF len(not)>0 kolkomp:=not[1] koltop:=not[2] kolbot:=not[3] ENDIF FCLOSE(desc) //закрытие pdf файла //*****ОБРАБОТКА ПАРАМЕТРОВ У НАЙДЕННЫХ ЭЛЕМЕНТОВ**** IF kolkomp>0 AUTOKONTUR(kolkomp) //выделение контура платы по максималь ным габаритам элементов на ней ENDIF //*******ВЫБОР ВИДА ПЛАТЫ****************************** exit:=alltrim(exittmp) CLEAR GETS st:=1 cls DO WHILE (st<>4) //Предлагается меню, где можно выбрать направ ление взгляда на плату cglold:=setcolor('n/rg') @ 9,12 CLEAR TO 11,maxcol()-13 @ 9,12 TO 11,maxcol()-13 DOUBLE set cursor off set scoreboard off readexit(.F.) set cursor on @ 10,14 say "Имя получаемоемого файла......" color ('w+/rg') get exittmp picture 'NNNNN' color('gr+/gr,n/w') setpos(10,50) dispout('.frg','w+/gr') setcolor(cglold) mas:={{'Двумерная','Трехмерная ','Имя файла','Выход'},{"Создание файла вида сбоку(двумерное изображение)","Создание файла вида со стороны(трехмерное изображение)",'Изменить имя получаемоемого файла','Выход в главное меню'}} st:=MENU (mas,13,st) IF st=1 @ 9,0 CLEAR TO maxrow(),maxcol() set cursor off TO2D(kolkomp) //пересчет точек привязки в трехмерные координаты PRINTINFO() ERRF() inkey(6) cls ELSEIF st=2 @ 9,0 CLEAR TO maxrow(),maxcol() set cursor off TO3D(kolkomp) //пересчет точек привязки в трехмерные координаты PRINTINFO() ERRF() inkey(6) cls ELSEIF st=3 set cursor on read exit:=alltrim(exittmp) set cursor off ELSEIF st=0 st=4 ENDIF ENDDO RETURN //***************************************************************** FUNCTION INP(dl,pods,typ) //вспомогательная функция для ввода данных с клавиатуры oldcol:=col() oldrow:=row() er:=space(maxcol()-col()) IF typ<>'n' FOR L=1 TO 2 ACCEPT pods TO tmp IF LEN(tmp)dl L=1 @ oldrow+1,oldcol SAY er SETPOS(oldrow,oldcol) ELSE tmp=ALLTRIM(tmp) L=2 ENDIF NEXT ELSEIF typ='n' FOR L=1 TO 2 ACCEPT pods TO tmp IF LEN(tmp)0 desk:=fcreate('error.txt') fwrite(desk,"Не найдены файлы:"+chr(13)+chr(10)) for k:=1 to len(errfile) fwrite(desk,errfile[k]) fwrite(desk,chr(13)+chr(10)) next fclose(desk) ENDIF RETURN //************************************************** FUNCTION TO3D(st0) // функция, пересчитывающая координаты и габаритные размеры элементов в трехмерную модель cos30:=0.5*SQRT(3) cos60:=0.5 FOR L:=1 TO st0 compon[l,4]=compon[l,4]+dx compon[l,5]=compon[l,5]+dy compon[l,4]=compon[l,4]+cos60*compon[l,5] //пересчет координат в //3D compon[l,5]=compon[l,5]*cos30 IF compon[L,2]='bot' compon[L,5]=compon[L,5]-compon[L,3] //для эл. нижней стороны ENDIF NEXT maxy:=kontur[4] maxx:=kontur[3] tx[5])*(maxy-tx[5])))(kwad(maxx-tx[4])+kwad(tx[5]))}) ASORT(compon,,, tx[5]))0 SCROLL(10,0,MAXROW(),MAXCOL(),1) SETPOS(MAXROW()-1,0) ?'Идет создание файла элементов на нижней стороне:' nn:=FILECR3D(kolkomp,'bot','bot') ??nn SCROLL(10,0,MAXROW(),MAXCOL(),1) SETPOS(MAXROW()-1,0) ?'Идет создание файла элементов на верхней стороне:' nn:=FILECR3D(kolkomp,'top','top') ??nn PLATCR() //создание файла контура платы ENDIF FOR L:=1 TO st0 //обратный пересчет координат для приведения // массива габаритов в исходный вид IF compon[L,2]='bot' compon[L,5]=compon[L,5]+compon[L,3] //для эл. нижней стороны ENDIF compon[l,5]=compon[l,5]/cos30 compon[l,4]=compon[l,4]-cos60*compon[l,5] compon[l,5]=compon[l,5]-dy compon[l,4]=compon[l,4]-dx NEXT RETURN //**************************************************** FUNCTION TO2D(st0) // функция, пересчитывающая координаты и //габаритные размеры элементов в двумерную //модель wzapis:=wind(3,4,maxrow()+2,maxcol()+3,"Двумерная компановка",5) mas:={{'Спереди','Сзади ','Слева','Справа'},{"Создание файла вида спереди","Создание файла вида сзади","Создание файла вида слева","Создание файла вида справа"}} xkor:=4 strel:={chr(24),chr(25),chr(26),chr(27)} //Прорисовка видов плат col2d:=setcolor('r+/bg') For k=1 To 4 setcolor('r/bg') @ 5,xkor to 5+2,xkor+10 setcolor('n/bg') @ 5+3,xkor-1 say '0,0' xkor=xkor+16 next setcolor('g+/bg') @ 8,9 say strel[1] @ 4,25 say strel[2] @ 6,35 say strel[3] @ 6,63 say strel[4] setcolor(col2d) st:=MENU (mas,13,st) IF st=1 ASORT(compon,,,) FOR L:=1 TO st0 compon[l,4]=compon[l,4]+dx // compon[l,5]=0 // compon[l,8]=0 IF compon[L,2]='bot' compon[L,5]=compon[L,5]-compon[L,3]-tlplat //для эл. нижней стороны ENDIF NEXT tkont2:=kontur[2] tkont4:=kontur[4] kontur[2]=-10 kontur[4]=kontur[2] //*******СОЗДАНИЕ ФАЙЛОВ-ФРАГМЕНТОВ************ IF kolkomp>0 SETPOS(MAXROW()-1,0) ?'Идет создание файла элементов на нижней стороне:' dlin:=ALLTRIM(STR(kontur[3]-kontur[1])) nn:=FILECR2D(kolkomp,'top',dlin) ??nn ENDIF FOR L:=1 TO st0 //обратный пересчет координат для приведения // массива габаритов в исходный вид IF compon[L,2]='bot' compon[L,5]=compon[L,5]+compon[L,3]+tlplat //для эл. нижней стороны ENDIF compon[l,4]=compon[l,4]-dx NEXT kontur[2]=tkont2 kontur[4]=tkont4 ELSEIF st=2 TO2DZAD(st0) ELSEIF st=3 ELSEIF st=4 ENDIF winclose() RETURN //**************************************************** FUNCTION AUTOKONTUR(L1) // выделение контура платы по максимуму minY:=compon[1,5] maxY:=minY minX:=compon[1,4] maxX:=minX IF verkont=0 PUBLIC kontur[4] FOR L:=2 TO L1 IF compon[L,4]>maxX maxX:=compon[L,4] ELSEIF compon[L,4]maxY maxY:=compon[L,5] ELSEIF compon[L,5]LEN(st1) ?'Ошибка при записи файла' ELSE ??' OK' ENDIF FCLOSE(fil) RETURN ///*************************************************** FUNCTION CREATDBF(nom2) //функция создающая пустую базу данных PUBLIC nfill1:='COMP', nfill2:='SIDE', nfill3:='attr', nfill4:="X",nfill5:="Y" PRIVATE struct [5,4],nom struct[1,1]=nfill1 struct[1,2]="C" struct[1,3]=18 struct[1,4]=0 struct[2,1]=nfill2 struct[2,2]="C" struct[2,3]=5 struct[2,4]=0 struct[3,1]=nfill3 struct[3,2]="N" struct[3,3]=10 struct[3,4]=0 struct[4,1]=nfill4 struct[4,2]="N" struct[4,3]=10 struct[4,4]=5 struct[5,1]=nfill5 struct[5,2]="N" struct[5,3]=10 struct[5,4]=5 parametr:=exit DBCREATE(parametr,struct) //создание базы данных USE USE ¶metr //открытие б.д. FOR nom=1 TO nom2 APPEND BLANK REPLACE &nfill1 WITH compon[nom,1] REPLACE &nfill2 WITH compon[nom,2] REPLACE &nfill3 WITH compon[nom,3] REPLACE &nfill4 WITH compon[nom,4] REPLACE &nfill5 WITH compon[nom,5] NEXT USE //закрытие б.д. RETURN //*************************************************************** FUNCTION TO2DZAD(st0) // функция, пересчитывающая координаты и габаритные размеры элементов в двумерную модель вида сзади dlin:=ALLTRIM(STR(kontur[3]-kontur[1])) ASORT(compon,,,) FOR L:=1 TO st0 compon[l,4]=kontur[3]-(compon[l,4]+dx)- kontur[1]+compon[l,7] IF compon[L,2]='bot' compon[L,5]=compon[L,5]-compon[L,3]-tlplat //для эл. нижней стороны ENDIF NEXT tkont2:=kontur[2] tkont4:=kontur[4] kontur[2]=-10 kontur[4]=kontur[2] //*******СОЗДАНИЕ ФАЙЛОВ-ФРАГМЕНТОВ************ IF kolkomp>0 SETPOS(MAXROW()-1,0) ?'Идет создание файла элементов на нижней стороне:' dlin:=ALLTRIM(STR(kontur[3]-kontur[1])) nn:=FILECR2D(kolkomp,'top',dlin) ??nn ENDIF kontur[2]=tkont2 kontur[4]=tkont4 FOR L:=1 TO st0 //обратный пересчет координат для приведения массива габаритов в исходный вид IF compon[L,2]='bot' compon[L,5]=compon[L,5]+compon[L,3]+tlplat //для эл. Нижней стороны ENDIF compon[l,4]=-compon[l,4]+kontur[3]- kontur[1]+compon[l,7] compon[l,4]=compon[l,4]-dx NEXT RETURN //*************************************************************** FUNCTION kwad(argum) //функция возведения в квадрат newarg:=argum*argum RETURN newarg //**************************************************** //подключение файлов с вспомогательными программами #include 'CH\ssear.ch' #include 'CH\swind.ch' #include 'CH\smenu.ch' #include 'CH\sfilcr3d.ch' #include 'CH\sfilcr2d.ch' Файл swind.prg содержит в себе текст подпрограммы, организующей оконный интерфейс: FUNCTION WIND(top,left,bot,rigt,zag,speed,centr) //создание окна setboxgrow(speed) //переменные:верх,лево,низ,право, wsetshadow(-1) //текст заголовка,скорость распахивания,центрирование n:=wopen(top,left,bot,rigt,.F.) wbox(0) wsetshadow('N+/N') //текст заголовка,скорость распахивания,центрирование n:=wopen(top,left,bot,rigt,.F.) setboxgrow(0) //переменные:верх,лево,низ,право, wbox(0) IF centr<>nil IF centr='centr' WCENTER(.T.) ENDIF ENDIF ZAGOL(zag) RETURN n FUNCTION WINCLOSE() //функция закрывающая окно wclose() wclose() RETURN FUNCTION RUSSLOW(st) FOR k:=1 to len(russl) st:=strtran(st,russl[k],russs[k]) NEXT RETURN st FUNCTION ZAGOL(L1) //делает надпись окна l2:=len(L1) l3:=maxcol() l4:=(l3-l2)/2 @ -1,l4 SAY ' '+l1+' ' RETURN 3. Файл smenu.prg содержит в себе текст подпрограммы для организации на экране меню: FUNCTION MENU(k,razm,res) olcurs:=setcursor(0) set wrap on //к-2-массив пунктов и подсказок,razm- длина 1-го пункта olrow:=ROW() //res-начальный пункт olcol:=COL() ol:=setcolor('GR+/B,gr+/R') dl:=len(k[1]) zmes:=0 FOR nom:=1 to dl IF len(k[1,nom])/2=INT(len(k[1,nom])/2) .AND. razm/2=INT(razm/2) k[1,nom]=center(k[1,nom],razm,' ',.T.) ELSEIF len(k[1,nom])/2<>INT(len(k[1,nom])/2) .AND. razm/2<>INT(razm/2) k[1,nom]=center(k[1,nom],razm,' ',.T.) ELSE k[1,nom]=center(k[1,nom],razm-1,' ',.T.) ENDIF zmes:=zmes+len(k[1,nom]) NEXT ots:=maxcol()-zmes ots:=ots/(dl+1) col:=ots ten:='' tc:=ntocolor(screenattr(2,0),.T.) tc:=substr(tc,at('/',tc)+1,7) tc:=left(tc,len(tc)-1) tn:='' FOR nom:=1 to dl ten:=padright(tn,len(k[1,nom]),chr(223)) k[2,nom]=center(k[2,nom],maxcol()+1,' ',.T.) @ 1,col PROMPT k[1,nom] MESSAGE k[2,nom] trow:=row() tcol:=col() dispout(chr(220),'n/'+tc) //г78_--- setpos(2,col()-len(k[1,nom])) dispout(ten,'n/'+tc) setpos(trow,tcol) col:=col+len(k[1,nom])+ots NEXT SET MESSAGE TO maxrow() CENTER MENU TO res IF res<>0 //эффект нажатия кнопки razm:=len(k[1,res]) dol:=0 FOR o:=1 to res dol:=dol+len(k[1,o]) NEXT dol:=dol-razm setpos(2,1+ots+dol+(ots)*(res-1)) dispout(space(razm+1),tc+'/'+tc) setpos(1,ots+dol+(ots)*(res-1)) dispout(' ',tc+'/'+tc) dispout(k[1,res],'GR+/R') inkey(0.1) setpos(1,1+ots+dol+(ots)*(res-1)) dispout(space(razm+1),tc+'/'+tc) setpos(1,ots+dol+(ots)*(res-1)) dispout(k[1,res],'GR+/R') dispout(chr(220),'n/'+tc) //г78_--- setpos(2,col()-razm) ten:=padright(tn,len(k[1,res]),chr(223)) dispout(ten,'n/'+tc) inkey(0.1) ENDIF setcolor(ol) setpos(olrow,olcol) setcursor(olcurs) RETURN res 4. Файл ssear.prg содержит в себе текст подпрограммы, которая выполняет весь анализ pdf файла, находит имена, габариты, и координаты всех элементов, содержащихся в этом pdf файле, а так-же ищет для всех вновь встреченных элементов их преобразовнные prt- файлы, берет оттуда габариты и помещает их в базу данных габаритов элементов (файл gabarits.dbf): FUNCTION SEARCHCOMP(koef) lastseek:=0 olsear:=setcolor('n/gb') set cursor off //******** Выделение элементов из pdf-файла и занесение их в массив compon[0,9] ***** // compon[n,1]-название элемента(строка) // compon[n,2]-сторона установки('top' или 'bot') // compon[n,3]-высота элемента(число) // compon[n,4]-координата х-точки привязки(число) // compon[n,5]-координата у-точки привязки(цифра) // compon[n,6]-поворот элемента(число от 0 до 3) // compon[n,7]-ширина элем.(число) // compon[n,8]-длина элем.(число) // compon[n,9]-обозначение элемента(строка) tmz1:=SEAR() setcolor(olsear) RETURN tmz1 FUNCTION INSERTCOMP() //выделение параметров элементов из строки текста USE 'gabarits.dbf' //открытие базы данных с размерами элементов FOR L=1 TO LEN(compon) //выделение координат точки привязки элемента IF compon[L,1]=NIL L=LEN(compon) kolkomp:=L-1 ELSE kolkomp:=len(compon) str2=ALLTRIM(compon[l,4]) IF compon[l,2]<>'bot' koltop=koltop+1 ELSEIF compon[l,2]='bot' kolbot=kolbot+1 ENDIF p1=At(' ',str2) compon[l,4]=VAL(SUBSTR(str2,0,p1-1))*koef //выделение х точки привязки str2=LTRIM(SUBSTR(str2,p1,30)) p1=At(' ',str2) IF p1=0 p1=AT('}',str2) ENDIF compon[l,5]=VAL(SUBSTR(str2,0,p1-1))*koef //выделение у точки привязки SCROLL(10,0,MAXROW(),MAXCOL(),1) st0:=compon[l,1]+compon[l,2]+' X='+STR(compon[l,4])+' Y='+STR(compon[l,5])+' Ro='+str(compon[l,6]) gab:=GABARIT(compon[L,1],L) //вызов данных о размерах элемента ENDIF NEXT USE //закрытие базы данных с размерами элементов RETURN {kolkomp,koltop,kolbot} //**************************************************** FUNCTION GABARIT(st0,nn) // определение габаритов элемента по его имени PRIVATE naiden:=0,gabar:={0,0,0} //по заданному имени элемента возвращает массив из 3 чисел /ширина/длина/высота/ WHILE naiden=0 LOCATE FOR name=st0+SPACE(10-LEN(st0)) IF FOUND()=.T. gabar[1]:=SHIR*koef gabar[2]:=DLIN*koef IF compon[nn,3]=0 compon[nn,3]=Vis*koef IF Vis=0 compon[nn,3]=90*koef ENDIF ENDIF EXIT ELSE gabar[1]=0 gabar[2]=0 gabar[3]=0 hcomp:=0 dat:=POISK(st0) //поиск данных о новом элементе и занесение его // в базу IF VALTYPE(dat)<>'C' APPEND BLANK REPLACE NAME WITH st0 REPLACE SHIR WITH gabar[1]/koef REPLACE DLIN WITH gabar[2]/koef REPLACE VIS WITH hcomp/koef REPLACE X WITH dat[1]/koef REPLACE Y WITH dat[2]/koef gabar[1]:=SHIR*koef gabar[2]:=DLIN*koef IF compon[nn,3]=0 compon[nn,3]=Vis*koef ENDIF ELSE EXIT ENDIF ENDIF ENDDO ROT(X*koef,Y*koef,gabar[1],gabar[2],nn) RETURN gabar //**************************************************** FUNCTION ROT(a,b,shc,dlc,L) //функция учитывающая поворот эле мента относительно оси и произво дящая соответствующий пересчет его координат IF compon[L,6]=0 //учет поворота элемента IF compon[L,2]='bot' compon[L,4]=compon[L,4]+shc-a compon[L,5]=compon[L,5]-b ELSE compon[L,4]=compon[L,4]+a compon[L,5]=compon[L,5]-b ENDIF compon[L,7]=shc compon[L,8]=dlc ELSEIF compon[L,6]=1 IF compon[L,2]='bot' compon[L,4]=compon[L,4]+b compon[L,5]=compon[L,5]-a ELSE compon[L,4]=compon[L,4]+b compon[L,5]=compon[L,5]+a-shc ENDIF compon[L,7]=dlc compon[L,8]=shc ELSEIF compon[L,6]=2 IF compon[L,2]='bot' compon[L,4]=compon[L,4]+a compon[L,5]=compon[L,5]+b-dlc ELSE compon[L,4]=compon[L,4]-a+shc compon[L,5]=compon[L,5]+b-dlc ENDIF compon[L,7]=shc compon[L,8]=dlc ELSEIF compon[L,6]=3 IF compon[L,2]='bot' compon[L,4]=compon[L,4]-b+dlc compon[L,5]=compon[L,5]+a-shc ELSE compon[L,4]=compon[L,4]-b+dlc compon[L,5]=compon[L,5]-a ENDIF compon[L,7]=dlc compon[L,8]=shc |
|
