框选解除编组xd::ungroup

dyjwyqz5221

[Actionscript3] 纯文本查看 复制代码

(defun c:xd::ungroup(/ ss)
        (defun get::Entity:GroupName(e / lst)
                  (if (setq lst (xdrx_object_reactor e))
                        (mapcar
                                '(lambda(x)
                                        (xdrx_getpropertyvalue x "name")
                                )
                                lst
                        )
                )
        )
        (defun _pross(ss / lst)
                (xdrx_begin)
                (xdrx_sysvar_push '("osmode" 0 "cmdecho" 0))
                (xdrx_runtime t)
                (if (setq lst (xd::list:removedup (apply 'append (mapcar 'get::Entity:GroupName (xdrx_pickset->ents ss)))))
                        (progn
                                (mapcar 'xdrx_group_delete lst)
                                (xdrx_prompt "\n已成功解除 " (length lst) " 个编组！用时 "(xdrx_runtime)" 秒。")
                        )
                        (xdrx_prompt "\n未选中编组。用时 "(xdrx_runtime)" 秒。")
                )
                (xdrx_sysvar_pop)
                (xdrx_end)
                (princ)
        )
        (while (setq ss (ssget))
                (_pross ss)                
        )
        (princ)
)