可能会更新场景 这个就是换了全局函数防止出错，加入的报错系统

macroScript Macro6
category:"DragAndDrop"
toolTip:""
(
---想到了一个全局冻结模式
---效果
try (
function all_freeze_tan =
(
global all_obj_freeze

oop = selection as array
if oop.count !=0 then
(
all_obj_freeze= oop
)

for i in all_obj_freeze do
(
i. isFrozen =not i. isFrozen
i.showFrozenInGray =false
-- i.showFrozenInGray = not i.showFrozenInGray
)
)
all_freeze_tan()
)
catch( messagebox ("全局变量已换。"))
)