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

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 ("全局变量已换。"))
)