图块替换

xyp1964 · 发表于 2009-3-9 23:37:00

图块替换：

masterlong · 发表于 2018-2-11 23:45:11

院长由于发色:情小广告进小黑屋了代码看不到给一个我的代码适用无属性块 (entmod (list (list -1 原块ent ) (list 2 替换块名)))

GamIng · 发表于 2018-2-11 10:28:35

xshrimp 发表于 2009-3-10 00:58
图块替换

兄台这程序为什么默认替换后的块的比例大小为50？程序中也没有参数指定为50，是否有系统变量？

masterlong · 发表于 2018-2-12 00:15:31

沙发的代码如果要保留原块用vla-copy以后再用上面的代码

xshrimp · 发表于 2009-3-10 00:58:00

本帖最后由作者于 2009-3-10 1:01:08 编辑

图块替换

;xshrimp 2009.3.9
(defun c:rp ( / ent_lst ss x)
(while
(progn
(initget 2 "R")
(= 'STR (type (setq ss (entsel (if del? "\n选择源块:[删除被替换块,设置(R)]:""\n选择源块:[不删除被替换块,设置(R)]:" )))))
)
(setq del? (not del?))
)
(if ss
(vl-remove nil
(mapcar '(lambda (x)
(if (= (type (cadr x)) 'ENAME)
(progn
(setq ent_lst (entget (cadr x)))
(setq ent_lst (subst (cons 2 (cdr (assoc 2 (entget (car ss))))) (assoc 2 ent_lst) ent_lst))
(if del? (entmod ent_lst) (entmake ent_lst))
)
)
)
(ssnamex (ssget '((0 . "INSERT"))))
)
))
(prin1)
)

fueya · 发表于 2009-3-20 10:42:00

真是捡到好东西了！！！谢谢~~！@！

lty · 发表于 2012-8-27 14:02:41

下载啦！谢谢楼主分享了这么好的一个东东！

xyp1964 · 发表于 2012-8-27 14:07:28

lty 发表于 2012-8-27 14:02
下载啦！谢谢楼主分享了这么好的一个东东！

这么老的帖子都能翻出来？！

lty · 发表于 2012-8-27 14:10:30

哎呀，怎么加载不了，还要下载一个工具箱吗？

xiaxiang · 发表于 2012-8-27 14:10:58

xyp1964 发表于 2012-8-27 14:07
这么老的帖子都能翻出来？！

这么老的帖子都能翻出来,这么快就能回复！

lty · 发表于 2012-8-27 15:12:40

呵呵，因为需要吗！

haoryh · 发表于 2012-9-13 23:50:23

铝板路过，顺便顶一下。

石井鱼 · 发表于 2013-11-21 17:04:27

多多益善啊，感谢

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