Macro If Selected Stay If Not Then Delete/pl

Makrodefinicja: Jeśli wybrane pozostaw, jeśli nie to usuń

Opis
Makrodefinicja umożliwia usunięcie wszystkich niezaznaczonych obiektów.

Macro version: 00.03c
Last modified: 2026-07-29
FreeCAD version: wszystkie
Download: ToolBar Icon
Autor: Mario52
Autor
Mario52
Do pobrania
ToolBar Icon
Odnośniki
Wersja Makrodefinicji
00.03c
Data zmian
2026-07-29
Wersja FreeCAD
wszystkie
Domyślny skrót
Brak
Zobacz również
Makro przełącz widoczność 2 1-2
Makro przełącz widoczność 2 2-2
Makro przełącz widoczność
Makro ukryj wszystko
Makro wyświetl wszystko

Opis

To makro usuwa wszystkie niezaznaczone obiekt!

Tworzenie skryptów

Ikonka paska narzędzi

Macro_If_Selected_Stay_If_Not_Then_Delete.FCMacro

import FreeCAD
import Draft
# 16/06/2016, 21/02/2018, 22/09/2023, 2023-09-24, 2026/07/29
# Macro_SelectVisible series
__title__   = "Macro_If_Selected_Stay_If_Not_Then_Delete"
__author__  = "Mario52"
__url__     = "https://wiki.freecad.org/Macro_If_Selected_Stay_If_Not_Then_Delete"
__version__ = "00.03c"
__date__    = "2026/07/29"
__icon__    = "https://wiki.freecad.org/images/6/62/Macro_If_Selected_Stay_If_Not_Then_Delete.png"

App = FreeCAD
try:
    for ShapeNameObj in FreeCAD.ActiveDocument.Objects:
        if str(ShapeNameObj) == "<group object>":
            if len(Draft.get_group_contents(ShapeNameObj)) == 0:
                App.ActiveDocument.removeObject(ShapeNameObj.Name)        # remove group not selecteds
        else:
            if Gui.Selection.isSelected(ShapeNameObj):
                None
            else:
                try:
                    App.ActiveDocument.removeObject(ShapeNameObj.Name)    # remove objects not selecteds
                except Exception:
                    try:
                        App.ActiveDocument.removeObject(ShapeNameObj)     # remove objects not selecteds
                    except Exception:
                        try:
                            App.ActiveDocument.getObject(ShapeNameObj).removeObjectsFromDocument() # remove objects not selecteds
                            App.ActiveDocument.removeObject(ShapeNameObj)
                        except Exception:
                            None

    for ShapeNameGroup in FreeCAD.ActiveDocument.Objects:
        if (str(ShapeNameGroup) == "<group object>"):
            if len(Draft.get_group_contents(ShapeNameGroup)) == 0:
                App.ActiveDocument.removeObject(ShapeNameGroup.Name)      # remove group emptied

except Exception:
    print("Oups")