[Ngôn ngữ Avenue #4]Khung nhìn và lớp chủ đề

 Nhìn vào mô hình đối tượng, ta thấy rằng View là một loại của document (DOC). Nó được chứa đựng bên trong một cửa sổ mà ta có thể mở, đóng, thay đổi kích cỡ hoặc di chuyển nó. Một View có thể chứa đựng không hoặc nhiều Theme, nó cũng có bảng nội dung (TOC) để hiển thị chú giải cho mỗi Theme, có vùng hiển thị bản đồ (Map Display) và nó cũng chứa đựng một tập các đối tượng đồ hoạ (graphics) như vòng tròn, hình chữ nhật, đường thẳng, nhãn mà ta có thể vẽ trên vùng bản đồ để làm nổi bật các đối tượng không gian trên bản đồ.

1. KHUNG NHÌN VÀ LỚP CHỦ ĐỀ

Tạo mới một khung nhìn

myView=View.Make

myView.SetName(“Khung nhìn bài tập chương 6”)

theWindow = myView.GetWin

theWindow.Open

Tìm kiếm một khung nhìn

theProject = av.GetProject

myView = theProject.FindDoc(“Khung nhìn bài tập chương 6”)

Gán đơn vị bản đồ và đơn vị thước đo cho khung nhìn

myView = theProject.FindDoc(“Khung nhìn bài tập chương 6”)
if (myView <> nil) then
myView.SetUnits(#UNITS_LINEAR_METERS)
end

 #UNITS_LINEAR_METERS là hằng số đơn vị do ArcView cung cấp. Có thể tìm thấy danh sách các đơn vị này bằng cách mở Help của ArcView và gõ vào UnitsLinearEnum trong mục Index.

myView.SetDistanceUnits(#UNITS_LINEAR_METERS)

Thêm lớp chủ đề (theme) vào khung nhìn

myView=av.GetProject.FindDoc(“Khung nhìn bài tập chương 6”)

theSrcName=SrcName.Make(“C: \Ditagis\Avenue\Data\hchinh.shp”)

if (theSrcName=nil) thenMsgbox.Info(“Không tồn tại tệp tin”, “Thông báo”)
exit
end

theTheme = Theme.Make(theSrcName)

myView.AddTheme(theTheme)

theTheme.SetVisible (true)

theTheme.SetActive (true)

theTheme.SetVisibleLocked(true)
theTheme.SetActiveLocked(true)

 Ta có thể kết nối nhiều nguồn dữ liệu khác nhau như là một chủ đề đến khung nhìn. Sau đây là một số ví dụ:

Đối với tập tin hình ảnh

TheSrcName = SrcName.Make(“$AVDATA/ myimage.bmp”)

TheSrcName = SrcName.Make(“$AVDATA/ myshapefile.shp”)

TheSrcName = SrcName.Make(“$AVDATA/ drawings/pacels.dwg line”)

TheSrcName = SrcName.Make(“mylibrary.layer polygon”)

TheSrcName = SrcName.Make(“mylibrary. mylibrary. layer polygon”)

TheView = av.GetActiveDoc
TheVtab = av.GetProject.FindDoc(“C: \Ditagis\Dulieu\Bang\qtrac_kk.dbf”).GetVTab
xField = theVTab.FindField(“toadoX”)
yField = theVTab.FindField(“toadoY”)
xySrc = XYName.Make(theVTab, xField, yField)
theTheme = Theme.make(xySrc)
theView.AddTheme(theTheme)

Tìm một lớp chủ đề trong khung nhìn

myView = av.GetProject..FindDoc(“Khung nhìn bài tập chương 6”)
hchanhTheme = myView.FindTheme(“hchanh.shp”)

Thay đổi thứ tự của lớp chủ đề trong bảng nội dung (TOC) của khung nhìn

theView = av.GetProject.FindDoc(“Khung nhìn bài tập chương 6”)
theThemeList = theView.GetThemes

themeDau=theThemeList.Get(0)
vitricuoi=theThemeList.Count
theThemeList.Shuffle(themeDau,vitricuoi)

theView.InvalidateTOC (nil)
theDisplay=theView.GetDisplay ‘ lấy vùng hiển thị bản đồ
theView.Invalidate(true) ‘vẽ lại

aTOC = aView.GetTOC
aTOC.SetOrderLocked

Thay đổi biểu tượng của lớp chủ đề

theView = av.GetActiveDoc
theTheme = theView.GetThemes.Get(0) ‘ lấy Theme đầu tiên
theLegend = theTheme.GetLegend ‘ lấy Legend của Theme

theListSymbol=theLegend.GetSymbols

theSymbol=theListSymbol.Get(0)
theBlueColor=color.GetBlue ‘ lấy màu xanh
theSymbol.SetColor(theBlueColor) ‘ gán màu symbol thành màu xanh

theTheme.UpdateLegend

Xoá các lớp chủ đề khỏi khung nhìn

myView = av.GetProject.FindDoc(“Khung nhìn bài tập chương 6”)
theTheme = myView.FindTheme(“hchanh.shp”)

xacnhan = Msgbox.YesNo(“ thực sự muốn xoá Theme ” + theTheme + “?”, “Xoá theme”, true)
if (xacnhan=true) then
myView.DeleteTheme(theTheme)
end

myView = av.GetProject.FindDoc(“Khung nhìn bài tập chương 6”)
listTheme=myView.GetActiveThemes

xacnhan = Msgbox.YesNo(“ thực sự muốn xoá Theme ” + theTheme + “?”, “Xoá theme”, true)
if (xacnhan=true) then
myView.DeleteTheme(theTheme)
end

Chọn đối tượng không gian của lớp chủ đề bằng chuột

myView = av.GetProject.FindDoc(“Khung nhìn bài tập chương 6”)
listActiveThemes=myView.GetActiveThemes

theRect = myView.GetDisplay.ReturnUserRect

For each theTheme in listActiveThemes
theTheme.SelectByRect(theRect, #VTAB_SELTYPE_NEW)
end

Kiểu chọn Ý nghĩa

myView = av.GetProject.FindDoc(“Khung nhìn bài tập chương 6”)
theRect = myView.ReturnUserRect
if ( theRect.IsNull) then
thePoint=myView.GetDisplay.ReturnUserPoint
listActiveThemes=myView.GetActiveThemes
For each theTheme in listActiveThemes
theTheme.SelectByPoint(thePoint, #VTAB_SELTYPE_NEW)
end
else
For each theTheme in listActiveThemes
theTheme.SelectByRect(theRect, #VTAB_SELTYPE_NEW)
end
end

Chọn đối tượng không gian của lớp chủ đề bằng các hình đồ họa

myView = av.GetProject.FindDoc(“Khung nhìn bài tập chương 6”)
truongTheme=myView.FindTheme(“truong.shp”)

listGraphics = myView.GetGraphics

listSelGrp = listGraphics.GetSelected

theCircle = listSelGrp.Get(0).GetShape

listShapes={}
listShapes.Add(theCircle)

TruongTheme.SelectByShapes(listShapes, #VTAB_SELTYPE_NEW)

Chọn đối tượng không gian lớp chủ đề bằng một lớp chủ đề khác

myView = av.GetProject.FindDoc(“Khung nhìn bài tập chương 6”)
thitranTheme = myView.FindTheme(“thitran.shp”)
truongTheme = myView.FindTheme(“truong.shp”)

truongTheme.SelectByTheme(thitranTheme, #FTAB_RELTYPE_ISWITHINDISTANCEOF, 10, #VTAB_SELTYPE_NEW)

 Các hằng số kiểu quan hệ không gian giữa 2 Theme:

 Các yêu cầu thường được sử dụng với Theme

 2. VÍ DỤ

theLegend.SetLegendType(#LEGEND_TYPE_UNIQUE)
 theLegend.Unique(theTheme,"Ten_huyen")

‘ Bỏ đi những giá trị Null nếu có

for each scheme in theColorSchemes
if (scheme.GetName = "Cool Tones") then
theColorScheme = scheme
end
end

theLegend.GetSymbols.RandomSavedSymbols(theColorScheme)

 ‘ Cập nhật lại bảng TOC

theTheme.UpdateLegend

theFM = FontManager.The

theFontlist = theFM.ReturnFamilies

theFont = msgbox.ListAsString (theFontlist,"Select a Font", "Set TOC Font")
if (theFont = nil) then ‘ trường hợp không chọn Font nào
exit
end

theStyles = theFM.ReturnStyles (theFont)

theStyle = msgbox.ListAsString (theStyles,"Select a Font Style","Set TOC Font")
if (theStyle = nil) then exit end ‘ không chọn kiểu nào

theSize = msgbox.input("Enter a Font Size","Set TOC Font","12")

 if (theSize = nil) then exit end ‘ trường hợp không chọn kích thước

TOCFont = TextSymbol.Make
TOCFont.SetFont (NFont.Make(TheFont.AsString,TheStyle.AsString))
TOCFont.SetSize( theSize.AsNumber)
TOC.SetDefaultSymbol(TOCFont)

allDocs = av.GetProject.GetDocs
for each v in allDocs
if (v.is(View) and (v.GetWin.IsOpen)) then
'only open views already open or iconized
v.GetWin.Close
v.GetWin.Open
end
end

aView = av.GetActiveDoc ' Lấy về View hiện hành
theThemes = aView.GetThemes ' Lấy tất cả các Theme trong view
if (theThemes = NIL) then ‘ Trường hợp không có theme nào
exit
end

theTypes = {"point","multipoint","labelpoint","node","annotation","arc",
"multiline","route","polygon","poly","region"}

aKey = thm.GetSrcName.GetSubName
if (theTypes.FindByValue(aKey) >= 0) then

aValue = aDictionary.Get(aKey) + {thm}
aDictionary.Set(aKey,aValue)
else

type = "other" ‘ không thì gán cho nó kiểu là other
if (aKey.Contains("region")) then
type = "region"
end 'if
if (aKey.Contains("route")) then
type = "route"
end 'if
aValue = aDictionary.Get(type) + {thm}
aDictionary.Set(type, aValue)
end 'else
end 'for

theThemes.Empty
for each type in theTypes
theThemes.Merge(aDictionary.Get(type))
end
theThemes.Merge(aDictionary.Get("other"))
 aView.InvalidateTOC(nil)
aView.Invalidate