Просмотр кода страницы Функция определения мебельных габаритных координат

[[Категория:Мебельные команды и функции_для_макропрограммирования|К]]
{{Мебельные команды и функции для макропрограммирования}}
----
<code>LOGICAL '''MebelGab'''(OBJECT ''&lt;Obj&gt;'', ARRAY ''<nowiki>&lt;Gabs[6]&gt;</nowiki>''<nowiki>[, STRING ARRAY </nowiki>''&lt;FTArr&gt;''])</code>

Функция определяет "мебельные" габаритные координаты изделия <code>''&lt;Obj&gt;''</code> и возвращает их в массив ''<code>&lt;Gabs[6]&gt;</code>''. В массиве <code>''&lt;FTArr&gt;''</code> лежат '''FurnType''' тех мебельных элементов, которые не должны участвовать в определении габаритов.

"Мебельные" габариты нужны для того, чтобы в габариты изделия не попадали вспомогательные объекты типа заглушек конфирмата и пр. Поэтому в функции эти элементы можно исключить из определения габаритов.

Пример:
 <nowiki>defarr xm[6], FT[3];</nowiki>
 objident : obj;
 NULLOUT=getsnap();
 setucs lcs obj;
 NULLOUT=objgab3(obj,xm);
 putmsg("Геометрически");
 putmsg(xm);
 color 1;
 <nowiki>box xm[1],xm[2],xm[3], xm[4],xm[5],xm[6];</nowiki>
 NULLOUT=mebelgab(obj,xm);
 putmsg("Без фильтра");
 putmsg(xm);
 color 2;
 <nowiki>box xm[1],xm[2],xm[3], xm[4],xm[5],xm[6];</nowiki>
 <nowiki>FT[1]="0401";</nowiki>
 <nowiki>FT[2]="80";</nowiki>
 <nowiki>FT[3]="0104";</nowiki>
 NULLOUT=mebelgab(obj,xm,FT);
 putmsg("C фильтром");
 putmsg(xm);
 color 4;
 <nowiki>box xm[1],xm[2],xm[3], xm[4],xm[5],xm[6];</nowiki>
 NULLOUT=resnap();
 exit;
----
{{Мебельные команды и функции для макропрограммирования}}