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

图块替换

<p>图块替换：</p><p></p><p></p>

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?))
)
(ifss
(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

<p>真是捡到好东西了！！！谢谢~~！@！</p>

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

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

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

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

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

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

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

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

xyp1964 发表于 2012-8-27 14:07 static/image/common/back.gif
这么老的帖子都能翻出来？！

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

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

呵呵，因为需要吗！

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

铝板路过，顺便顶一下。

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

多多益善啊，感谢
页: [1] 2
查看完整版本: 图块替换