Код: Выделить всё
theView = av.FindDoc("View1")
tbl = FTab.MakeNew("c:\test.shp".AsFileName, point)
theTheme = FTheme.Make(tbl)
theView.AddTheme(theTheme)
Геоинформационные системы (ГИС) и Дистанционное зондирование Земли
Код: Выделить всё
theView = av.FindDoc("View1")
tbl = FTab.MakeNew("c:\test.shp".AsFileName, point)
theTheme = FTheme.Make(tbl)
theView.AddTheme(theTheme)
Код: Выделить всё
SN = SrcName.Make("C:.RS")
MyImageSrc = ImgSrc.Make(SN)
MyITheme = ITheme.MakeFromSrc(MyImageSrc)
MyView = av.GetActiveDoc
MyView.AddTheme(MyITheme)
MyITheme.SetVisible(TRUE)
Код: Выделить всё
myPlace=SrcName.Make("D:\GIS\avenue_test\test.tif")
PathtoMyImage=ImgSrc.Make(myPlace)
ImageTheme=ITheme.MakeFromSrc(PathtoMyImage)
CurrentView=av.GetActiveDoc
CurrentView.AddTheme(ImageTheme)
ImageTheme.SetVisible(TRUE)
ImageTheme.SetActive(TRUE)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 0 гостей
© GIS-Lab и авторы, 2002-2017. При использовании материалов сайта, ссылка на GIS-Lab и авторов обязательна. Содержание материалов - ответственность авторов (подробнее).