Работа с профильными длинномерами

Материал из K3-Macro
Версия от 23:11, 1 сентября 2021; Aleksandro (обсуждение | вклад)
(разн.) ← Предыдущая версия | Текущая версия (разн.) | Следующая версия → (разн.)
Макро | Мебельные команды и функции | Длинномеры | Текущий тип | Текущий длинномер | Материал | Открыть диалог выбора типа и материала длинномера одного вида | Подрезка длинномеров | Длина | Прогибы по сторонам длинномера | Параметры гнутого длинномера | Кромка на длинномерах | Путь к файлу и габариты профиля для текущего типа длинномера | Имя текущего длинномера | Смещение конца линии установки длинномера при подрезке заданным углом | Создание длинномера | Как обрезать длинномер, чтобы он остался длинномером | Соединение длинномеров | Чертежи | Работа с панельными длинномерами | Работа с профильными длинномерами | Функции интерфейса длинномеров

Вернуть контур длинномера[править | править код]

INT GetOutline(OBJECT <Object>)

Функция GetOutline возвращает в список UnObj2d элементы контура профильного длинномера <Object> и возвращает количество добавленных UnObj2d в список. Координаты UnObj2d даются в ЛСК объекта <Object>.

Пример:

defarr arr[6];
NULLOUT=initarray(arr,0);

objident prompt "Укажите профильтный длинномер" : long;

beg=MaxUnObj2D();       //-- Максимальныей номер UnObj2d в хранилище
num=getoutline(long);   //-- Количество Unobj2d в хранилище
if (num==0)             //-- Ничего не создали
{
  exit;
}
color 5;
i=0;
type=0;
loop:
i=i+1;
coun=GetUnObj2D(i+beg,type,arr);
if (type==0)
{
  point arr[1],arr[2],0;
}
if (type==1)
{
  line arr[1],arr[2],0 arr[3],arr[4],0 done;
}
if (type==2)
{
  arc arr[1],arr[2],0 arr[3],arr[4],0 arr[5],arr[6],0 ;
}
putmsg("Type="+str(type));
putmsg(arr);
NULLOUT=initarray(arr,0);
if (i<num)
{
  goto loop;
}
i=0;
loopi:
i=i+1;
FreeUnObj2D(i+beg)
if (i<num)
{
  goto loopi;
}
exit;

Вернуть линию установки профиля[править | править код]

INT GetProfLine(OBJECT <Object>)

Функция GetProfLine возвращает в список UnObj2d элементы линии установки профиля <Object> и возвращает количество добавленных UnObj2d в список. Координаты UnObj2d даются в ЛСК объекта <Object>.


Макро | Мебельные команды и функции | Длинномеры | Текущий тип | Текущий длинномер | Материал | Открыть диалог выбора типа и материала длинномера одного вида | Подрезка длинномеров | Длина | Прогибы по сторонам длинномера | Параметры гнутого длинномера | Кромка на длинномерах | Путь к файлу и габариты профиля для текущего типа длинномера | Имя текущего длинномера | Смещение конца линии установки длинномера при подрезке заданным углом | Создание длинномера | Как обрезать длинномер, чтобы он остался длинномером | Соединение длинномеров | Чертежи | Работа с панельными длинномерами | Работа с профильными длинномерами | Функции интерфейса длинномеров