[求助]如何去掉参照图层的前缀?

991076731

碰到同样的问题。。

hongxibao

hnfsf 发表于 2013-5-12 23:45
(defun c:tt ()
  (while (setq TBL (tblnext "layer" (null TBL)))
        (setq TBL_LIST (cons (cdr ...

hnfsf大侠，可以把你这个深化下吗？
如下深化
绑定参照后，把带进的图层名字和线型名字$0$之前前缀全部删掉（图纸说不定被二次参照，名字带有两个或三个$0$）

删除前缀时，如果有名字重合，则可以合并名字，如果不能合并，就在名字后面加个数字，比如1（加数字后，如果还有重合，继续循环运行加数字1，直到不重合）

wrightchen

用不了啊，大侠，盼回复