[求助]哪位大师能帮我写一个替换图块的LISP程序吗？

dwgplt · 发表于 2002-11-14 16:51:00

提示: 作者被禁止或删除内容自动屏蔽

ll_j · 发表于 2002-11-14 17:10:00

雷 · 发表于 2002-11-14 18:01:00

dwgplt · 发表于 2002-11-14 18:25:00

提示: 作者被禁止或删除内容自动屏蔽

wzh · 发表于 2002-11-14 23:43:00

用选择集函数SSGET得到要替换A块的实体名，逐一获取A块的插入点，
（可用表的形式表示），然后再从上述表中逐一读取插入点插入B块
即可。

前生 · 发表于 2002-11-15 11:39:00

dwgplt · 发表于 2002-11-16 15:38:00

提示: 作者被禁止或删除内容自动屏蔽

fjwok1 · 发表于 2002-11-16 23:22:00

XDCAD。NET 有，不过昨天晚上又黑了

龙龙仔 · 发表于 2002-11-19 08:00:00

本帖最后由作者于 2002-11-19 8:00:48 编辑

(defun C:RB (/ SE1 N A0 BN E0 E1)
  (prompt "\n选择要替换的图块: ")
  (setq SE1 (ssget '((0 . "INSERT")))
  )
  (if SE1
(progn
   (setq BN (getstring "\n来源图块名称/<Enter选取来源图块>: "))
   (if (= BN "")
(progn
   (while (= A0 NIL)
      (prompt "\n选取来源图块: ")
      (setq A0 (ssget ":S" '((0 . "INSERT"))))
   )
   (setq BN (cdr (assoc 2 (entget (ssname A0 0)))))
)
   )
   (command "_.insert" BN (command))
   (setq N 0)
   (repeat (sslength SE1)
(setq E0 (ssname SE1 N)
      E1 (entget E0)
)
(setq E1 (subst (cons 2 BN) (assoc 2 E1) E1))
(entmod E1)
(entupd E0)
(setq N (1+ N))
   )
)
  )
  (princ)
)

cy956 · 发表于 2002-11-18 19:22:00

本帖最后由作者于 2002-11-18 19:22:03 编辑

用insert更要考虑属性的问题。

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

[求助]哪位大师能帮我写一个替换图块的LISP程序吗？

也许会有点帮助

本帖子中包含更多资源

ＣＡＤ本身就有这个功能用不着写程序。重定义块就行了。

用选择集函数SSGET得到要替换A块的实体名

呵呵，你太懒了

XDCAD.NET

Try this example

直接换dxf2码，对含属性时不替换，否则要在程序里面定义attrib，

dwgplt dwgplt 当前离线积分 1369 明经币个注册时间 2002-9-15 在线时间小时威望金钱个贡献激情	发表于 2002-11-14 16:51:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

dwgplt dwgplt 当前离线积分 1369 明经币个注册时间 2002-9-15 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2002-11-14 18:25:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

dwgplt dwgplt 当前离线积分 1369 明经币个注册时间 2002-9-15 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2002-11-16 15:38:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡