[求助]：有没有实体替换程序？

ohmylove

比如，把半径为10的圆全部替换成实心圆环或者三角形块。

lemonx

我画图的时候也经常想如果有这种程序就太好了

它山之石

没有考虑实体的定位。有时不是你所希望的结果。
利用VLISP应该有更简单的写法。
[php]
(defun c:stth (/ A AA ENT1 LEN N PT1 PT2 SS ent)
  (princ (strcat "\n*** 实体自动替换软件V050404 ***"))
  (princ (strcat "\n    [它山之石图形工作室作品]"))
  (princ)

  (command "undo" "be")
  (setq        olderr        *error*
        *error*        chgterr
  ) ;_ 结束setq

  (setq ent (car (entsel "\n请选择替换实体<退出>")))
  (if ent
    (progn
      (redraw ent 3)
      (setq aa (entget ent))
      (setq pt1 (cdr (assoc 10 aa)))
      (princ (strcat "\n请选择被替换实体<退出>"))
      (setq ss (ssget))
      (if ss
        (progn
          (setq len (sslength ss))
          (setq n 1)
;;;  (princ (strcat "\n"))
;;;  (princ "\n程序运行中，请稍等...  ")

          (while (<= n len)
;;;   (command "delay" 20)
;;;    (cxjd-spinner)

            (setq ent1 (ssname ss (1- n)))
            (setq a (entget ent1))
            (setq pt2 (cdr (assoc 10 a)))
            (command "copy" ent "" pt1 pt2)
            (entdel ent1)
            (setq n (1+ n))
          ) ;_ 结束while
        ) ;_ 结束progn
      ) ;_ 结束if
      (redraw ent 4)
    ) ;_ 结束progn
  ) ;_ 结束if

  (setq *error* olderr)
  (command "undo" "e")

  (princ (strcat "\n*** 实体自动替换软件V050404 ***"))
  (princ (strcat "\n    [它山之石图形工作室作品]"))
  (princ)
) ;_ 结束defun

[/php]

ohmylove

它山之石的程序是最简单的实体替换了。
不过也差不多了，定位问题可以提示用户自己选择一下。
被替换对象有时候不好一个一个选，可以事先自己过滤出来。
另外，如果被替换对象是多个实体也比较容易，但是如果替换对象是多个实体就麻烦了，不过肯定也不常见，最好是事先做成块，便于修改。

lemonx

楼上有无兴趣丰富一下这个东东

shaolehaha

最初由 ohmylove 发布
[B]它山之石的程序是最简单的实体替换了。
不过也差不多了，定位问题可以提示用户自己选择一下。
被替换对象有时候不好一个一个选，可以事先自己过滤出来。
另外，如果被替换对象是多个实体也比较容易，但是如果替换... [/B]

怎么可以用一个块批量更换另一种块?

zh_6531394

如果能解决定位问题就好了