Вот тебе скрипт позволяющий перенести и атрибутику (выбранного поля) в новый объект
Прежде чем запустить скрипт начни редактирование темы и выбери все объекты, которые надо объединить в один
theView = av.GetActiveDoc
anFTheme = theView.GetEditableTheme
if (anFTheme.GetFtab.IsEditable) then
theFields=anFTheme.GetFtab.Getfields
thefield2gettext=MsgBox.Choice (theFields, "Выберите поле, атрибутику которого надо перенести в новый объект", "Выберите поле")
if (thefield2gettext=nil) then
exit
end
theSelection=anFTheme.GetFtab.GetSelection
if (theSelection.Count<2) then
msgbox.warning("Нет выбранных объектов. Или объектов меньше двух","Ошибка")
exit
end
theSelectionList={}
for each rec in theSelection
s = anFTheme.GetFtab.ReturnValueString(thefield2gettext,rec).asstring
theSelectionList.Add (s)
end
theAttribValue=MsgBox.ChoiceAsString (theSelectionList, "Выберите значение для объекта", "Выберите значение")
if (theAttribValue=nil) then
exit
end
theAttribValue=theAttribValue.asstring
if (anFTheme.GetFTab.IsEditable) then
anFTheme.UnionSelected
end
theSelection=anFTheme.GetFtab.GetSelection
theSelectionList={}
for each rec in theSelection
anFTheme.GetFtab.SetValueString (thefield2gettext, rec, theAttribValue)
end
else
msgbox.warning("Сначала начните редактирование темы", "Ошибка")
end
