Чистка не используемых свойств инфоблока

delete empty prop

\Bitrix\Main\Loader::includeModule('iblock');

$getCountValues = function ($propId){
    $res = \Bitrix\Iblock\ElementPropertyTable::getList([
        'select' => ['*'],
        'filter' => ['ELEMENT.IBLOCK_ID' => 23, 'IBLOCK_PROPERTY_ID' => $propId],
        'count_total' => true,
    ]);
    
    return $res->getCount();
};

$resProp = \Bitrix\Iblock\PropertyTable::getList([
    'select' => ['*'],
    'filter' => ['IBLOCK_ID' => 23, /*'=PROPERTY_TYPE' => 'S'*/]
]);

while ($propIb = $resProp->fetch()){
    
    $countValues = $getCountValues($propIb['ID']);

    //$msg = "Свойство: {$propIb['NAME']} ({$propIb['CODE']}) - заполненных значений: {$countValues} ";
    
    if ($countValues == 0){
        if (\CIBlockProperty::Delete($propIb['ID'])) {
            pr("Property {$propIb['NAME']} ({$propIb['CODE']}) delete");
        } else {
            throw new Exception(__METHOD__ . "Iblock property delete error!");
        }
    }
    
}