填充图案批量合并

dyjwyqz5221 · 发表于 2020-6-29 16:04:55

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

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

×

本帖最后由 dyjwyqz5221 于 2020-6-29 17:40 编辑

批量选取填充图案，对其中相交或包含的填充图案进行合并。

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

(defun c:hatch-union(/ ss)
        (defun _pross(ss / lst pts e1 lst1)
                (setq lst (xdrx-pickset->ents ss))
                (while (setq e1 (car lst))
                        (setq pts (xdrx-geom-searchoutline e1 t))
                        (setq lst1 (xdrx-pickset->ents (ssget "cp" pts '((0 . "hatch")))))
                        (setq lst (XD::List:subtract lst lst1))
                        (if (> (length lst1) 1)
                                (progn
                                        (mapcar
                                                '(lambda(x)
                                                        (xdrx-get-union e1 x)
                                                );;;lambda
                                                (vl-remove e1 lst1)
                                        );;;mapcar
                                        (xdrx-document-redraw);;;更新数据库
                                );;;progn
                        );;;if
                );;;while
        );;;defun
        (while (setq ss (xdrx-ssget "\n选择填充图案<退出>:" ":L" '((0 . "hatch"))))
                (_pross ss)
        );;;while
);;;defun

附函数：
;;;两个表的差(无容差)：lst-lst1
(defun XD::List:subtract(lst lst1)
      (mapcar
            '(lambda(x)
                        (setq lst (vl-remove x lst))
               )
            lst1
         )
         lst
);;;defun

Lisphk · 发表于 2020-6-29 18:30:11

楼主，检查下，会有合并不净的现象

搜狗截图20200629182848.jpg

newer · 发表于 2020-6-29 18:37:01

因为使用了SSGET 所以，建议加上判断是否在屏幕内的处理
(xd::doc:safezoom ss)

newer · 发表于 2020-6-29 18:46:18

修改下代码，楼主试试，直接求表里面合并的，不用每个在SSGET了

(defun c:xdtb_hatchunion ( / a b c e1 ents lst lst1 pts ss)
(defun _pross (ss / lst pts e1 lst1)
(setq ents (xdrx-pickset->ents ss))
(while (cdr ents)
(setq a (car ents)
b (cdr ents)
)
(setq ents (cdr ents))
(while (car b)
(setq c (car b))
(if (xdrx-get-union a c)
(progn (setq ents (cons a ents)
b (vl-remove c b)
ents (vl-remove c ents)
)
)
)
(setq b (cdr b))
)
)
)
(while (setq ss (xdrx-ssget
"\n选择要合并的填充图案<退出>:"
":L"
'((0 . "hatch"))
)
)
(_pross ss)
)
(princ)
)

newer · 发表于 2020-6-29 19:08:17

进而可以提取出来一个通用的批量合并的函数

(defun xd::get:union (ents / a b c)
(if (= (type ents) 'PICKSET)
(setq ents (xdrx-pickset->ents ents))
)
(while (cdr ents)
(setq a (car ents)
b (cdr ents)
)
(setq ents (cdr ents))
(while (car b)
(setq c (car b))
(if (xdrx-get-union a c)
(progn (setq ents (cons a ents)
b (vl-remove c b)
ents (vl-remove c ents)
)
)
)
(setq b (cdr b))
)
)
(if (= (type a) 'PICKSET)
(ssname a 0)
)
)

newer · 发表于 2020-6-29 19:30:54

合并后的填充可能是由多个单独的外部环组成，可以加一句
(xdrx-getpropertyvalue a "detach")
变成独立的单个的填充

搜狗截图20200629192305.jpg

函数可以变为
加个mode参数，为T，返回整体一个实体表，NIL分解为单独外部边界的填充实体表

(defun xd::get:union (ents mode / a b c)
(if (= (type ents) 'PICKSET)
(setq ents (xdrx-pickset->ents ents))
)
(while (cdr ents)
(setq a (car ents)
b (cdr ents)
)
(setq ents (cdr ents))
(while (car b)
(setq c (car b))
(if (xdrx-get-union a c)
(progn (setq ents (cons a ents)
b (vl-remove c b)
ents (vl-remove c ents)
)
)
)
(setq b (cdr b))
)
)
(if mode
(xdrx-pickset->ents a)
(xdrx-getpropertyvalue a "detach")
)
)

newer · 发表于 2020-6-29 20:06:26

本帖最后由 newer 于 2020-6-29 20:14 编辑

下面更通用，适合*polyline, region,hatch,mpolygon

(defun xd::get:union (ents mode / a b c ents1 x)
(if (= (type ents) 'PICKSET)
(setq ents (xdrx-pickset->ents ents))
)
(setq ents1 ents)
(while (cdr ents)
(setq a (car ents)
b (cdr ents)
)
(setq ents (cdr ents))
(while (car b)
(setq c (car b))
(if (xdrx-get-union a c)
(progn
(setq ents (cons a ents)
b (vl-remove c b)
ents (vl-remove c ents)
)
)
)
(setq b (cdr b))
)
)
(cond
((xdrx-object-iskindof a "region,hatch,mpolygon")
(if mode
(list a)
(xdrx-getpropertyvalue a "detach")
)
)
((xdrx-object-iskindof a "*polyline")
(vl-remove nil (mapcar
'(lambda (x)
(if (entget x)
x
)
)
ents1
)
)
)
)
)

(defun xd::get:union (ents mode / a b c ents1 x) 
  (if (= (type ents) 'PICKSET) 
    (setq ents (xdrx-pickset->ents ents)) 
  ) 
  (setq ents1 ents) 
  (while (cdr ents) 
    (setq a (car ents) 
          b (cdr ents) 
    ) 
    (setq ents (cdr ents)) 
    (while (car b) 
      (setq c (car b)) 
      (if (xdrx-get-union a c) 
        (progn 
          (setq ents (cons a ents) 
                b (vl-remove c b) 
                ents (vl-remove c ents) 
          ) 
        ) 
      ) 
      (setq b (cdr b)) 
    ) 
  ) 
  (cond 
    ((xdrx-object-iskindof a "region,hatch,mpolygon") 
      (if mode 
        (list a) 
        (xdrx-getpropertyvalue a "detach") 
      ) 
    ) 
    ((xdrx-object-iskindof a "*polyline") 
      (vl-remove nil (mapcar 
                       '(lambda (x) 
                          (if (entget x) 
                            x 
                          ) 
                        ) 
                       ents1 
                     ) 
      ) 
    ) 
  ) 
)

newer · 发表于 2020-6-29 22:51:13

本帖最后由 newer 于 2020-6-29 23:03 编辑

整合下函数：xd::get:union
http://bbs.xdcad.net/thread-726197-1-1.html
把代码里面的HATCH过滤，变成曲线，REGION,MPOLYGON，就都通用

(defun c:xdtb_hatchunion ( / a b c e1 ents lst lst1 pts ss)
(xdrx-begin)
(xdrx-initget "Y N")
(setq yeorno (xdrx-yesorno "\n是否拆离" 1))
(while (setq ss (xdrx-ssget
"\r选择要合并的填充图案<退出>:"
":L"
'((0 . "hatch"))
)
)
(if (= yeorno 1)
(xd::get:union ss nil)
(xd::getunion ss t)
)
(xdrx-prompt "\n>>成功合并了" (sslength ss) "个填充实体.")
)
(xdrx-end)
(princ)
)

kmliro_2017 · 发表于 2020-6-30 07:04:12

学习学习！！！！

dyjwyqz5221 · 发表于 2020-6-30 08:11:31

本帖最后由 dyjwyqz5221 于 2020-6-30 08:13 编辑

newer 发表于 2020-6-29 22:51
整合下函数：xd::get:union
http://bbs.xdcad.net/thread-726197-1-1.html
把代码里面的HATCH过滤，变成 ...

弄复杂了吧，要将hantch都union在一起，这样就可以实现的。
(progn
 (setq ss (xdrx-ssget "\n选择填充图案<退出>:" ":L" '((0 . "hatch"))))
 (setq lst (xdrx-pickset->ents ss)
 a (car lst)
 lst (cdr lst)
 )
 (mapcar
 '(lambda(x)
 (xdrx-get-union a x)
 )
 lst
 )
)
都union在一起，时间挺长的，所以想通过分组来进行。而且不连在一起。

dyjwyqz5221 · 发表于 2020-6-30 08:16:53

newer 发表于 2020-6-29 22:51
整合下函数：xd::get:union
http://bbs.xdcad.net/thread-726197-1-1.html
把代码里面的HATCH过滤，变成 ...

你这个函数可能有点问题，我弄了84个填充，拷贝了一次，边缘部分重叠在一起，在测试过程中，cad卡死不动了。

dyjwyqz5221 · 发表于 2020-6-30 09:38:55

newer 发表于 2020-6-29 22:51
整合下函数：xd::get:union
http://bbs.xdcad.net/thread-726197-1-1.html
把代码里面的HATCH过滤，变成 ...

相同多数量的hatch情况下，我做的这个与你设计的这个命令，效率相差很大。你可以测试下。

dyjwyqz5221 · 发表于 2020-6-30 09:40:06

Lisphk 发表于 2020-6-29 18:30
楼主，检查下，会有合并不净的现象

上传个压缩的T3cad图上来，我测试下。

dyjwyqz5221 · 发表于 2020-6-30 09:59:22

newer 发表于 2020-6-29 22:51
整合下函数：xd::get:union
http://bbs.xdcad.net/thread-726197-1-1.html
把代码里面的HATCH过滤，变成 ...

xdrx-get-union这个函数的用法应该是改变了吧，我用的是最新的api。

要想将所有的hatch都union在一起，只需要都和第一个进行union就可以了。

dyjwyqz5221 · 发表于 2020-6-30 10:48:44

newer 发表于 2020-6-29 22:51
整合下函数：xd::get:union
http://bbs.xdcad.net/thread-726197-1-1.html
把代码里面的HATCH过滤，变成 ...

问题的关键在于，如何找到相交的hatch、包含的hantch，这样才能有效的分组。按分组进行xdrx-get-union

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

[工具] 填充图案批量合并

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

点评

点评

点评