(defun c:tt ()
(while (setq TBL (tblnext "layer" (null TBL)))
(setq TBL_LIST (cons (cdr ...
hnfsf大侠,可以把你这个深化下吗?
如下深化
绑定参照后,把带进的图层名字和线型名字$0$之前前缀全部删掉(图纸说不定被二次参照,名字带有两个或三个$0$)
删除前缀时,如果有名字重合,则可以合并名字,如果不能合并,就在名字后面加个数字,比如1(加数字后,如果还有重合,继续循环运行加数字1,直到不重合) 用不了啊,大侠,盼回复
页:
1
[2]