欧美vvv,亚洲第一成人在线,亚洲成人欧美日韩在线观看,日本猛少妇猛色XXXXX猛叫

曾幾何時(shí)，畫用地要么用湘園控規(guī)生成用地圖層及顏色，要么有一個(gè)標(biāo)準(zhǔn)圖層的CAD，圖層一個(gè)個(gè)刷過(guò)去。

現(xiàn)在以“三調(diào)”為基礎(chǔ)的現(xiàn)狀圖轉(zhuǎn)換出來(lái)了，以《南京市村莊規(guī)劃編制技術(shù)指南》（試行）（2020版）為例，最多可以有134種用地，還在一個(gè)個(gè)刷圖層么？更不要說(shuō)“三調(diào)”還在調(diào)整中，不定時(shí)發(fā)布新版本顏色代碼轉(zhuǎn)換表，不定時(shí)再刷一遍圖層？

1、“一鍵”設(shè)置生成標(biāo)準(zhǔn)圖層

三調(diào)一鍵轉(zhuǎn)換空間規(guī)劃用地之后，生成的CAD是沒(méi)有圖層顏色的。

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

2、顏色對(duì)照表說(shuō)明

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

有三點(diǎn)需要說(shuō)明：

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

這里也提供CAD色號(hào)與RGB對(duì)照表，表中數(shù)字為（色號(hào) R G B）

國(guó)標(biāo)的圖層對(duì)照表即將推出，敬請(qǐng)期待！

3、代碼展示

了解VB代碼的同學(xué)可以根據(jù)需要自行修改，供交流學(xué)習(xí)！

Public Sub CAD_layers()MsgBox ("提示：打開(kāi)CAD，點(diǎn)擊確定生成圖層")'連接CADSet acadapp = GetObject(, "autocad.application") Set acad = acadapp.ActiveDocument
'讀取數(shù)據(jù)生成圖層和顏色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 ("圖層創(chuàng)建完畢，請(qǐng)至CAD查看!")End Sub

需要CAD圖層生成相關(guān)文件的同學(xué)，