изготовление плана уфа 0ВF еE план уфа УE mainprogюёE option explicit dim win dim selobj dim objs(200) dim objnames(200) dim objcount dim pointcounter dim pagewidth dim pageheight dim frame dim lwin dim planwidth dim aa(3,3) 'convert matrix dim scale dim deltax, deltay dim psize dim pi pi=3.1415926 psize=0.001 dim deltatexth,deltatextw deltatexth=0.002 deltatextw=0.002 dim pointtextsize pointtextsize=6 dim headerbasey headerbasey=0.045 dim headerpos headerpos=Array(0,0.0065,0.0325,0.040,0.055,0.067,0.082,0.0975) dim basex,basey, currenty dim points(2,10000) dim pointscount pointscount=0 'расстояние между строками и половина расстояния между строками в м dim rowheight,rowheight2 rowheight=0.004 rowheight2=rowheight/2 dim circlesize circlesize=0.005 'размер шрифта для заполнения таблицы dim g10 g10=8 const rightframe=0.015 const leftframe=0.005 dim total_sq ' Обработка команды Action1 sub mainprog_Start() StartParamWindow end sub sub change_objname(i) dim brs,sb set brs=win.Browser set sb=brs.document.getElementByID("cid"+CStr(i)) objnames(i)=sb.value end sub function AlreadyHave(id) dim i for i=0 to objcount-1 if id=objs(i) then AlreadyHave=true exit function end if next AlreadyHave=false end function sub AddClick if Selection.Count=0 then MsgBox "Объект не выбран!" else dim i for i=0 to Application.Selection.Count-1 if not AlreadyHave(Application.Selection.ids(i)) then objs(objcount)=Application.Selection.ids(i) objnames(objcount)="" objcount=objcount+1 end if next REfreshHTMLWin end if end sub sub REfreshHTMLWin dim brs,doc,html set brs=win.Browser set doc=brs.document set win.external=Disp doc.open() html=GenStartHTML() brs.document.write(html) brs.document.close() end sub function GenStartHTML() dim objlist objlist="" dim i,ts,html for i=0 to objcount-1 ts="№ "+Cstr(i+1)+" objid="+objs(i)+" название
" ' msgbox ts objlist=objlist+ts ' ""+"-"+"
" next ' msgbox objlist html="
"+_ "Ширина"+_ "Высота
"+_ "Ширина плана
"+_ "Отступ рамки
"+_ "Дополнительные объекты
"+_ objlist+_ " "+_ "