|
|
| Description |
|---|
| This macro delete all objects not selected. Macro version: 00.03b Last modified: 2023-09-24 FreeCAD version: All Download: ToolBar Icon Author: Mario52 |
| Author |
| Mario52 |
| Download |
| ToolBar Icon |
| Links |
| Macros recipes How to install macros How to customize toolbars |
| Macro Version |
| 00.03b |
| Date last modified |
| 2023-09-24 |
| FreeCAD Version(s) |
| All |
| Default shortcut |
| None |
| See also |
| Macro Toggle Visibility2 1-2 Macro Toggle Visibility2 2-2 Macro_Toggle_Visibility Macro HiddenAlls Macro_VisibleAlls |
Описание
Данный макрос удаляет все объекты кроме тех, что выбраны пользователем!!!
Скрипт
ToolBar Icon
Macro_If_Selected_Stay_If_Not_Then_Delete.FCMacro
import FreeCAD
import Draft
# 16/06/2016, 21/02/2018, 22/09/2023, 24/09/2023
# Macro_SelectVisible series
__title__ = "Macro_If_Selected_Stay_If_Not_Then_Delete"
__author__ = "Mario52"
__url__ = "https://freecad.org/index-fr.html"
__version__ = "00.03b"
__date__ = "24/09/2023"
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:
App.ActiveDocument.removeObject(ShapeNameObj.Name) # remove objects not selecteds
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:
None
Эта страница получена от https://wiki.freecad.org/Macro_If_Selected_Stay_If_Not_Then_Delete