[求助]求块替换块的Lisp

fengsea · 发表于 2008-12-3 10:51:00

不知道能否框选替换呢？

ZZXXQQ · 发表于 2008-12-3 20:32:00

先选何种块？

hustluo93 · 发表于 2009-1-8 16:59:00

比较感兴趣

jxphklibin · 发表于 2009-1-16 08:55:00

程序很简洁

wuxuloveguo · 发表于 2009-1-19 16:25:00

支持！好东东！确实“一般ljttjl不提供源码。”

hdlyt11 · 发表于 2009-2-8 12:41:00

http://xzd.2000y.net/mb/2/ReadNews.asp?NewsID=579605这里有

longer1000 · 发表于 2009-3-1 00:58:00

真是好用啊，收下

shine.ks · 发表于 2009-3-13 09:53:00

晕哦, 写完了才发现已经有人写了.

不过还是分享给大家参考, 多提宝贵意见!!

;;;;;图块替换程序
;;;程序源自:　AshineZHANG
(defun c:CHB ()
   (graphscr)
   (prompt "\n请选择要替换的图块: ")
   (setq
     e1 (ssget)
   (prompt "\n所有选择的图块将被靶块替换! ")
     e2 (entsel "\n选择靶块：")
   )
   (if (and e1 e2)
     (progn
       (setq e2 (assoc 2 (entget (car e2))))
       (setq i 0)
       (repeat (sslength e1)
         (setq e4 (entget (ssname e1 i)))
         (setq e5 (assoc 2 e4))
         (setq e4 (subst e2 e5 e4))
         (entmod e4)
         (setq i (1+ i))
       );repeat
       (princ "\n所有选择的图块都已变更到靶块: ")
       (princ (cdr e2))
     );progn
   );if
   (princ)
)

fueya · 发表于 2009-3-20 11:52:00

找了好久了！！！谢谢！！！

birdhot · 发表于 2009-3-20 15:15:00

怎么看不到啊

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

[求助]求块替换块的Lisp

本帖子中包含更多资源