n=ActiveWindow.SelectionshapeLine=ActiveWindow.SelectionshapeText=ActiveWindow.Selectioni=1 To Coll.CountColl.Item (i)=folder + lineust Then=20=Split (Coll.Item (i), )=a (UBound (a)) IfColl.Item (i) For Input As # 1While InStr (Str, - gt; ) =0 # 1, StrWhile Not EOF (1)=True=0 # 1, Str=InStr (Str, )=ConvertX (CDbl (Left (Str, pos - 1)))=Trim (Right (Str , Len (Str) - pos))=InStr (Str, ) pos=0 Then=Len (Str) + 1If=ConvertY (CDbl (Left (Str, pos - 1)))=InStr (Str, )=Trim (Right (Str, Len (Str) - pos)) tipL=5 ThenCollKoor=NothingoKoor=Nothing.x=koorX.y=koorY.Add Item:=oKoorIf=koorX=koorYCase tipL2.Init4. Init6.Init9.Init10, 12.Init11, 13.Init14.Init16Not EOF (1) Then # 1, StrIfvisNomSkv ThenoSkv.DrawSkv (shapeLine, shapeText, koorX, koorY, znLine) oSkv.DrawSkv (shapeLine, shapeText, koorX, koorY, ) IfSelecttipL lt; gt; 16 Then # 1, Str=tipL=1While b=True And InStr (Str, - gt; )=0EOF (1) Then=FalseIf=InStr (Str, )=ConvertX (CDbl (Left (Str, pos - 1)))=Trim (Right (Str, Len (Str) - pos))=InStr (Str, ) pos=0 Then=Len (Str) + 1If=ConvertY (CDbl ( Left (Str, pos - 1))) znLine lt; gt; And tipL=5 ThenoKoor=Nothing.x=koorX.y=koorY.Add Item:=oKoorIfCase tipL3, 5, 8, 7, 20DrawObiknLine (shapeLine, koorX, koorY, predX, predY, k1) 2oVnk.DrawFigure (shapeLine, koorX , koorY, predX, predY) 4oGran.DrawLine (shapeLine, koorX, koorY, predX, predY) 6oZam.DrawLine (shapeLine, koorX, koorY, predX, predY) 9oVnkVn.DrawFigure (shapeLine, koorX, koorY, predX, predY) 10 , 12oGnk.DrawFigure (shapeLine, koorX, koorY, predX, predY) 11, 13oGnkVn.DrawFigure (shapeLine, koorX, koorY, predX, predY) 14oIzoPunkt.DrawFigure (shapeLine, koorX, koorY, predX, predY) Select=koorX=koorYb =True Then # 1, Str=NumPoint + 1IfshapeLine.Count gt; 0 ThenshapeGroupLine=shapeLine.Group.Select shapeGroupLine, visSelect.DeselectAllIfznLine lt; gt; And tipL=5 ThenDrawText (shapeText, CollKoor, NumPoint, znLine) IfIftipL=5 ThenshapeGroupLine=shapeSelection.Group.Name= Лінії .DeselectAll.Select shapeGroupLine, visSelectshapeGroupLine=shapeText.Group.Name= Глибини ізоліній .Select shapeGroupLine, visSelect.DeselectAll.DeselectAllIftipL=16 ThenshapeGroupLine=shapeLine.Group.Name= Піктограми .DeselectAll.Select shapeGroupLine, visSelectshapeText.Count lt; gt; 0 ThenshapeGroupLine=shapeText.Group.Name= Номери свердловин .Select shapeGroupLine, visSelect.DeselectAllIf.DeselectAllIfshapeSelection.Count gt; 0 ThenshapeSelection.Count=1 ThenshapeGroup=shapeSelection.Item (1) .DeselectAllshapeGroup=shapeSelection.Group.DeselectAllIfIfCase tipL6.Name= Заміщення 5.Name= Ізолінії 2.Name= ВНК 3.Name= Розлом 4.Name= Лінія виклинювання 7.Name= Гран осіб ділянок 8
shapeGroup.Name= Межі категорій запасів
Case 9.Name= ВНК внутр 10.Name= ГВК 11.Name= ГВК внутр 12.Name= ГНК 13.Name= ГНК внутр 14.Name= Ізолінії пунктир 16.Name= Свердловини 20.Name= Лінії гирла Select # 1.DrawHead.DrawLegendColl=NothingCollKoor=NothingSubFunction ConvertX (ByVal koorX As Double) As Double=( koorX - minX)/koefX/25.4FunctionFunction ConvertY (ByVal koorY As Double) As Double=(koorY - minY)/koefY/25.4FunctionDrawObiknLine (ByVal shapeLine As Selection, ByVal koorX, koorY, predX, predY As Double, ByVal tipL As Integer ) shapeObj As ShapeshapeCell As CellshapeObj=ActivePage.DrawLine (predX, predY, koorX, koorY) Case tipL7, 8shapeCell=shapeObj.Cells ( LineColor ). Formula= RGB (0,255,0) 3shapeCell=shapeObj. Cells ( LineColor ). Formula= RGB (255,0,0) 20shapeCell=shapeObj.Cells ( LineColor ). Formula= RGB (0,0,255) Select.Select shapeObj , visSelectSubDrawText (ByVal shapeText As Selection, ByVal CollKoor As Collection, ByVal NumPoint As Integer, ByVal znLine As String) predX, predY, koorX, koorY As Doublerast, rastPred, tmp, delX, delY, koef As DoubleshapeObj As Shapek1 As IntegerNumPoint=2 Then=CollKoor.Item (1) .x=CollKoor.Item (1) .y=CollKoor.Item (2) .x=CollKoor.Item (2) .y=2shapeObj=ActivePage.DrawLine (predX, predY, koorX + lenText, koorY) .Select shapeObj, visSelect=CollKoor.Item (Round (NumPoint/2) - 1) .x=CollKoor.Item (Round (NumPoint/2) - 1) .y=CollKoor.Item (Round (NumPoint/ 2)). x=CollKoor.Item (Round (NumPoint/2)). y=Round (NumPoint/2)=pointStart=Sqr ((koorX - predX) * (koorX - predX) + (koorY - predY) * ( koorY - predY)) While rast lt; (lenText) And pointStart lt; CollKoor.Count=pointStart + 1=CollKoor.Item (pointStart) .x=CollKoor.Item (pointStart) .y=Sqr ((koorX - predX) * (koorX - predX) + (koorY - predY) * (koorY - predY )) koorX lt; predX Then=koorX=predX=tmp=koorY=predY=tmpIfDefineDelXY (predX, predY, koorX, koorY) rast lt; lenText Then=lenText/rast=(predY - koorY) * koef=(koorX - predX) * koefshapeObj=ActivePage.DrawLine (predX, predY, predX + delX, predY - delY) .Text=znLine.LineStyle= Text Only raquo ; .TextStyle= MapZnLine shapeObj=ActivePage.DrawLine (predX, predY, koorX, koorY) .Text=znLine.LineStyle= Text Only .TextStyle= MapZnLine If.Sel...
