图块替换

st788796 · 发表于 2013-9-27 15:50:29

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

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

×

快速将图中一个图块(Insert)用另一个图块(Insert)替换

(defun c:TT (/ e1 bn1 e2 bn2 ss e el e1)
(if (and
(setq e1 (car (xdrx_entsel "\nPick Source Insert: ")))
(setq bn1 (xdrx_getentdxf 2))
(setq e2 (car (xdrx_entsel "\nPick Target Insert: ")))
(setq bn2 (xdrx_getentdxf 2))
(setq ss (ssget "x" (list (cons 2 bn2))))
)
(progn
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq el (vl-remove-if (function (lambda (x)
(member (car x) '(-1 5 330 67 66))
)
) (entget e)
)
el (subst
(cons 2 bn1)
(assoc 2 el)
el
)
)
(setq e1 (entmakex el))
(xdrx_object_swapid e1 e)
(entdel e1)
)
)
)
(princ)
)

(defun c:TT (/ e1 bn1 e2 bn2 ss e el e1) 
  (if (and 
        (setq e1 (car (xdrx_entsel "\nPick Source Insert: "))) 
        (setq bn1 (xdrx_getentdxf 2)) 
        (setq e2 (car (xdrx_entsel "\nPick Target Insert: "))) 
        (setq bn2 (xdrx_getentdxf 2)) 
        (setq ss (ssget "x" (list (cons 2 bn2)))) 
      ) 
    (progn 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (setq el (vl-remove-if (function (lambda (x) 
                                           (member (car x) '(-1 5 330 67 66)) 
                                         ) 
                               ) (entget e) 
                 ) 
              el (subst 
                   (cons 2 bn1) 
                   (assoc 2 el) 
                   el 
                 ) 
        ) 
        (setq e1 (entmakex el)) 
        (xdrx_object_swapid e1 e) 
        (entdel e1) 
      ) 
    ) 
  ) 
  (princ) 
)

sinommw · 发表于 2014-10-13 11:25:27

刷块确实很方便！

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

[原创] 图块替换

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