Gis 创建道路形状文件后隐藏它';NetLogo中的s网络

Gis 创建道路形状文件后隐藏它';NetLogo中的s网络,gis,netlogo,Gis,Netlogo,我想在NetLogo world中清除形状文件,但我不能这样做。 将创建网络线(道路形状文件)并与道路形状文件匹配。现在我应该清除道路形状文件,只保留道路网络。 你能帮我做这个吗 关于 extensions [ gis ] globals [ roads-dataset scooter-dataset ] breed [ nodes node ] breed [ scooters scooter ] breed [ walkers walker ] walkers-own [ wlocatio

我想在NetLogo world中清除形状文件,但我不能这样做。 将创建网络线(道路形状文件)并与道路形状文件匹配。现在我应该清除道路形状文件,只保留道路网络。 你能帮我做这个吗

关于

extensions [ gis ]
globals [ roads-dataset scooter-dataset ]
breed [ nodes node ]
breed [ scooters scooter ]
breed [ walkers walker ]
walkers-own [ wlocation ]
scooters-own [slocation]

to setup
  ; reset
  clear-all
  reset-ticks

  ; load data set
;  gis:load-coordinate-system ("WGS 1984.prj")
  set roads-dataset gis:load-dataset "layer/road.shp"
  ;set scooter-dataset gis:load-dataset "layer/lands.shp"
  gis:set-world-envelope (gis:envelope-of roads-dataset)

  ; draw data set
  gis:set-drawing-color blue
  gis:draw roads-dataset 1

  make-road-network
  
end


to make-road-network
  clear-links
  let first-node nobody
  let previous-node nobody
  foreach gis:feature-list-of roads-dataset [ ; each polyline
    foreach gis:vertex-lists-of ? [ ; each polyline segment / coordinate pair
      foreach ? [ ; each coordinate
        let location gis:location-of ?
        if not empty? location [ ; some coordinates are empty []
          create-nodes 1 [
            set color green
            set size 1
            set xcor item 0 location
            set ycor item 1 location
            set hidden? true
            if first-node = nobody [
              set first-node self
            ]
            if previous-node != nobody [
              create-link-with previous-node
            ]
            set previous-node self
          ]
        ]
      ]
      set previous-node nobody
    ]
  ]
  ; connect adjacent polylines/roads
  ask nodes [ create-links-with other nodes in-radius 0.001 ]
end