[求助]求块替换块的Lisp

fengsea

不知道能否框选替换呢？

ZZXXQQ

先选何种块？

hustluo93

比较感兴趣

jxphklibin

程序很简洁

wuxuloveguo

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

hdlyt11

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

longer1000

真是好用啊，收下

shine.ks

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

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

;;;;;图块替换程序
;;;程序源自:　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

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

birdhot

怎么看不到啊