---
title: "WriteFragment - Записать группу во фрагмент"
type: guide
api: [api7]
tags: [guide, api7, writefragment]
sources:
  - writefragment.html
---

*API экспортных функций > Функции работы с графическим документом  > Функции работы с фрагментами и библиотеками фрагментов  > Функции работы с фрагментами  > Фрагменты *


## WriteFragment - Записать группу во фрагмент

Пример...
Аналог данной функции при использовании Automation - метод ksFragment::ksWriteFragment.
Синтаксис:
```
int WriteFragment (reference gr,
char *filename,
char *comment,
double xb,
double yb);
Входные параметры:
gr    - указатель на группу (0 - записывается группа выделения),
filename    - имя файла фрагмента,
comment    - комментарий для фрагмента,
xb, yb    - координаты точки привязки.
Возвращаемое значение:
1    - в случае успешного завершения,
0    - в случае неудачи.
Примечание.
При использовании Unicode следует использовать функцию WriteFragmentW.
```


## WriteFragment - Пример использования

//Пример использования WriteFragment
double x, y, x1,y1;
RequestInfo info;
memset(&info, 0, sizeof(info));
info.prompt = "Укажите начальную точку окна";
if (Cursor(&info, &x, &y, 0))
{
info.prompt = "Укажите конечную точку окна";
if (Cursor(&info, &x1, &y1, 0))
{
//создадим рабочую группу
reference gr = NewGroup(0);
EndGroup();
if (SelectGroup(gr, 1, x, y, x1, y1))
{
LightObj(gr, 1);//подсветим выделенную группу
char name[128];
//запросить имя файла фрагмента
if(SaveFile("*.frw",0,0, name,128))
{
info.prompt = "Укажите точку привязки фрагмента";
if (Cursor(&info, &x, &y, 0))
{
//записать содержимое группы во фрагмент
WriteFragment(gr, name, "фрагмент из рабочей группы", x, y);
Message("Фрагмент записан");
}
}
LightObj(gr, 0);//снять подсветку выделенной группы
}
}
}
