www.integro.ru

[Ayrat]

Пытаюсь создать объект в слое, не получается. Подскажите, где ошибка!



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]

замените

[Ayrat]

спасибо, помогло!