invispanel.mac

//__author__ = 'Aleksandr Dragunkin '
//__created__= '16.01.2025'
//__version__ = '0.1.00'
// -------------------------------------------------------------------------------
// Name:        invispanel
// Purpose:     гасит = переносит полотно панелей и кромку панелей с таким же PriceID,
//              как у у казанной панели на слой SWPanels
// Copyright:   (c) GEOS 2012-2025 http://k3info.ru/
// Licence:     FREE
// ------------------------------------------------------------------------------

global ProtoPath ;
switch autosingle on;
fltrparamobj(1,61);

onerror labend;

select prompt "Выберите панель...." partly :

if sysvar(61)<1 {
    goto labend;
}
switch autosingle off;
fltrparamobj(0);

Panel=getselnum(1);
PrID=GetAttr(Panel,"PriceID","0");

if !ExistsLayer("SWPanels") {
    layers new "SWPanels";
    layers off "SWPanels";
}

selbyattr "PriceID=="+str(PrID) partly all;
nsel=sysvar(61);
if !nsel { 
    goto labend;
}
defarr apan[nsel];

macro ProtoPath+"ArrObj.mac" nsel apan;

i=0;
lab1:
if i<nsel {
    i=i+1;
    Panel=apan[i];
    selbyattr "Furntype==\"010000\"||Furntype==\"050000\"" child Panel; 
    if sysvar(61) {
        chprop layer partly previous done "SWPanels";
    }
    goto lab1;
}

layers off "SWPanels";

labend:

offerror;
switch autosingle off;
fltrparamobj(0);

exit;