AutoCAD二次開發在城市部件普查中的應用

方強，翁韜，周喬偉，陳凱

(成都市勘察測繪研究院，四川成都 610081)

1 引言

“數字城管”是綜合利用“3S”技術、物聯網技術、數據庫技術于一體的城市管理綜合平臺，這種城市管理新模式能大大加強城市管理和公共服務職能，能對城市管理出現的各種問題做到及時發現和快速處理，極大提高城市管理服務水平。而部件普查工作就是為“數字城管”的建設提供基礎的數據保障，部件普查數據的質量及可靠性直接關系到以后“數字城管”的運行。

AutoCAD作為一個通用計算機輔助繪圖與設計平臺，有著強大圖形編輯功能及易用性特點，在測繪行業有著廣泛的應用，鑒于很多部件普查都是以AutoCAD格式的1∶500數字地形圖為底圖進行的，因此筆者使用AutoCAD VBA以及少量AutoCAD Visual LISP程序開發技術相結合，按照本次部件普查實際要求，編制一套既有部件成圖功能又有屬性錄入功能的軟件，便于外業作業人員的數據錄入，提高數據質量，提升工作效率。

2 系統建設

各個城市對部件普查的數據要求是不一樣的，包括不同的普查對象、部件編碼體系、圖層、顏色、屬性要求等等，筆者基于AutoCAD 2004，以成都市雙流縣部件普查標準為例展示程序的開發。

2.1 編碼設計

編碼設計一般要遵循相關的國家標準或行業標準，因此本系統的編碼依據CJ/T214－2007《城市市政綜合監管信息系統管理部件和事件分類、編碼及數據要求》，并根據城市具體情況進行了調整。

2.2 符號設計

系統開發前，要設計好本系統所使用的點、線、面符號。

(1)點符號設計

點符號就是AutoCAD的塊，制作點符號的時候，要注意三點:

①符號里面所有的對象要放在0層，否則，會出現多余的圖層刪不掉的情況;

②符號的填充盡可能用帶寬度的線來實現，這樣可以提高AutoCAD的速度;

③如果想可以隨時改變塊顏色的話，塊中對象的顏色要定義為ByBlock。

(2)線符號設計

簡單線型符號定義不需要型文件，只要有一個后綴為lin的線文件就可以，復雜的線型文件需要定義型文件。線符號制作要注意以下兩點:

①在.lin文件中，每個線型定義應限制在80字符以內;

②為了線型顯示美觀的需要，有時需要將循環單位改小。

(3)面符號設計

在本程序中規定面就是閉合的線。只是為了更直觀地顯示其面狀特點，才配以填充圖案。所以，筆者直接用AutoCAD自帶的填充模式結合顏色區分不同的部件面。基于這個思想，不管是數據轉換還是給面賦屬性，都是針對最外圍的閉合線而言的，而不是填充圖案。根據筆者實踐發現閉合的線和其填充圖案的邊界有些情況下會有微小的差別。

2.3 命令設計

調用VBA宏的命令采用lsp代碼實現，例如:

這樣，用戶在命令行輸入bjpc101就可以調用該宏定義的功能，方便用戶使用命令繪制地物。此處101代表部件編碼。其他的命令代碼類似，命令名稱命名規范都是bjpc加上代碼，在lsp代碼中只需要更改編碼就可以了。這樣我們可以用VBA函數Draw中的GetString方法和LISP的(command)函數來調用不同的編碼，實現一個Draw函數繪制所有的地物。

2.4 界面設計

考慮到部件普查種類繁多以及作業員繪制的直觀性，筆者選用AutoCAD的屏幕菜單實現本次開發的所有功能，系統界面如圖1所示。

此界面需要定義一個后綴為“.mns”的文件，以供AutoCAD加載，示例代碼如下:

在界面設計中，需要制作一套幻燈片來供菜單調用，這樣可以直觀方便地供作業人員選擇調用。在此程序中，幻燈片名稱用編碼表示。幻燈片可以利用AutoCAD提供的工具制作，并建立幻燈片庫。

2.5 VBA程序設計

為增強程序的可擴展性及代碼共用性，便于部件的修改和擴充，本次設計使用一個畫法文件存儲地物的畫法信息，再編寫一個通用函數調用這個文件完成所有地物的繪制，文件格式如下:

編碼就是地物編碼。類型主要包含“點、有向點、線、面”。當類型為“點”或“有向點”的時候參數名就是塊名，參數值就是塊插入比例尺;當類型為“線”時，參數名為線型名，參數值就是線寬;當類型為“面”的時候，參數名為填充圖案名稱，參數值就是圖案比例。層名和顏色就是該地物所放圖層及AutoCAD索引顏色編碼。屬性表名定義該編碼對應的屬性信息列表。例如:

(1)通用函數實現思路:

①用GetString方法讀取要繪制地物的編碼。

②讀取畫法文件，并根據地物編碼搜索該編碼對應的畫法定義。

③根據該編碼對應的類型調用不同的畫法函數，并把其所對應的參數名、參數值、層名、顏色、屬性信息傳遞給對應的畫法函數進行繪制。

④繪制完成后自動彈出來屬性對話框要求填入該地物要求的屬性信息，確定保存屬性信息。

(2)通用調用程序實現代碼如下:

(3)程序說明:

①函數getHuaFa實現從畫法文件中查找到所繪地物編碼對應的畫法描述。

②函數getStr實現拆分畫法描述中單個信息的功能，可以從畫法描述字符串中找到用逗號分割的對應的畫法描述詳細信息。

③函數drawPoint實現在strLayer圖層，用strColor顏色，塊插入比例尺為strValue繪制塊strName。

④函數drawPPoint功能類似函數drawPoint，但用戶可以通過鼠標旋轉指定塊方向。

⑤函數drawLine實現在strLayer圖層，用strColor顏色，線寬為strValue線形為strName畫線。

⑥函數 drawPolygon實現在strLayer圖層，用str-Color顏色，圖案比例為strValue填充圖案名稱為str-Name畫面。

⑦函數 drawPoint、drawPPoint、drawLine、drawPolygon，不僅包括繪制功能，還會在繪制結束后彈出來其對應的屬性對話框，以便把用戶輸入的屬性信息存到該對象的擴展屬性中，如圖2所示。

圖2 屬性錄入界面

3 結論

基于AutoCAD的VBA二次開發，具有上手快、建設快，可迅速地構建應用程序服務于測繪生產。基于AutoCAD的部件普查錄入程序，具有良好的操作性，為外業作業人員所習慣，同時，其開放、統一、規范的數據結構，又方便轉換成其他的通用數據格式，便于入庫。實踐證明，成都市雙流縣部件普查程序大大加快了數據生產速度，提高了數據準確性，為城市部件普查的快速開展奠定了堅實的基礎。

［1］李鳳華.AutoCAD 2002/2000 VBA開發指南［M］.北京:清華大學出版社，2001.

［2］CJ/T214－2007.城市市政綜合監管信息系統 管理部件和事件分類、編碼及數據要求［S］.

［3］張大長，潘慶林，姚伯金.AutoCAD環境下地形圖符號庫的建立［J］.南京建筑工程學院學報，1996(4):48～53.

［4］張帆，鄭立楷，盧擇臨等.AutoCAD VBA二次開發教程［M］.北京:清華大學出版社，2006.

［5］李長勛.AutoCAD VBA程序開發技術［M］.北京:國防工業出版社，2005.

［6］徐建平，王新程.精通AutoCAD 2004中文版［M］.北京:清華大學出版社，2003.

［7］周平，滕得貴，曹欣.重慶市市政部件普查要點淺析［J］.城市勘測，2009(1):21～23.