www.integro.ru

[Cherezov Max]

Рисую множество объектов (аналогия разбивка на планшеты) ипользую несколько измененный код от предложенного в примерах но получается что могу выделить только первый объект, а остальные не поддаются выделению......??? Второе необходимо чтобы каждый прямоугольник был площадным объектом, а получается контуром Как его замкнуть програмно......??? Очень прошу Помогите!!
-------------------------------------------------------------------------
theLayerID = theLayer.ID
theStyleID = theStyle.ID
for i =0 to KolPX-1
for j = 0 to KolPY-1
Set MapObjects = Application.ActiveDB.MapObjects
set theObject = MapObjects.AddObject(theLayerID)
set theShape = theObject.Shapes.Insert(0, theStyleID)
set theContourPart = theShape.Contour.Insert(-1)
theContourPart.InsertVertex -1, K*i, K*j, 0
theContourPart.InsertVertex -1, K+K*i, K*j, 0
theContourPart.InsertVertex -1, K+K*i, K+K*j, 0
theContourPart.InsertVertex -1, K*i, K+K*j, 0
theContourPart.InsertVertex -1, K*i, K*j, 0
MapObjects.UpdateChanges
next
next
theStyle.Update
theLayer.Update
heMap.Update
-------------------------------------------------------------------------

[Михаил Власов]

[Cherezov Max]

А как быть с выделением объектов!
После создания объектов выделяется только первый объект а все остельные остаются не активными!
Может все дело в том что при создании обекта надо для каждого объекта создавать индекс, а не рисовать все в 0 индексе
set theShape = theObject.Shapes.Insert(0, theStyleID)
подскажите Очень Очень Надо!

[RuslanG]

-1 надо ставить.. Тогда будет создаваться в цикле новый объект с новым шейпом, контуром и.. И будет выделяться каждый объект.

[Cherezov Max]

Спистб Большое! за Помощь!!!