start4444 发表于 2020-5-22 14:13
(defun c:tt5 ()
(setq en1 (car (entsel "\n选择块1:")) p1 (cdr (assoc 10 (entget en1))))
(setq e ...
可以分为选择的块单独执行和批量执行就更好了
lingduwx 发表于 2020-5-25 11:53
可以分为选择的块单独执行和批量执行就更好了
这是很简单的事情了，把选择第二个块改用ssget函数再做批量处理就ok了
start4444 发表于 2020-5-25 11:57
这是很简单的事情了，把选择第二个块改用ssget函数再做批量处理就ok了
大侠你好，可否麻烦你修改一个完整的呢，就是可以单独点选替换，也可以框选一个区域内替换选定的类型块，或者也可以替换整个图形同样类型的块，谢谢你了，偶在明经白混了:(
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)
)
start4444 发表于 2020-5-26 11:59
你这钻石会员真是的，手动框选我给你写出来了，全图选也是很简单的事，你自己去搞了
(defun c:tt5 (/ en ...
谢谢大神了
是这意思不？
飒路紫 发表于 2020-5-28 10:24
是这意思不？
大侠，你这个刷块功能也很好的，可以不改变目标对象的角度，可以分享下么