亚洲区小说区激情区图片区_幸福宝app污版下载_午夜香蕉av_欧美熟女内射观看

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

效果圖如下：


01
數(shù)據(jù)準備

中國基礎數(shù)據(jù)（國界線、中國行政區(qū)_包含南海九段線）

貴州省基礎數(shù)據(jù)（貴州省高程數(shù)據(jù)、省界、市界、縣界）

符號庫

02
數(shù)據(jù)轉換

所有矢量數(shù)據(jù)均需轉為線圖層。

03
制圖（以圖1為例）

（1）選擇合適的數(shù)據(jù)框

（2）插入3個數(shù)據(jù)框并命名
（3）添加相應數(shù)據(jù)并調(diào)整相應位置

（4）調(diào)整圖層符
（5）在中國的小圖中調(diào)整自己的研究區(qū)顏色并添加首都

（6）調(diào)整研究區(qū)圖層符號

（7）制作蒙版透明效果

7.1添加市界面并調(diào)整顏色


7.2調(diào)整透明度


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

7.4調(diào)整圖層順序及背景顏色

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


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

（不在這里詳細講解）

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

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)  // 數(shù)值4代表中文4個字節(jié)后換行標注，可以更具實際需要進行修改//End Function