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

XIAOFEILONG · 发表于 2009-6-9 21:36:00

把图A用外捕参照,然后绑定

结果图A中的图层就都有了个前缀" A$0$"

请问有没有快捷的方法去掉这个前缀?

我一个个去图层中修改名字实在是太麻烦了

请大家帮忙!

谢谢

hongxibao · 发表于 2018-9-16 11:29:50

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 · 发表于 2018-12-16 01:34:45

用不了啊，大侠，盼回复

ZZXXQQ · 发表于 2009-6-9 22:10:00

将外部参照绑定后图层前缀就没了。

XIAOFEILONG · 发表于 2009-6-10 22:11:00

就是绑定后才会出现前缀$0$的啊

jaminth · 发表于 2009-6-10 22:23:00

XIAOFEILONG · 发表于 2009-6-12 22:13:00

LS是什么版本?

CAD2004好象没有这个对话框啊

jaminth · 发表于 2009-6-12 23:10:00

输入 XR后，

再按BIND按钮，就会有这个对话框

XIAOFEILONG · 发表于 2009-6-13 19:48:00

谢谢

我明白了

hnfsf · 发表于 2013-5-12 23:45:54

(defun c:tt ()
  (while (setq TBL (tblnext "layer" (null TBL)))
      (setq TBL_LIST (cons (cdr (assoc 2 TBL)) TBL_LIST)))
  (setq lys (vla-get-Layers (setq AcDocument (vla-get-ActiveDocument (vlax-get-acad-object)))) ly1 TBL_LIST)
  (vlax-for ly lys
(setq b (vlax-get-property ly "Name"))
  (if (wcmatch b "*$0$*")
(Progn
   (setq c (cadr (@Fsf-Split b "$0$")))
   (if (member c TBL_LIST)
         (vla-put-name ly (strcat c "-1"));(command "_.CHPROP" (ssget "x" (list (cons 8 (strcat "*$0$" c)))) "" "LA" c "")
         (vla-put-name ly c)))
)
  )
  (princ)
)

hnfsf · 发表于 2013-5-12 23:48:07

(defun @Fsf-Split (string strkey / po strlst xlen)
  (setq xlen (1+ (strlen strkey)))
  (while (setq po (vl-string-search strkey string))
(setq strlst (cons (substr string 1 po) strlst))
(setq string (substr string (+ po xlen)))
  )
  (reverse (cons string strlst))
)

仁勇 · 发表于 2013-7-5 21:17:09

8楼与9楼的程序是一样的还是说9楼的程序是接在8楼后面的呢

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

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

本帖子中包含更多资源