2013-09-27 QQ群：晓东家园-CAD开发(240377723) 聊天记录：签到

CCarch · 发表于 2013-9-27 08:39:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

长风（龙少）(8240891)于2013-09-27 08-39-50：
签到

1993063 · 发表于 2013-9-27 09:04:57

Pause'Entlast'Entdel(223937995)于2013-09-27 09-04-57：
签到

CCarch · 发表于 2013-9-27 09:10:16

---]聆听□?(374082318)于2013-09-27 09-10-16：
签到

CCarch · 发表于 2013-9-27 09:25:48

恒升(2330897669)于2013-09-27 09-25-48：
谁有大门花纹cad图纸

CCarch · 发表于 2013-9-27 10:10:24

豆爸(173154718)于2013-09-27 10-10-24：
签到

CCarch · 发表于 2013-9-27 10:10:57

豆爸(173154718)于2013-09-27 10-10-57：
签到

tangjunasd58 · 发表于 2013-9-27 10:19:20

梦宇ぁ恋(281383277)于2013-09-27 10-19-20：
签到

CCarch · 发表于 2013-9-27 11:45:16

星空天宇(1401527242)于2013-09-27 11-45-16：
签到

CCarch · 发表于 2013-9-27 11:49:00

Happy(410786171)于2013-09-27 11-49-00：
;;===批量替换同名块
(defun c:rb ( / bn bo e0 e1 n ss)
  (prompt "\n选择一个需替换的图块: ")
  (setq bo (ssget ":s"  '((0 . "insert"))))
  (prompt "\n选择一个用来替换的新图块: ")
  (setq bn (ssget ":s"  '((0 . "insert"))))
  (if (and (/= bo "")(/= bn ""))
(progn
   (setq bo (cdr (assoc 2 (entget (ssname bo 0)))) ;获得需替换的块名
         bn (cdr (assoc 2 (entget (ssname bn 0))))
         ss (ssget "X" '((0 . "insert")(cons 2 bo)))) ;意在获得图中所有同名块
   (repeat (setq n (sslength ss))
(setq e0 (ssname ss (setq n (1- n)))
      e1 (entget e0)
      e1 (subst (cons 2 bn) (assoc 2 e1) e1)
)
(entmod e1)(entupd e0)
   )
))
  (princ)
)

请帮看一下，是哪里有问题

eachy · 发表于 2013-9-27 11:57:30

eachy(124471899)于2013-09-27 11-57-30：
用entmake

eachy · 发表于 2013-9-27 11:59:07

eachy(124471899)于2013-09-27 11-59-07：
(entmake e1) (entdel e0)

CCarch · 发表于 2013-9-27 12:06:21

Happy(410786171)于2013-09-27 12-06-21：
嗯，试试看

CCarch · 发表于 2013-9-27 12:09:05

Happy(410786171)于2013-09-27 12-09-05：
还是不行

eachy · 发表于 2013-9-27 12:52:21

eachy(124471899)于2013-09-27 12-52-21：
怎么不行？

CCarch · 发表于 2013-9-27 13:00:24

Happy(410786171)于2013-09-27 13-00-24：
没有结果

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