解除编组

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)" 秒。\n"
					"解除的编组名称： " (xd::list->string (xdrx-list-sort lst) " ")
				)
                        )
                        (xdrx_prompt "\n未选中编组。用时 "(xdrx_runtime)" 秒。")
                )
                (xdrx_sysvar_pop)
                (xdrx_end)
                (princ)
        )
        (while (setq ss (ssget))
                (_pross ss)                
        )
        (princ)
)

XDSoft

通用函数库，
(XD::Ent:GroupName e)

命令: (xd::ent:groupname (entlast))
"*A1"

命令: (xdrx-object-reactor (entlast))
(<图元名: 1ffbebe9bc0>)

函数名称:        XD::Entity:GetMaxGroup
调用格式:        (XD::Entity:GetMaxGroup e)
参数说明:        e --- 实体名
返回值:        表 ( 组名 组实体名 )
函数简介:        一个实体可能属于多个组，该函数获取这些组中面积最大的那个组。
函数来源:        原创
函数作者:        Newer
适用版本:        XDRX API
最后更新时间:        2014-12-19

--------------------------

函数名称:        XD::Entity:GroupsMaxBoxAtUcs
调用格式:        (XD::Entity:GroupsMaxBoxAtUcs e xdir)
参数说明:        e --- 实体名
xdir -- UCS X轴向量， 给 T，对齐世界坐标系
返回值:        UCS点表
函数简介:        获取实体所有组里面最大面积组包围盒
函数来源:        原创
函数作者:        Newer
适用版本:        XDRX API
最后更新时间:        2014-12-19

--------------------------------------------------

函数名称:        XD::Group:BoxAtUcs
调用格式:        (XD::Group:BoxAtUcs gn xdir)
参数说明:        gn --- 组名 or 组实体名
xdir --向量 如果给T，对齐世界坐标系X轴
返回值:        UCS点表
函数简介:        获得组的沿着指定X轴的包围盒
函数来源:        原创
函数作者:        Newer
适用版本:        XDRX API
最后更新时间:        2014-12-18

-----------------------------------------------

;|
返回选择集或实体表下面所有的组
参数： ss --- 选择集 or 实体表
       mode-- t 返回组名字符串表，否则返回 组名 组实体名 表
返回值 表
命令: (setq a (xd::pickset:allgroups (ssget)))
选择对象: all
找到 36 个
选择对象:
(("cd" <图元名: -16abd0>) ("ab" <图元名: -16abd8>))
;

-------------------------------------------
;|
根据实体名获取所在的组
参数： e  --- 实体名
       mode-- T (所有组) NIL （第一次该实体所在组)
返回值： 表

命令: (xd::ent:groupname (car (entsel)) t)

选择对象: (("ab" <图元名: -16abd8>) ("cd" <图元名: -16abd0>))

命令: (setq a (xd::ent:groupname (car(entsel)) nil))

选择对象: ("ab" <图元名: -16abd8>)
函数名称:        XD::Entity:GroupName

调用格式:        (XD::Entity:GroupName lst mode)
参数说明:        e --- 实体名
mode-- T (所有组) NIL （第一次该实体所在组)
返回值:        表
函数简介:        根据实体名获取所在的组（可能多个）
函数来源:        原创
函数作者:        Lispboy
适用版本:        XDRX API
最后更新时间:        2014-12-18
备注:        命令: (xd::ent:groupname (car (entsel)) t)

选择对象: (("ab" <图元名: -16abd8>) ("cd" <图元名: -16abd0>))

命令: (setq a (xd::ent:groupname (car(entsel)) nil))

选择对象: ("ab" <图元名: -16abd8>)
|;

LXH刚开始

好东西，必须支持！

vlisp2012

Thx for sharing.

1917732332

好东西，谢谢分享

Lisphk

API编程看着舒服
结构化强，代码易懂
一行基本就做一个事