詹艷春

(湖南省第一測繪院，湖南 衡陽 421001)

基于TFW影像坐標信息在CAD中插入正射影像的方法探討

詹艷春*

(湖南省第一測繪院，湖南 衡陽 421001)

數字正射影像的應用越來越廣泛和頻繁，本文介紹了以LISP設計制作一個批量加載正射影像程序，該程序能自動把正射影像一幅一幅地插入到CAD中，并使之與其真實坐標相對應，大幅提高了工作效率。

TFW；CAD插圖；LISP編程

1 引 言

隨著科學技術的發(fā)展，DOM(數字正射影像圖)制作方法日趨成熟，大區(qū)域正射影像產品的制作正逐步完成，它以其良好的直觀性、現勢性以及豐富的信息，正逐漸被各個行業(yè)和部門使用，在很多領域應用日益廣泛頻繁。目前ArcGIS、MapGis、Microstation、Mapinfo等各類地理信息軟件都自帶了加載DOM功能，而作為現今各行各業(yè)最普及最廣泛使用的CAD軟件卻沒有自動識別插入影像功能。本文以CAD自帶的二次開發(fā)程序LISP為例，著重探討基于TFW影像坐標信息在CAD中插入正射影像的方法。

2 相關知識及原理

數字正射影像圖(DOM)是以TIFF(Tagged Image File Format)格式存儲(文件后綴為.tif)，而TFW(TIFF World File)文件是關于TIFF影像坐標信息的文本文件，ArcInfo、Microstation、AutoCAD等均支持該格式的坐標信息文件。它的結構很簡單，是一個包含六行內容的ASCII文本文件，可以用任何一個ASCII文本編輯器來打開。此文件包含相關的DOM文件的空間參數(spatial reference)數據，定義了影像像素坐標與實際地理坐標的仿射關系，基本原理如下：

x′=Ax+By+C

y′=Dx+Ey+F

其中：

x′=像素對應的地理X坐標

y′=像素對應的地理Y坐標

x=像素坐標(像素寬)

y=像素坐標(像素高)

A=X方向上的像素分辨率

D=平移系數

B=旋轉系數

E=Y方向上的像素分辨素(總為負值)

C=柵格地圖左上角像素中心X坐標

F=柵格地圖左上角像素中心Y坐標

圖1 各DOM圖幅文件夾中包含的影像、坐標等數據格式文件

圖2 tfw數據格式

如圖1中顯示的是DOM的影像文件、坐標信息文件及元數據文件，圖2中展示了用記事本打開tfw文件的內容格式，下面對照圖2列出對TFW文件中的每一行的說明。

第1行：0.200000 代表A=地圖單元中的一個像素在X方向上的X分辨率尺度，即X-Scale(一個像元的大小)

第2行：-0.000000代表 D=平移量。

第3行：0.000000代表B=旋轉量。(角度)

第4行：-0.200000代表E=地圖單元中的一個像素在Y方向上的Y分辨率尺度的負值，即負的Y-Scale(一個像元的大小)

第5行：428980.000000代表C=圖像左上角的X坐標。

第6行：2963020.000000代表F=圖像左上角的Y坐標。

3 編程思路

怎樣才能準確地根據TFW文件中的坐標信息把正射影像插入到CAD當中呢？我們知道TFW中指定的影像定位點是其左上角坐標(C，F)，而CAD中圖像的定位點是其左下角坐標(x1，y1) 即【C，y1】，這就需要我們在這兩個定位點之間進行轉換，這里簡單的說明一下，不舉例具體的數據，就以變量來說明問題了。我采用的計算方法和設計步驟如下：

(1)確定影像的右下角的坐標：

根據TFW文件中的坐標信息可已知A、D、B、E、C、F的值以及影像左上角坐標：(x1，y2)=(C，F)

根據tiff影像文件可已知影像像元列數x(像素寬)和行數y(像素高)

根據公式求得影像右下角坐標：(x2，y1)

x2=A*x+ B*y+C

y1=D*x+E*y+F

(2)確定影像的兩個角的坐標：

需要確定影像的左下角坐標和右上角坐標

影像左下角坐標：(x1，y1) 即【C，y1】

影像右上角坐標：(x2，y2) 即【x2，F】

(3)插入影像，并獲取影像在CAD中的坐標；移動縮放影像，使影像的4個角點的坐標與真實坐標相對應。

4 程序源代碼

因全部程序較長，程序代碼不能全部登出，被省略的程序段是實現一些輔助功能代碼。本文只選取了實現主要插圖功能的代碼如下：

；批量插入正射影像

(defun C：moreTifInCAD( )

(if(findfile(setq filenamePath (getfiled "打開文件" (getvar "dwgprefix") "tfw；tif" 0)))

(progn

(setq filenamePath(vl-filename-directory filenamePath))；返回文件路徑

；列出給定目錄中的所有文件

(setq filepathList(vl-directory-files filenamePath "*.tfw" 1))

(setq filepathList(vl-remove "." filepathList)

filepathList(vl-remove ".." filepathList))

(foreach filename filepathList

(OneTifIntoCAD(strcat filenamePath "\" filename))

)

)

)

)

；根據tfw坐標信息插入指定圖像位置

(defun OneTifIntoCAD(openfilePath)

(princ " 加載正射影像")

(setq osMode(getvar "osMode"))

(setvar "osMode" 0)

(if(findfile openfilePath)

(progn

(setq Biao(ReadFile openfilePath))

(setq A(atof(nth 0 Biao))

D(atof(nth 1 Biao))

B(atof(nth 2 Biao))

E(atof(nth 3 Biao))

C(atof(nth 4 Biao))；x1

F(atof(nth 5 Biao)))；y2

(setq openfilePath(strcat(vl-filename-directory openfilePath)"\"(vl-filename-base openfilePath)".tif"))

(if(findfile openfilePath)

(progn

(command "image" "A" openfilePath (list C F) "1" "0" )

(setq ev(vlax-ename->vla-object(entlast)))

(setq Width(vla-get-Width ev) x Width)；col(獲取圖像像素寬)

(setq Height(vla-get-Height ev) y Height)；row(獲取圖像像素高)

(setq x2 (+(* A x)(* B y) C))

(setq y1 (+(* D x)(* E y) F))

(setq pt1(list C y1))

(command "move" (entlast) "" (list C F) pt1)

(setq pt2(nth 1 (getEV4pt ev)))；獲取圖像在CAD中左上角坐標

(command "scale" (entlast) "" pt1 "R" pt1 pt2 (list C F))

(command "draworder" (entlast) "" "B")

)

)

)

)

(setvar "osMode" osMode)

(princ)

)

；按順時針獲取對象的4個角點坐標值

(defun getEV4pt(ev / p1 p2 pptl)

(vla-getboundingbox ev 'p1 'p2)

(setq p1(vlax-safearray->list p1))

(setq p2(vlax-safearray->list p2))

(setq pptl (list p1 (list(car p1)(cadr p2)) p2 (list(car p2)(cadr p1))))

pptl

)

；讀寫文件

(defun ReadFile(txtpath)

(setq stra "" Biao '( ))

(setq ff (open txtpath "r"))

(while(setq stra(read-line ff))

(setq Biao(append Biao (list stra)))

)

(close ff)

Biao

)

插入影像程序在CAD中運行結果示例如圖3所示：

5 結 語

為了解決CAD批量插入正射影像的問題，作者一直思考探索，參考了相關專業(yè)文件資料，通過大量的實驗，用AutoCAD軟件中內嵌的LISP語言編寫了一段小程序解決上述問題，該程序能夠把正射影像批量精確插入到CAD中，操作簡便實用。雖然目前市場上也有針對CAD插入影像的程序，但各行業(yè)都有一些各自特殊的需要和實際問題，解決這些帶本行業(yè)特殊性的實際問題，還是應該由我們自己生產一線的技術人員來完成。我們應該充分利用對本部門業(yè)務和專業(yè)知識非常熟悉的優(yōu)勢，自己動手深入開發(fā)拓展現有應用軟件的功能。

[1] 郭秀娟，徐勇，鄭馨等. AutoCAD二次開發(fā)實用教程[M]. 北京：機械工業(yè)出版社，2014：287.

[2] 郭秀娟，于全通，范小鷗. AutoLISP語言程序設計[M]. 北京：化學工業(yè)出版社，2010：218.

[3] 楊貴田. AutoCAD基礎與實用教程[M]. 北京：機械工業(yè)出版社，2016：144.

Discussion on the Method of DOM Insertion in CAD Based on Coordinate Information of TFW Images

Zhan Yanchun

(The First Surveying and Mapping Institute of Hunan Province，Hengyang 421001，China)

The application of DOM is more and more widely and frequently，this paper introduces the design and implementation of a batch loading DOM program with LISP，the program can automatically insert DOM into CAD，and make it correspond to the true coordinates，greatly improve the work efficiency.

TFW；CAD illustration；LISP programming

1672-8262(2017)02-144-03

P209

B

2016—07—04

詹艷春(1982—)，男，工程師，主要從事測繪及地理信息系統(tǒng)應用、數據處理等技術工作。