全图纸中同组相同图元识别组块

kisssprite · 发表于 2018-1-13 14:12:11

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

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

x

本帖最后由 newer 于 2018-1-13 16:07 编辑

图纸中存在多组相同的图元,每组相同的图元识别后组块,是否有这类的插件?

同组图元组块

上一篇：根据拾取的文字重新命名图块
下一篇：（已解决）文字变成线条究竟是什么原理呢

newer · 发表于 2018-1-13 16:13:58

上传个DWG来论坛。

marting · 发表于 2018-1-13 19:12:56

你说的是什么意思呢？
1、是相同的都已经编到GROUP里面了，图中其他地方都拷贝的是这个组，
2、还是这些实体都是散的，只是你认为的他们都应该是个“组团”，然后去找图中分散的这些“组团” ？

如果是第一个，论坛有组变图块的插件。

kisssprite · 发表于 2018-1-13 20:40:52

现在上传试验图纸,真心感谢各位的帮助!

VBAVBAA · 发表于 2018-1-14 00:11:29

来看看问题

lrd1861 · 发表于 2018-1-14 09:05:53

楼主想恢复炸开的块？已有此类插件

kisssprite · 发表于 2018-1-14 16:55:09

识别写块后的大致效果如附件:

newer · 发表于 2018-1-14 17:22:59

本帖最后由 newer 于 2018-1-14 17:45 编辑

kisssprite 发表于 2018-1-14 16:55

试试，加载XDRX API，不同于以往的按照实体生成顺序去找，那样有可能遗漏。这个是靠位置查找的。

组团转块.gif

(defun c:tt ()
(defun _getfilter (ss dxfcodelst)
(if (= (type ss) 'PICKSET)
(setq ss (xdrx_pickset->ents ss))
)
(setq lst nil)
(foreach n ss
(setq ed (entget n))
(mapcar
'(lambda (x)
(if (and (setq item (assoc x ed)) (not (member item lst)))
(setq lst (cons item lst))
)
)
dxfcodelst
)
)
(if lst
(append (cons '(-4 . "<or") lst) (list '(-4 . "or>")))
)
)
(defun _relative- (box pt)
(if (/= (type pt) 'LIST)
(setq pt (car box))
)
(mapcar '(lambda (x) (mapcar '- x pt)) box)
)
(defun _relative+ (box base)
(mapcar '(lambda (x) (mapcar '+ x base)) box)
)
(defun _getents (ss / lst)
(setq lst nil)
(foreach n (xdrx_pickset->ents ss)
(setq temp (xdrx_entity_box n)
temp (_relative- temp t)
)
(if (vl-some '(lambda (y) (equal y temp 1e-3)) boxs)
(setq lst (cons n lst))
)
)
lst
)
(defun _process (e)
(setq box1 (xdrx_entity_box e)
box2 (_relative- box1 t)
box3 (xdrx_points_offset
pickbox
(xd::pnts:close (_relative+ box (car box1)))
)
)
(if (and (setq ss2 (ssget "wp" box3 filter))
(>= (sslength ss2) numsent)
(setq ss2 (_getents ss2))
(setq box2 (xdrx_entity_box ss2))
(equal (_relative- box2 t) box_ss 1e-3)
)
(progn(setq blks (cons (xdrx_insert_make
blkname
(trans (xd::geom:get9pt box2 5) 1 0)
)
blks
)
)
(xdrx_entity_delete ss2) ; (xdrx_prompt "\nfound..")
)
)
)
(if (and (xdrx_initssget "选择一个组团<退出>:")
(setq ss (xdrx_ssget))
)
(progn
(xdrx_begin)
(setq numsEnt (sslength ss)
boxs (mapcar '(lambda (x) (_relative- (xdrx_entity_box x) t))
(xdrx_pickset->ents ss)
)
e (ssname ss 0)
filter (_getfilter ss '(0))
filter1 (list (assoc 0 (entget e)))
box (xdrx_entity_box ss)
pickbox (/ (min (distance (car box) (cadr box))
(distance (car box) (last box))
)
20.0
)
pickbox (/ (xd::doc:getpickboxheight) 2.0)
box1 (xdrx_entity_box e)
box_ss (_relative- box t)
box (_relative- box (car box1))
blkname (strcat "xd_blockgroup_" (xdrx_string_rand 6))
cen (xd::geom:get9pt ss 5)
blks nil
)
(xdrx_block_make blkname ss (trans cen 1 0) t)
(setq blks (cons (entlast) blks))
(if (setq ss1 (ssget "x" filter1))
(progn (setq ss1 (xdrx_pickset_subtract ss1 ss))
(xd::doc:safezoom ss1)
(xdrx_setsstodb ss1 0)
(while (setq e1 (xdrx_getentdata 0)) (_process e1))
(foreach n blks
(setq box (xdrx_entity_box n))
(setq box2 (xd::pnts:close (xd::pnts:ucs2wcs box)))
(xdrx_grdraw 2 1 box2)
)
(xdrx_prompt "\n" (length blks) " 个组团生成了同一个块.")
)
)
(xdrx_end)
(xd::pickset:gripdisplay blks)
)
)
(princ)
)

(defun c:tt () 
  (defun _getfilter (ss dxfcodelst) 
    (if        (= (type ss) 'PICKSET) 
      (setq ss (xdrx_pickset->ents ss)) 
    ) 
    (setq lst nil) 
    (foreach n ss 
      (setq ed (entget n)) 
      (mapcar 
        '(lambda (x) 
           (if (and (setq item (assoc x ed)) (not (member item lst))) 
             (setq lst (cons item lst)) 
           ) 
         ) 
        dxfcodelst 
      ) 
    ) 
    (if        lst 
      (append (cons '(-4 . "<or") lst) (list '(-4 . "or>"))) 
    ) 
  ) 
  (defun _relative- (box pt) 
    (if        (/= (type pt) 'LIST) 
      (setq pt (car box)) 
    ) 
    (mapcar '(lambda (x) (mapcar '- x pt)) box) 
  ) 
  (defun _relative+ (box base) 
    (mapcar '(lambda (x) (mapcar '+ x base)) box) 
  ) 
  (defun _getents (ss / lst) 
    (setq lst nil) 
    (foreach n (xdrx_pickset->ents ss) 
      (setq temp (xdrx_entity_box n) 
            temp (_relative- temp t) 
      ) 
      (if (vl-some '(lambda (y) (equal y temp 1e-3)) boxs) 
        (setq lst (cons n lst)) 
      ) 
    ) 
    lst 
  ) 
  (defun _process (e) 
    (setq box1 (xdrx_entity_box e) 
          box2 (_relative- box1 t) 
          box3 (xdrx_points_offset 
                 pickbox 
                 (xd::pnts:close (_relative+ box (car box1))) 
               ) 
    ) 
    (if        (and (setq ss2 (ssget "wp" box3 filter)) 
             (>= (sslength ss2) numsent) 
             (setq ss2 (_getents ss2)) 
             (setq box2 (xdrx_entity_box ss2)) 
             (equal (_relative- box2 t) box_ss 1e-3) 
        ) 
      (progn(setq blks        (cons (xdrx_insert_make 
                                blkname 
                                (trans (xd::geom:get9pt box2 5) 1 0) 
                              ) 
                              blks 
                        ) 
             ) 
             (xdrx_entity_delete ss2)        ;  (xdrx_prompt "\nfound..") 
      ) 
    ) 
  ) 
  (if (and (xdrx_initssget "选择一个组团<退出>:") 
           (setq ss (xdrx_ssget)) 
      ) 
    (progn 
      (xdrx_begin) 
      (setq numsEnt (sslength ss) 
            boxs    (mapcar '(lambda (x) (_relative- (xdrx_entity_box x) t)) 
                            (xdrx_pickset->ents ss) 
                    ) 
            e            (ssname ss 0) 
            filter  (_getfilter ss '(0)) 
            filter1 (list (assoc 0 (entget e))) 
            box            (xdrx_entity_box ss) 
            pickbox (/ (min (distance (car box) (cadr box)) 
                            (distance (car box) (last box)) 
                       ) 
                       20.0 
                    ) 
            pickbox (/ (xd::doc:getpickboxheight) 2.0) 
            box1    (xdrx_entity_box e) 
            box_ss  (_relative- box t) 
            box            (_relative- box (car box1)) 
            blkname (strcat "xd_blockgroup_" (xdrx_string_rand 6)) 
            cen            (xd::geom:get9pt ss 5) 
            blks    nil 
      ) 
      (xdrx_block_make blkname ss (trans cen 1 0) t) 
      (setq blks (cons (entlast) blks)) 
      (if (setq ss1 (ssget "x" filter1)) 
        (progn (setq ss1 (xdrx_pickset_subtract ss1 ss)) 
               (xd::doc:safezoom ss1) 
               (xdrx_setsstodb ss1 0) 
               (while (setq e1 (xdrx_getentdata 0)) (_process e1)) 
               (foreach        n blks 
                 (setq box (xdrx_entity_box n)) 
                 (setq box2 (xd::pnts:close (xd::pnts:ucs2wcs box))) 
                 (xdrx_grdraw 2 1 box2) 
               ) 
               (xdrx_prompt "\n" (length blks) " 个组团生成了同一个块.") 
        ) 
      ) 
      (xdrx_end) 
      (xd::pickset:gripdisplay blks) 
    ) 
  ) 
  (princ) 
)

kisssprite · 发表于 2018-1-14 17:54:36

newer 发表于 2018-1-14 17:22

谢谢,这个给我很大启发,非常有用.

113486295 · 发表于 2018-3-9 20:44:18

大神就是大神。

sicky111 · 发表于 2018-3-11 03:10:22

学习一下。

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

[求助] 全图纸中同组相同图元识别组块

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