设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 775|回复: 5

[工具] 解除编组

[复制链接]

已领礼包: 189个

财富等级: 日进斗金

发表于 2020-6-17 10:03:46 | 显示全部楼层 |阅读模式
  • 插件名称 : 解除编组
  • 作  者 : dyjwyqz5221
  • 运行环境 :XDRX API 
  • 发布时间 :2020-06-17
  • 命令名称 :XD::UNGROUP
  • 插件介绍 :解除框选范围内的所有编组,无需知道编组名称。
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

[mw_shl_code=actionscript3,true](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)
)[/mw_shl_code]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 145个

财富等级: 日进斗金

发表于 2020-6-17 23:16:19 | 显示全部楼层
通用函数库,
(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>)
|;

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

已领礼包: 138个

财富等级: 日进斗金

发表于 2020-6-17 12:11:13 | 显示全部楼层
好东西,必须支持!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 394个

财富等级: 日进斗金

发表于 2020-6-17 12:17:08 | 显示全部楼层
Thx for sharing.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 148个

财富等级: 日进斗金

发表于 2020-6-17 12:54:09 | 显示全部楼层
好东西,谢谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2020-6-17 23:22:20 | 显示全部楼层
API编程看着舒服
结构化强,代码易懂
一行基本就做一个事
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2021-9-23 01:02 , Processed in 0.793462 second(s), 43 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表