如何实现块对块替换？

75215195 · 发表于 2017-7-17 14:53:07

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

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

×

选取要替换的块，替换成第二次选择的源块。求源码。

marting · 发表于 2017-7-17 15:45:17

(command ".insert" "ab=cd")

ab -- 原块名
cd -- 替换后的块名

75215195 · 发表于 2017-7-18 07:47:15

marting 发表于 2017-7-17 15:45

我是初学的，我这样写对吗？
(defun c:fdfd (/ ss ss1 ent ent1 ad bd)
  (setvar "cmdecho" 0)
  (setq ss (car (entsel "\n选择更换块：")))
  (setq ent (entget ss))
  (setq ad (cdr (assoc 2 ent)))
  (setq ss1 (car (entsel "\n选择源块：")))
  (setq ent1 (entget ss1))
  (setq bd (cdr (assoc 2 ent)))
  (command "_insert" "ad=bd")
  (princ))

写出来运行不对。

jxwfz19740724 · 发表于 2017-7-18 08:01:42

我看看先。

yzhyxh · 发表于 2017-7-18 08:11:23

向嘟嘟 · 发表于 2017-7-18 11:07:56

这样试试
(defun c:fdfd (/ ss ss1 ent ent1 ad bd)
  (setvar "cmdecho" 0)
  (setq ss (car (entsel "\n选择更换块：")))
  (setq ent (entget ss))
  (setq ad (assoc 2 ent))
  (setq ss1 (car (entsel "\n选择源块：")))
  (setq ent1 (entget ss1))
  (setq bd (assoc 2 ent1))
(setq ent (subst bd  ad ent))
(entmod ent)
  (princ))

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

[编程申请] 如何实现块对块替换？

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