2010년 1월 24일 일요일

[ArcGIS]포인트에 래스터 픽셀값 계산하기 VBA Script

포인트 레이어의 필드에 래스터의 픽셀값을 계산하는 VBA 스크립트 예입니다.

가령, DEM(Digital Elevation Model)과 사용자가 수집한 포인트 레이어가 있을 경우, 포인트 위치의 표고값을  필드값으로 계산하고자 할 때 사용할 수 있습니다.

소스를 수정/확장하면 더 많은 결과를 만들어 낼 수 있을 것입니다.

▣ 전제사항
 - ArcMap에 포인트 레이어 및 래스터 레이어가 추가되어 있을 것
 - 포인트 레이어는 Shapefile, Personal GDB(mdb), File GDB일 것
 - 래스터 레이어는 단일밴드일 것
 - 스크립트 실행 조건은 편집 상태가 아닐것(Update Cursor를 사용하기 때문임)

▣ 메인 코드

펼쳐두기..


▣ 전체 소스코드▣ 계산결과 예시