如何两个块互相替换

lingduwx

start4444 发表于 2020-5-22 14:13
(defun c:tt5 ()
(setq en1 (car (entsel "\n选择块1:")) p1 (cdr (assoc 10 (entget en1))))
(setq e ...

可以分为选择的块单独执行和批量执行就更好了

start4444

lingduwx 发表于 2020-5-25 11:53
可以分为选择的块单独执行和批量执行就更好了

这是很简单的事情了，把选择第二个块改用ssget函数再做批量处理就ok了

lingduwx

start4444 发表于 2020-5-25 11:57
这是很简单的事情了，把选择第二个块改用ssget函数再做批量处理就ok了

大侠你好，可否麻烦你修改一个完整的呢，就是可以单独点选替换，也可以框选一个区域内替换选定的类型块，或者也可以替换整个图形同样类型的块，谢谢你了，偶在明经白混了

start4444

lingduwx 发表于 2020-5-26 11:19
大侠你好，可否麻烦你修改一个完整的呢，就是可以单独点选替换，也可以框选一个区域内替换选定的类型块， ...

你这钻石会员真是的，手动框选我给你写出来了，全图选也是很简单的事，你自己去搞了
(defun c:tt5 (/ en en1 i p1 p2 ss)
(setq en1 (car (entsel "\n选择新快:")) p1 (cdr (assoc 10 (entget en1))))
(prompt "\n选择要替换的旧块：")
(setq ss (ssget '((0 . "INSERT"))))
(setq i -1)
        (while (setq en (ssname ss (setq i (1+ i))))
        (setq p2 (cdr (assoc 10 (entget en))))       
        (command "copy" en1 "" "non" p1  "non" p2)       
        );while
(command "ERASE" ss "")       
(princ)
)

lingduwx

start4444 发表于 2020-5-26 11:59
你这钻石会员真是的，手动框选我给你写出来了，全图选也是很简单的事，你自己去搞了
(defun c:tt5 (/ en ...

谢谢大神了

飒路紫

是这意思不？

magicheno

飒路紫 发表于 2020-5-28 10:24
是这意思不？

大侠，你这个刷块功能也很好的，可以不改变目标对象的角度，可以分享下么