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

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

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

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

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

dwgplt · 发表于 2002-11-15 11:39:00

(defun C:RB (/ SE1 N A0 BN E0 E1)
  (prompt "\n选择要替换的图块: ")
  (setq       SE1 (ssget '((0 . "INSERT")))
  )
  (if SE1
(progn
   (setq BN (getstring "\n来源图块名称/: "))
   (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)
)

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

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

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

发表回复

精选推荐