Код: Выделить всё
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)Сейчас этот форум просматривают: нет зарегистрированных пользователей и 16 гостей