Ayrat
Зарегистрирован: 10.09.2012 Сообщения: 11
|
Добавлено: Пт 28 Сен 2012 14:11 Заголовок сообщения: не создаётся объект |
|
|
Пытаюсь создать объект в слое, не получается. Подскажите, где ошибка!
option explicit
sub gga
dim a,b,c,d,e,bb
set e=application.activedb.mapobjects
set a=e.AddObject ("004C0001E2EC")
set c=a.Shapes.Insert (-1, "004C0001E2EF")
set bb=c.Contour
set d=bb.Insert (-1)
d.insertVertex -1, 4761,-8306,0
d.insertVertex -1, 4764,-3379,0
d.insertVertex -1, 6969,-3379,0
d.insertVertex -1, 6969,-8306,0
d.Closed=true
msgbox d.square
application.activedb.MapObjects.UpdateChanges
msgbox a.id
end sub |
|
APopov
Зарегистрирован: 19.06.2006 Сообщения: 347 Откуда: Самара
|
Добавлено: Сб 29 Сен 2012 14:01 Заголовок сообщения: |
|
|
замените
Код: | application.activedb.MapObjects.UpdateChanges |
на
Все изменения объектов принадлежат пространственной транзакции (MapObjects), каждый вызов activedb.MapObjects порождает новую транзакцию. У вас в коде вы применяли изменения у новой транзакции, в которой изменений не было. _________________ ОАО "Самара-Информспутник",
инженер-программист Попов Артем |
|