[nikomuro]

имеется таблица points.tab. в ней расположены только точечные объекты. Необходимо средствами mapbasic написать команду с помощью которой заменялся бы стиль ВЫБРАННОГО точечного объекта или нескольких точечных объектов на другой (другой стиль определить так же в команде). Прошу написать самый простенький код. стиль точки можно применить для примера любой. Заранее всех благодарю

[thegeo]

Ответил в письме.

[Light007]

Тоже интересуюсь данным вопросом.

Для замены символа сделал так (см.ниже), вроде работает, но как-то громоздко.
Правильно ли я делаю, или есть более простой способ?


MI.Do('Dim Obj1 As Object');
MI.Do('Dim ch As Symbol');

i:=0;
MI.Do('Fetch First From Table1');
S:=MI.Eval('EOT(Table1)');
While not((S='T') or (S='t')) do begin
Inc(i);

MI.Do('Obj1=Table1.obj');
MI.Do('ch = ObjectInfo(obj1, 2)');

code:=MI.Eval('StyleAttr(ch,1)');
color:=MI.Eval('StyleAttr(ch,2)');
size:=MI.Eval('StyleAttr(ch,3)');

MI.Do(Format('ch = MakeSymbol(%d,%d,%d)',[code+1,color,size]));
MI.Do('Alter Object obj1 Info 2, ch');
MI.Do('update Table1 set obj=obj1 where rowid=Table1.rowid');

MI.Do('Fetch Next From ExcelPS');
S:=MI.Eval('EOT(ExcelPS)');
end;