[AleksandrRuslanof]

Сообщение от Makca

вот спасибо....не лазал там никогда..но разобрался не совсем тока...

Есть еще много вопросов...Как сделать в программе групповое переименование и смену позиции детали....

Т.е ты хочешь выбрать кучу деталей и присвоить им один номер и одно наименование.

Это просто. Объединяешь функции макросов Re_numOb и Re_NamOb и закручиваешь их в цикл по выбранным объектам. Вот текст макроса.

//Re_NNamObGr.mac
//-- Макропрограмма изменяет номера и имена кучи выбранных объектов
global nomber;
select :

Nobj=SysVar(61) // число выбранных объектов
Defarr Obj[Nobj]; //определяем массив для этих объектов
i=0
met1:
if i<Nobj
{
i=i+1
Obj[i]=getselnum(i)
goto met1;
}
key=0
i=0
met2:
if i<Nobj
{
i=i+1
obj1=obj[i]
If (IsAttrdef("PorNumber"))
{
n=getattr(OBJ1,"PorNumber",-1);
nam=getattr(OBJ1,"ElemName"," ");
if (n!=-1)
{
if key!=1
{
#ok_flag
setvar
"Изменить номера и имена объектов"
""
left
"Введите номер объекта"
done
real default N "Номер объекта:" NNum
string default nam "Имя объекта:" NNаm
done;
if (ok_flag==0)
{
exit;
}
key=1
}
Attrobj Attach "PorNumber" "ElemName" Done OBJ1 NNum NNаm;
if (NNum>nomber)
{
nomber=NNum;
}
}
}
goto met2;
}
exit;