home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / tema / ArcData / www / download / nodes.ave < prev    next >
Encoding:
Text File  |  1999-12-17  |  3.7 KB  |  126 lines
  1. ' Nodes.ave
  2. ' version: 1.1.   
  3. ' date   : 6/1998
  4. '
  5. ' This script draws active theme nodes and vertices. The node errors are distinguished.
  6. ' The theme must have line or polygon topology. It is reccomended to associate this script
  7. ' with popup menu on right mouse button to enable running it during editing process. 
  8. ' (The nodes are drawn only in actual View extent without saving them.)
  9. ' 
  10. ' Color coding:  BLUE  - vertices
  11. '                GREEN - regular nodes
  12. '                CYAN  - pseudo nodes
  13. '                RED   - dangle nodes
  14. '
  15. ' author : Stepan Kafka, Kutna Hora District Council, Czech republic
  16. ' e-mail : kafka@email.cz
  17. ' 
  18. '--------------------------------------------------------------------------------------- 
  19. 'Example of update script:
  20. 'ActiveThemes = av.GetActiveDoc.GetActiveThemes
  21. 'if (ActiveThemes.Count <> 0) then
  22. '  theTheme = ActiveThemes.Get(0)
  23. '  if (theTheme.Is(FTheme)) then
  24. '    S = theTheme.GetFTab.FindField("Shape")
  25. '    if (S <> nil) then
  26. '      SELF.SetEnabled((S.GetType = #FIELD_SHAPELINE) or (S.GetType = #FIELD_SHAPEPOLY))
  27. '      exit
  28. '    end  
  29. '  end
  30. 'end  
  31. 'SELF.SetEnabled(false)
  32. '---------------------------------------------------------------------------------------
  33.  
  34.  
  35. '--- Symbol settings for Node representation -----
  36. '- vertex
  37. SVert = av.GetSymbolWin.GetPalette.GetList(#PALETTE_LIST_MARKER).Get(1).Clone
  38. SVert.SetColor(Color.GetBlue)
  39. SVert.SetSize(4)
  40.  
  41. '- Regular Node
  42. SNode = av.GetSymbolWin.GetPalette.GetList(#PALETTE_LIST_MARKER).Get(1).Clone
  43. SNode.SetColor(Color.GetGreen)
  44. SNode.SetSize(6)
  45.  
  46. '- Pseudo Node
  47. SPseudo = av.GetSymbolWin.GetPalette.GetList(#PALETTE_LIST_MARKER).Get(1).Clone
  48. SPseudo.SetColor(Color.GetCyan)
  49. SPseudo.SetSize(6)
  50.  
  51. '- Dangle Node
  52. SDangle = av.GetSymbolWin.GetPalette.GetList(#PALETTE_LIST_MARKER).Get(1).Clone
  53. SDangle.SetColor(Color.GetRed)
  54. SDangle.SetSize(6)
  55. '--------------------------------------------------------------------------------------- 
  56.  
  57. '--- Initializing
  58. theView = av.GetActiveDoc
  59. thePrj = theView.GetProjection
  60. theSelMode = theView.GetSelectMode
  61. theView.SetSelectMode(#GRAPHICS_SELECT_NORMAL)
  62. theTheme = theView.GetActiveThemes.Get(0)
  63. theTable = theTheme.GetFTab
  64. D = theView.GetDisplay
  65. theShape = theTable.FindField("Shape")
  66. NodeList = {}
  67.  
  68. '---- Selecting the shapes
  69. OldSel = theTable.GetSelection.Clone
  70. DExt = D.ReturnVisExtent
  71. theTheme.SelectByRect(DExt, #VTAB_SELTYPE_NEW)
  72. CurrSel = theTable.GetSelection.Clone
  73. theTable.SetSelection(OldSel)
  74.  
  75. ' --- Vertices drawing and Nodes collecting ------
  76. D.BeginClip
  77. for each rec in CurrSel
  78.   theLines = theTable.ReturnValue(theShape, rec).AsPolyLine.Explode
  79.   for each L in theLines
  80.     thePoints = L.AsMultiPoint.ReturnProjected(thePrj)
  81.     D.DrawMultiPoint(thePoints, SVert)
  82.     NodeList.Add(thePoints.AsList.Get(0))
  83.     NodeList.Add(thePoints.AsList.Get(thePoints.Count-1))
  84.   end  
  85. end
  86.  
  87. ' --- Nodes processing -------------------------
  88. AllNodes = NodeList.Count-1
  89. av.ShowMsg("Searching nodes...")
  90. av.ShowStopButton
  91. while (NodeList.Count > 0)
  92.   OverPos = 0
  93.   thePoint= NodeList.Get(0)
  94.   NodeList.Remove(0)
  95.   Nodes = NodeList.Count-1
  96.   if (av.SetStatus((AllNodes-Nodes)/AllNodes*100).not) then
  97.     av.SetStatus(100)
  98.     av.ShowMsg("Cancelled by operator.")
  99.     exit
  100.   end
  101.   C = 0
  102.   while (C <= Nodes)
  103.     if (thePoint.Intersects(NodeList.Get(C))) then
  104.       NodeList.Remove(C)
  105.       Nodes = Nodes - 1
  106.       OverPos = OverPos + 1
  107.     else
  108.       C = C + 1  
  109.     end  
  110.   end
  111.   if (OverPos > 1) then
  112.     D.DrawPoint(thePoint, SNode)
  113.   elseif (OverPos = 1) then
  114.     D.DrawPoint(thePoint, SPseudo)
  115.   else
  116.     D.DrawPoint(thePoint, SDangle)
  117.   end  
  118. end
  119. D.EndClip
  120. av.SetStatus(100)
  121. av.ClearMsg
  122. theView.SetSelectMode(theSelMode)
  123. av.PurgeObjects
  124.  
  125.  
  126.