操屁眼的视频在线免费看,日本在线综合一区二区,久久在线观看免费视频,欧美日韩精品久久综

曾幾何時，畫用地要么用湘園控規生成用地圖層及顏色，要么有一個標準圖層的CAD，圖層一個個刷過去。

現在以“三調”為基礎的現狀圖轉換出來了，以《南京市村莊規劃編制技術指南》（試行）（2020版）為例，最多可以有134種用地，還在一個個刷圖層么？更不要說“三調”還在調整中，不定時發布新版本顏色代碼轉換表，不定時再刷一遍圖層？

1、“一鍵”設置生成標準圖層

三調一鍵轉換空間規劃用地之后，生成的CAD是沒有圖層顏色的。

我們已經基于《南京市村莊規劃編制技術指南》（試行）（2020版）設置了圖層顏色。為了方便同學們自行修改，沒有采用更高效的純代碼方式而提供Excel表。

2、顏色對照表說明

我們基于《南京市村莊規劃編制技術指南》（試行）（2020版）設置了圖層顏色，提供Excel版本的顏色對照表（后文獲取）。

有三點需要說明：

1、表中F列是南京村莊規劃指南中的提供的圖層RGB顏色顏色代碼轉換表，未覆蓋指南中所有的用地分類，我們結合南京控規制圖標準適當補充了用地的顏色。2、為了兼顧所有版本的CAD，我們將RGB顏色換算成了最近似的CAD色號，CAD只有255個色號，顏色略有差異，Excel中設置了相應的底色，可以查看顏色差異。3、表中AB列 cord+name生成的是圖層名稱，與GIS中的轉換名稱一致。圖層顏色按照C列中CAD色號設置，改顏色自行修改C列色號即可。

這里也提供CAD色號與RGB對照表，表中數字為（色號 R G B）

國標的圖層對照表即將推出，敬請期待！

3、代碼展示

了解VB代碼的同學可以根據需要自行修改，供交流學習！

Public Sub CAD_layers()MsgBox ("提示：打開CAD，點擊確定生成圖層")'連接CADSet acadapp = GetObject(, "autocad.application") Set acad = acadapp.ActiveDocument
'讀取數據生成圖層和顏色For Row = 2 To Cells(Rows.Count, "d").End(xlUp).RowName = Cells(Row, "a") + Cells(Row, "b")acad.layers.Add (Name)acad.layers.Item(Name).color = Int(Cells(Row, "c"))Next
MsgBox ("圖層創建完畢，請至CAD查看!")End Sub

需要CAD圖層生成相關文件的同學，