等答案无聊写一个图块替换

yjr111 · 发表于 2012-2-18 20:36:32

本帖最后由 yjr111 于 2012-2-18 22:59 编辑

图块替换原来就有，想更方便一点，自己乱写了一个，看看对大家有没有用

按4楼的提议，增加图块尺寸变化选框，更新一下

vormittag · 发表于 2012-6-15 16:29:57

图块替换需要那么长的代码么? 我这里有个简单点的，能保留原有块的大小、方向，只是属性块的属性没有考虑。

(defun rpblock(ename blockname / ell)
(setq ell (entget ename))
(setq ell (subst (cons 2 blockname) (assoc 2 ell) ell))
(entmod ell)
(entupd ename)
)
(defun c:kth( / ss i tename blockname ename)
(setq ss (ssget '((0 . "INSERT")))
i 0
);setq
(if ss
(progn
(princ "\n请选择块:")
(while (/= "INSERT" (cdr (assoc 0 (entget (setq tename (car (entsel)))))))
(princ "\n请选择块:")
)
(setq blockname (cdr (assoc 2 (entget tename))))
(repeat (sslength ss)
(setq ename (ssname ss i) i (+ 1 i))
(rpblock ename blockname)
)
)
)
(princ)
)

(defun rpblock(ename blockname / ell) 
   (setq ell (entget ename)) 
   (setq ell (subst (cons 2 blockname) (assoc 2 ell) ell)) 
   (entmod ell) 
   (entupd ename) 
) 
(defun c:kth( / ss i tename blockname ename) 
    (setq ss    (ssget '((0 . "INSERT"))) 
          i     0 
        );setq 
        (if ss 
                (progn 
                        (princ "\n请选择块:") 
                        (while (/= "INSERT" (cdr (assoc 0 (entget (setq tename (car (entsel))))))) 
                                   (princ "\n请选择块:") 
                        ) 
                        (setq blockname (cdr (assoc 2 (entget tename)))) 
                        (repeat (sslength ss) 
                                        (setq ename (ssname ss i) i (+ 1 i)) 
                                        (rpblock ename blockname) 
                        ) 
                ) 
        ) 
        (princ) 
)

yjr111 · 发表于 2012-2-21 17:57:43

看来这个需要的人还是蛮多的，现在把源码传上来吧

Gu_xl · 发表于 2012-6-15 23:52:52

yjr111 发表于 2012-6-15 17:23
用下面附件试试看有没有区别？

一般来说，一个程序的核心处理代码，都不会很长！但是为了能处理所有能遇到的各种情况，错误处理代码要比核心处理代码长很多，甚至数十倍都不止！程序设计的难点也在于此！

cxs259 · 发表于 2012-2-18 21:04:25

请问运行命令是什么？

669423907 · 发表于 2012-2-18 21:28:15

yjr111 大师总有好程序的

yjr111 · 发表于 2012-2-18 21:45:25

highflybird、ZZXXQQ、G版、飞版、C版、曹版等等才是大师，我仅仅是玩玩花拳绣腿而已，so，别叫我大师了

zsw23 · 发表于 2012-2-18 21:55:39

能不能控制大小一样呢？

teykmcqh · 发表于 2012-2-18 23:01:13

有源码学习一下就好了

zsw23 · 发表于 2012-2-18 23:59:59

本帖最后由 zsw23 于 2012-2-19 00:01 编辑

看你演示并不是完全等同替换(大小和内容)你看看这个源码

zsw23 · 发表于 2012-2-19 11:47:43

整合进去那最好了，有没有无对话框的版本？

vlisp2012 · 发表于 2012-2-19 13:02:32

顶一个，希望楼主早日公布源码，学习一下。

ps122hb · 发表于 2012-2-19 13:38:20

vlisp2012 发表于 2012-2-19 13:02
顶一个，希望楼主早日公布源码，学习一下。

等源码学习一下

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

等答案无聊写一个图块替换

本帖子中包含更多资源

评分

本帖子中包含更多资源

点评

点评

本帖子中包含更多资源

点评