[求助]：如何才能一次性替换掉已经炸开的箭头？

cqgaorong

因为项目中用的是别人的图，要作修改，要把标注的箭头改成我们院常用的箭头，但标注都被人炸开，不知各位高手有什么办法能一次就把这些箭头都改过来？帮忙出个主意先谢过了！

cowfeedcat

如果箭头还是块的话就直接重新定义块就可以了，估计没有人那么好耐心会将标注炸两次的。

oygn

呵呵，因为一般领导是不做事的，不会去体会做事人的辛苦和知识产权，有时讨厌的领导总是命令我们把东西拷给别人，没办法，至少不让他们那么省事，所以我就把图全部炸开，然后清理一下，再给别人。因为这样没有太多的省事的办法了。

longcf

楼上你可苦了同行啊，不过如果不是经常交流的同行，是领导拿去给不相干的人做人情，我还是赞同你的做法

cqgaorong

拜托各位大哥，我是来求助的，怎么大家都在讨论该不该炸开箭头的问题呢？
如果知道的麻烦帮小弟一下，急得很啊!

ll_j

最初由 cqgaorong 发布
[B]拜托各位大哥，我是来求助的，怎么大家都在讨论该不该炸开箭头的问题呢？
如果知道的麻烦帮小弟一下，急得很啊! [/B]

首先，标注的箭头是泛指的，可以是各种形式，你没有上传DWG，别人无法知道，cowfeedcat回复了，“如果箭头还是块的话就直接重新定义块就可以了”，你也可以下载签名下我的网络U盘中的CB.lsp进行部分替换。如果是“原始”的实心箭头，不同版本的CAD可能有不同的定义，下面的代码可以替换现在比较高的版本使用的SOLID箭头，你不妨试试。
[php](defun c:tmp(/ ss sslen i en ent bn b0 p10 p11 p1 p12 size ang)
  (command "color" "")
  (princ "\n用图块替换非关联的标注箭头（SOLID）。")
  (princ "\n选择非关联箭头：")
  (if (setq ss (ssget '((0 . "SOLID"))))
    (progn
      (setq sslen (sslength ss)
            i 0
      )
      (repeat sslen
        (setq ent (entget (setq en (ssname ss i))))
        (if (/= (distance (cdr (assoc 12 ent)) (cdr (assoc 13 ent))) 0.0)
          (ssdel en ss)
        )
        (setq i (1+ i))
      )
      (setq bn (getstring "\n替换新块名称（回车选取样块）："))
      (if (= bn "")
        (progn
          (setq b0 nil)
          (while (not b0)
            (initget " ")
            (setq b0 (entsel "\n选取样块："))
            (cond
              ((= (type b0) 'STR) (setq b0 t))
              ((and
                 (= (type b0) 'LIST)
                 (/= (cdr (assoc 0 (setq b0 (entget (car b0))))) "INSERT")
               )
               (setq b0 nil)
              )
              (t (setq bn (cdr (assoc 2 b0))))
            )
          )
        )
      )
      (setq sslen (sslength ss)
            i 0
      )
      (repeat sslen
        (setq ent (entget (setq en (ssname ss i)))
              p10 (cdr (assoc 10 ent))
              p11 (cdr (assoc 11 ent))
              p1  (polar p10 (angle p10 p11) (/ (distance p10 p11) 2))
              p12 (cdr (assoc 12 ent))
              size(distance p12 p1)
              ang (angle p12 p1)
              i   (1+ i)
        )
        (entdel en)
        (entmakex (list '(0 . "INSERT")
                        '(100 . "AcDbBlockReference")
                        (cons 2 bn)
                        (cons 10 p12)
                        (cons 41 size)
                        (cons 42 size)
                        (cons 43 size)
                        (cons 50 ang)
                        '(70 . 0)
                        '(71 . 0)
                        '(44 . 0.0)
                        '(45 . 0.0)
                  )
        )
      )
    )
  )
  (princ)
)[/php]