明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4125|回复: 18

图块替换

  [复制链接]
发表于 2009-3-9 23:37 | 显示全部楼层 |阅读模式

图块替换:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2018-2-11 23:45 来自手机 | 显示全部楼层
院长由于发色:情小广告进小黑屋了  代码看不到  给一个我的代码  适用无属性块  (entmod  (list (list -1 原块ent ) (list 2 替换块名)))
发表于 2018-2-11 10:28 | 显示全部楼层

兄台这程序为什么默认替换后的块的比例大小为50?程序中也没有参数指定为50,是否有系统变量?
发表于 2018-2-12 00:15 来自手机 | 显示全部楼层
沙发的代码  如果要保留原块  用vla-copy以后再用上面的代码
发表于 2009-3-10 00:58 | 显示全部楼层
本帖最后由 作者 于 2009-3-10 1:01:08 编辑

图块替换
  1. ;xshrimp 2009.3.9
  2. (defun c:rp ( / ent_lst ss x)
  3. (while
  4.   (progn
  5.     (initget 2 "R")
  6.     (= 'STR (type (setq ss (entsel (if del? "\n选择源块:[删除被替换块,设置(R)]:""\n选择源块:[不删除被替换块,设置(R)]:" )))))
  7.   )   
  8.   (setq del? (not del?))
  9. )
  10. (if  ss
  11.   (vl-remove nil
  12.     (mapcar '(lambda (x)  
  13.       (if (= (type  (cadr x)) 'ENAME)
  14. (progn
  15.    (setq ent_lst (entget (cadr x)))
  16.    (setq ent_lst (subst (cons 2 (cdr (assoc 2 (entget (car ss))))) (assoc 2 ent_lst) ent_lst))        
  17.    (if del? (entmod ent_lst)   (entmake ent_lst))
  18. )
  19.       )      
  20.     )      
  21.      (ssnamex (ssget '((0 . "INSERT"))))
  22.     )
  23.   ))
  24. (prin1)
  25. )
发表于 2009-3-20 10:42 | 显示全部楼层

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

发表于 2012-8-27 14:02 | 显示全部楼层
下载啦!谢谢楼主分享了这么好的一个东东!
 楼主| 发表于 2012-8-27 14:07 | 显示全部楼层
lty 发表于 2012-8-27 14:02
下载啦!谢谢楼主分享了这么好的一个东东!

这么老的帖子都能翻出来?!
发表于 2012-8-27 14:10 | 显示全部楼层
哎呀,怎么加载不了,还要下载一个工具箱吗?
发表于 2012-8-27 14:10 | 显示全部楼层
xyp1964 发表于 2012-8-27 14:07
这么老的帖子都能翻出来?!

这么老的帖子都能翻出来,这么快就能回复!
发表于 2012-8-27 15:12 | 显示全部楼层
呵呵,因为需要吗!
发表于 2012-9-13 23:50 | 显示全部楼层
铝板路过,顺便顶一下。
发表于 2013-11-21 17:04 | 显示全部楼层
多多益善啊,感谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 09:07 , Processed in 0.178459 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表