欧美丰满美乳xxx高潮www_日韩一二三区视频_7777精品久久久大香线蕉_福利微拍一区二区_精品国产乱码久久久久久闺蜜_日本黄色一区二区_欧美日韩亚洲国产一区_日韩欧美123_欧美美女黄视频_{关键词10

行政區劃圖不規范？不好看？作圖很是頭疼？這種種問題，今天以貴州省為例，制作一幅較為標準的行政區劃圖。

效果圖如下：


01
數據準備

中國基礎數據（國界線、中國行政區_包含南海九段線）

貴州省基礎數據（貴州省高程數據、省界、市界、縣界）

符號庫

02
數據轉換

所有矢量數據均需轉為線圖層。

03
制圖（以圖1為例）

（1）選擇合適的數據框

（2）插入3個數據框并命名
（3）添加相應數據并調整相應位置

（4）調整圖層符
（5）在中國的小圖中調整自己的研究區顏色并添加首都

（6）調整研究區圖層符號

（7）制作蒙版透明效果

7.1添加市界面并調整顏色


7.2調整透明度


7.3字段換行標注（代碼放最后）
圖片

7.4調整圖層順序及背景顏色

選中中國地圖及九段線圖層—右鍵—順序—放置頂層；右鍵屬性設置背景顏色


7.5添加圖例比例尺及其他圖層名稱導出地圖

（不在這里詳細講解）

附件 換行標注完整代碼及解釋
Function FindLabel ([Prefecture] ) //[Prefecture]為標注字段名稱，根據自己需要替換//

n=len( [Prefecture] )

if (n<5) then

 FindLabel = [Prefecture]

else

  FindLabel = left( [Prefecture] ,4) & vbnewline & right( [Prefecture] ,n-4)

end if

End Function

Function myFind( Prefecture,wd)

n=len(Prefecture)

if (n<wd+1) then

 myFind = Prefecture

else

  myFind = left(Prefecture,wd) & vbnewline & right(Prefecture,n-wd)

end if

End Function

Function FindLabel( [Prefecture] )

FindLabel= myFind( [Prefecture],4)  // 數值4代表中文4個字節后換行標注，可以更具實際需要進行修改//End Function