增强Ncopy命令，从XREF,INSERT里面多选“抠出”实体

XDSoft · 发表于 2018-7-21 15:55:43

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

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

×

(defun XD::Block:Select (ent pts sel filter / box
cname e elist lst m_b2w m_w2b n
ob pts2 x
)
(if (and (setq cname (xdrx_object_classname ent))
(eq (car cname) "INSERT")
)
(progn
(setq m_b2w (xdrx_matrix_block2wcs ent)
m_w2b (xdrx_matrix_inverse m_b2w)
pts (mapcar '(lambda (x) (trans x 1 0)) pts)
pts2 (mapcar
'(lambda (x) (trans (xdrx_point_transform x m_w2b) 0 1))
pts
)
lxd pts2
)
(setq blk (cadr (xdrx_getpropertyvalue ent "blocktablerecord"))
elist (xdrx_block_getentities blk)
)
(foreach n elist
(if
(or (not filter)
(and filter
(vl-every '(lambda (x) (member x (entget e))) filter)
)
) ; 过滤表
(progn
(setq box (xdrx_entity_box n))
(cond
((= "C" (strcase sel)) ; _ 交叉窗交
(if (vl-some '(lambda (x) (xdrx_point_isinside x pts2))
box
) ; _ 文字四角点中任一点落在多边形内即被选中
(progn (setq lst (cons n lst)))
)
)
(t
(if (vl-every
'(lambda (x) (apply 'xdrx_isinside (cons x pts2)))
box
) ; _ 文字四角点全部落在多边形内即被选中
(setq lst (cons n lst))
)
)
)
)
)
)
)
)
lst
)
(defun c:XDTB_CopyN
(/ e elist m_b2w n p1 p2 pt4 pts4 sel ss e1 box pj mat)
(xdrx_begin)
(if
(and
(setq e (car (xdrx_entsel
"\n拾取要拷贝的INSERT或XREF实体<退出>: "
'((0 . "insert"))
)
)
)
(setq m_b2w (xdrx_matrix_block2wcs e))
(progn
(xdrx_initget "C W S")
(if (not (setq sel (getkword
"\n选择方式[交叉(C)/窗口(W)/拾取多边形(S)]<C>"
)
)
)
(setq sel "C")
)
t
)
(cond ((= sel "S")
(if (and (setq e1 (car (xdrx_entsel
"\n拾取曲线作为边界<退出>:"
'((0 . "*line,arc,circle,ellipse"))
)
)
)
(setq pts4 (xdrx_getsamplept e1))
)
(progn (if (and (xdrx_initget "Y N")
(= (xdrx_yesorno "\n交叉CP?" 1) 1)
)
(setq sel "C")
(setq sel "W")
)
(setq pts4 (xd::pnts:wcs2ucs pts4))
)
(progn (princ "\n没有选择到曲线.") nil)
)
)
(t
(setq p1 (getpoint "\n拷贝范围窗口第一点<退出>:"))
(setq p2 (getcorner p1 "\n窗口第二点<退出>:"))
(setq pts4
(list p1
(mapcar '+ p1 (list (car (mapcar '- p2 p1)) 0 0))
p2
(mapcar '+ p1 (list 0 (cadr (mapcar '- p2 p1)) 0))
)
)
)
)
(setq elist (XD::Block:Select e pts4 sel nil))
)
(progn (setq ss (ssadd))
(foreach n elist
(xdrx_entity_transformedcopy n m_b2w)
(ssadd (entlast) ss)
)
(xdrx_pickset_redraw ss)
(xd::drag:simpleMove ss "\n拾取插入点<退出>:" 5 t)
)
)
(xdrx_end)
(princ)
)

(defun XD::Block:Select        (ent   pts   sel   filter      /     box 
                         cname e     elist lst         m_b2w m_w2b n 
                         ob    pts2  x 
                        ) 
  (if (and (setq cname (xdrx_object_classname ent)) 
           (eq (car cname) "INSERT") 
      ) 
    (progn 
      (setq m_b2w (xdrx_matrix_block2wcs ent) 
            m_w2b (xdrx_matrix_inverse m_b2w) 
            pts          (mapcar '(lambda (x) (trans x 1 0)) pts) 
            pts2  (mapcar 
                    '(lambda (x) (trans (xdrx_point_transform x m_w2b) 0 1)) 
                    pts 
                  ) 
            lxd          pts2 
      ) 
      (setq blk          (cadr (xdrx_getpropertyvalue ent "blocktablerecord")) 
            elist (xdrx_block_getentities blk) 
      ) 
      (foreach n elist 
        (if 
          (or (not filter) 
              (and filter 
                   (vl-every '(lambda (x) (member x (entget e))) filter) 
              ) 
          )                                ; 过滤表 
           (progn 
             (setq box (xdrx_entity_box n)) 
             (cond 
               ((= "C" (strcase sel))        ; _ 交叉窗交 
                (if (vl-some '(lambda (x) (xdrx_point_isinside x pts2)) 
                             box 
                    )                        ; _ 文字四角点中任一点落在多边形内即被选中 
                  (progn (setq lst (cons n lst))) 
                ) 
               ) 
               (t 
                (if (vl-every 
                      '(lambda (x) (apply 'xdrx_isinside (cons x pts2))) 
                      box 
                    )                        ; _ 文字四角点全部落在多边形内即被选中 
                  (setq lst (cons n lst)) 
                ) 
               ) 
             ) 
           ) 
        ) 
      ) 
    ) 
  ) 
  lst 
) 
(defun c:XDTB_CopyN 
       (/ e elist m_b2w n p1 p2 pt4 pts4 sel ss e1 box pj mat) 
  (xdrx_begin) 
  (if 
    (and 
      (setq e (car (xdrx_entsel 
                     "\n拾取要拷贝的INSERT或XREF实体<退出>: " 
                     '((0 . "insert")) 
                   ) 
              ) 
      ) 
      (setq m_b2w (xdrx_matrix_block2wcs e)) 
      (progn 
        (xdrx_initget "C W S") 
        (if (not (setq sel (getkword 
                             "\n选择方式[交叉(C)/窗口(W)/拾取多边形(S)]<C>" 
                           ) 
                 ) 
            ) 
          (setq sel "C") 
        ) 
        t 
      ) 
      (cond ((= sel "S") 
             (if (and (setq e1 (car (xdrx_entsel 
                                      "\n拾取曲线作为边界<退出>:" 
                                      '((0 . "*line,arc,circle,ellipse")) 
                                    ) 
                               ) 
                      ) 
                      (setq pts4 (xdrx_getsamplept e1)) 
                 ) 
               (progn (if (and (xdrx_initget "Y N") 
                               (= (xdrx_yesorno "\n交叉CP?" 1) 1) 
                          ) 
                        (setq sel "C") 
                        (setq sel "W") 
                      ) 
                 (setq pts4 (xd::pnts:wcs2ucs pts4)) 
               ) 
               (progn (princ "\n没有选择到曲线.") nil) 
             ) 
            ) 
            (t 
             (setq p1 (getpoint "\n拷贝范围窗口第一点<退出>:")) 
             (setq p2 (getcorner p1 "\n窗口第二点<退出>:")) 
             (setq pts4 
                    (list p1 
                          (mapcar '+ p1 (list (car (mapcar '- p2 p1)) 0 0)) 
                          p2 
                          (mapcar '+ p1 (list 0 (cadr (mapcar '- p2 p1)) 0)) 
                    ) 
             ) 
            ) 
      ) 
      (setq elist (XD::Block:Select e pts4 sel nil)) 
    ) 
     (progn (setq ss (ssadd)) 
            (foreach n elist 
              (xdrx_entity_transformedcopy n m_b2w) 
              (ssadd (entlast) ss) 
            ) 
            (xdrx_pickset_redraw ss) 
            (xd::drag:simpleMove ss "\n拾取插入点<退出>:" 5 t) 
     ) 
  ) 
  (xdrx_end) 
  (princ) 
)

gdys · 发表于 2021-1-4 12:51:13

速度很慢,效率不高，能加速吗？

warrior2020 · 发表于 2021-1-5 08:02:28

不错，很使用啊！

Herealone · 发表于 2021-3-22 08:53:19

谢谢分享~~~~~~

松树石头哥 · 发表于 2021-3-23 16:58:56

感谢楼主分享！！

wzjck01 · 发表于 2021-3-30 16:57:47

不错，怎么用🧡🧡🧡🧡🧡

wzjck01 · 发表于 2021-3-30 17:09:36

外部参照无法使用，普通块可以用

dyjwyqz5221 · 发表于 2022-6-13 17:32:03

调整下程序就可以适用于嵌套块了。

中华飘萍 · 发表于 2022-6-14 13:02:59

谢谢分享

shoran2 · 发表于 2023-4-24 11:11:17

感谢楼主分享！

ilovem · 发表于 2023-4-25 09:41:10

谢谢楼主的分享。

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

[图块] 增强Ncopy命令，从XREF,INSERT里面多选“抠出”实体

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

浏览过的版块