проставитель надписей ЛЭП 00 & leptext Є leptextleptext leptextStart Начать простановку надписей ЛЭП L` leptextleptext_StartLepTextleptextSetup Настройка подписей ЛЭП leptext leptext_Setup° leptextю– option explicit dim upstyle,downstyle,upindent,downindent dim win dim active dim fvx1,fvy1,fvx2, fvy2,vy2, fcx, fcy,vectorfind,cpx,cpy,fobj active=false ' Обработка команды Action1 sub leptext_StartLepText() active=true end sub ' Обработка команды Action1 sub leptext_Setup() ShowSetupWindow end sub sub ShowSetupWindow set win=Application.OpenHTMLWindow(Script.ContextCard) win.Browser.Navigate("about:blank") dim brs,doc set brs=win.Browser set doc=brs.document set win.external=Disp doc.open() dim html html=GenMakeHTML() brs.document.write(html) brs.document.close() win.Visible=true end sub function GenMakeHTML 'dim objectname,zakazchikfio,zakazchikname, zakazchikpred 'dim soglasorgan,soglaspismo,doclist(10,2),address, otherdata, skoord dim html,i,lar,stl,sl html="
" html=html+"Настройка подписей ЛЭП" html=html+"Стиль верхней подписи
" set lar=ActiveProjectView.ActiveLayerView.Layer html=html+"
" html=html+"Отступ от линии
" html=html+"Стиль нижней подписи
" set lar=ActiveProjectView.ActiveLayerView.Layer html=html+"
" html=html+"Отступ от линии " GenMakeHTML=html+_ "
" ' "
Фиксированный масштаб плана