【组】批量做组

newer · 发表于 2020-7-23 13:03:52

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

您需要登录才可以下载或查看，没有账号？立即注册

×

游客，本帖隐藏的内容需要积分高于 30 才可浏览，您当前积分为 0

猪八戒悟能 · 发表于 2020-7-23 14:55:04

感谢楼主分享！！！

dyjwyqz5221 · 发表于 2020-7-23 16:47:45

命令: TT
选择对象: 指定对角点: 找到 80 个
选择对象:
>>正在制作组.
发现80个独立最大的封闭区域，其中实体已经制作成组.
执行时间:0.072s.

tt还是用的你这段程序，仅将选取ss改为(setq ss (ssget '((62 . 2))))
运行时间怎么相差这么大呢？
你的执行时间为：0.251s

dyjwyqz5221 · 发表于 2020-7-23 17:09:31

(defun c:tt (/ len box ss ss1 x)
    (if (setq ss (ssget '((62 . 2))))
(progn
      (xdrx-begin)
      (setq len (sslength ss))
      (xdrx-ui-prgcmdbar "\n>>正在制作组..." len 0.1)
      (xdrx-setsstodb ss 0)
      (while (setq x (xdrx-getentdata 0))
        (xdrx-ui-prgcmdbar t)
        (xdrx-polyline-compress x 7)
(setq box (xdrx-entity-box x))
        (setq ss1 (ssget "cp" box))
            (xdrx_group_make "*" ss1)
     );;;while
      (xdrx-ui-prgcmdbar)
      (xdrx-prompt "\n发现" len "个独立最大的封闭区域，其中实体已经制作成组。")
      (xdrx-end t)
);;;progn
    );;;if
    (princ)
);;;defun

还是我上面那个图，运行时间为：
命令: TT
选择对象: 指定对角点: 找到 80 个
选择对象:
>>正在制作组.
发现80个独立最大的封闭区域，其中实体已经制作成组。
执行时间:0.057s.

XDSoft · 发表于 2020-7-23 17:13:23

dyjwyqz5221 发表于 2020-7-23 17:09
(defun c:tt (/ len box ss ss1 x)
(if (setq ss (ssget '((62 . 2))))
(progn

上面的代码执行时间，演示的是 xdrx-end的用法，

找到选择集，做组，时间不多，主要是在寻找封闭最大多边形里面。

应该是函数 (setq ss (xd::polyline:maxIsolated nil 10)) 这个里面，
有时间计时器

这个函数是计算最大独立的封闭多边形的

woody_10 · 发表于 2020-7-23 17:19:42

命令: XDTB_PLIN2GROUP
错误: no function definition: XD::POLYLINE:MAXISOLATED
插件安装了 XDRX API 2020.07.22

XDSoft · 发表于 2020-7-23 17:21:49

woody_10 发表于 2020-7-23 17:19
命令: XDTB_PLIN2GROUP
错误: no function definition: XD::POLYLINE:MAXISOLATED
插件安装了 XDRX API 2 ...

在下载下API装下，
然后看看 xd-lisp-lib.vlx的时间是什么？应该是 22日22.57

woody_10 · 发表于 2020-7-23 17:26:20

2020/07/21 03:14

woody_10 · 发表于 2020-7-23 17:29:05

百度云的文件下载下来总是出错

XDSoft · 发表于 2020-7-23 17:58:51

woody_10 发表于 2020-7-23 17:29
百度云的文件下载下来总是出错

版本不对，重新下载，换蓝奏云那个

XDSoft · 发表于 2020-7-23 18:12:26

woody_10 发表于 2020-7-23 17:26
2020/07/21 03:14

http://bbs.xdcad.net/thread-669133-1-1.html

去下载下最新的通用LISP函数库，覆盖

yuren008 · 发表于 2020-7-23 19:42:18

做个对论坛有益的人。

12323411 · 发表于 2020-7-25 19:28:12

积分不够啊我是小白积分怎么来的？

12323411 · 发表于 2020-7-25 20:31:04

大哥我看不了啊积分不够啊

12323411 · 发表于 2020-7-26 21:25:02

为什么要设置门槛呢还给新人机会不

账号		自动登录	找回密码
密码			立即注册

[组管理] 【组】批量做组

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

点评

评分

点评

点评

点评