悬赏，求大神开发个把外部参照一键修改为某个图层

lml2023

1、要求把外部参照整体的图层（注意是壳，就是外部参照块，不是内部的各个图层，外部参照内部不变），一键改为图层“0-0-参照图层”

845245015

2. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   
3. ;将文件中全部外部参照归置于"0-0-参照图层"图层
   
4. ;命令：XCC
   
5. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   
6. (Defun C:XCC ( )
   
7.   (vl-load-com)
   
8. ;--------------------------------------------------------------------------------------
   
9.   (setq Nme (getstring "\n请输入图层名称：<0-0-参照图层>"))
   
10.   (if (or (= 33 (ascii Nme))(= 0 (ascii Nme)))
    
11.     (setq Nme "0-0-参照图层")
    
12.     )
    
13.   (if (= (tblsearch "layer" Nme) nil)
    
14.     (entmake (list
    
15.          '(0 . "LAYER")
    
16.          '(100 . "AcDbSymbolTableRecord")
    
17.          '(100 . "AcDbLayerTableRecord")
    
18.          '(70 . 4)
    
19.          '(290 . 1)
    
20.          (cons 2 Nme)
    
21.          (cons 62 8)
    
22.          )
    
23.        )
    
24.     )
    
25.   (setvar "clayer" Nme)
    
26.   (if (setq ss (ssget "x" '((0 . "insert"))))
    
27.     (progn
    
28.       (setq sl (sslength ss))
    
29.       (while (setq e (ssname ss (setq sl (1- sl))))
    
30.         (if (vlax-property-available-p
    
31.               (setq obj (vlax-ename->vla-object e))
    
32.               'Path
    
33.             )
    
34.     (progn
    
35.           (vl-catch-all-apply 'vla-put-layer (list obj Nme))
    
36.     ;(print (vla-get-name obj))
    
37.     )
    
38.         )
    
39.       )
    
40.     )
    
41.   )
    
42.   
    
43. ;--------------------------------------------------------------------------------------
    
44.   (prin1)
    
45.   )
    
46. 
    
47. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<br /> ;将文件中全部外部参照归置于"0-0-参照图层"图层<br /> ;命令：XCC<br /> ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<br /> (Defun C:XCC ( )<br />   (vl-load-com)<br /> ;--------------------------------------------------------------------------------------<br />   (setq Nme (getstring "\n请输入图层名称：<0-0-参照图层>"))<br />   (if (or (= 33 (ascii Nme))(= 0 (ascii Nme)))<br />     (setq Nme "0-0-参照图层")<br />     )<br />   (if (= (tblsearch "layer" Nme) nil)<br />     (entmake (list<br />          '(0 . "LAYER")<br />          '(100 . "AcDbSymbolTableRecord")<br />          '(100 . "AcDbLayerTableRecord")<br />          '(70 . 4)<br />          '(290 . 1)<br />          (cons 2 Nme)<br />          (cons 62 8)<br />          )<br />        )<br />     )<br />   (setvar "clayer" Nme)<br />   (if (setq ss (ssget "x" '((0 . "insert"))))<br />     (progn<br />       (setq sl (sslength ss))<br />       (while (setq e (ssname ss (setq sl (1- sl))))<br />         (if (vlax-property-available-p<br />               (setq obj (vlax-ename->vla-object e))<br />               'Path<br />             )<br />     (progn<br />           (vl-catch-all-apply 'vla-put-layer (list obj Nme))<br />     ;(print (vla-get-name obj))<br />     )<br />         )<br />       )<br />     )<br />   )<br />   <br /> ;--------------------------------------------------------------------------------------<br />   (prin1)<br />   )<br /> <br /> ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ssyfeng

应该是这样吧.....

lml2023

ssyfeng 发表于 2023-9-15 21:08
不太明白什么意思.....

外部参照，不是一个整块吗，整块会在某个图层上，我需要的是把整块外部参照所有的，改到一个图层上，比如10个外部参照，一次性改图层到”0-0-参照图层”上。


下面的这个BT0是把块（含外部参照，并当成块）归到"0-0-块图层"  这个图层
，我希望的是我只改变外部参照的图层

2. ;;25-图块归0图层BT0
   
3.     (defun c:BT0 ( )
   
4.   (alert "天神提醒：
   
5.                    请先用插件进行   外部参照块  图层整理。
   
6.                    命令【BR0】外部参照图层整理，所有外部参照归入图层【0-0-参照图层】。
   
7.                    然后锁定参照图层，即可不改变参照图层，否则外部参照也会被归入本图层。
   
8.                    有图层0-0-块图层，则加入本图层；无0-0-块图层，则自动建立0-0-块图层。
   
9.                    继续执行      请空格！！！")
   
10. 
    
11.         (if (setq ss (ssget "_A" (list (cons 0 "INSERT"))))
    
12.             (progn
    
13.                 (setq i 0)
    
14.                 (repeat (sslength ss)
    
15.                     (setq ent (ssname ss i))
    
16.                     (setq dxf (entget ent))
    
17.                     (entmod (subst (cons 8 "0-0-块图层")(assoc 8 dxf) dxf))
    
18.                     (entupd ent)
    
19.                     (setq i (1+ i))
    
20.                 )
    
21.             )
    
22.         )
    
23.     )

;;25-图块归0图层BT0<br />     (defun c:BT0 ( )<br />   (alert "天神提醒：<br />                    请先用插件进行   外部参照块  图层整理。<br />                    命令【BR0】外部参照图层整理，所有外部参照归入图层【0-0-参照图层】。<br />                    然后锁定参照图层，即可不改变参照图层，否则外部参照也会被归入本图层。<br />                    有图层0-0-块图层，则加入本图层；无0-0-块图层，则自动建立0-0-块图层。<br />                    继续执行      请空格！！！")<br /> <br />         (if (setq ss (ssget "_A" (list (cons 0 "INSERT"))))<br />             (progn<br />                 (setq i 0)<br />                 (repeat (sslength ss)<br />                     (setq ent (ssname ss i))<br />                     (setq dxf (entget ent))<br />                     (entmod (subst (cons 8 "0-0-块图层")(assoc 8 dxf) dxf))<br />                     (entupd ent)<br />                     (setq i (1+ i))<br />                 )<br />             )<br />         )<br />     )

lml2023

ssyfeng 发表于 2023-9-15 21:08
应该是这样吧.....

可以，不过比楼上慢了一点，明天给你评2个币，还有就是稍微比楼上卡一点

lml2023

ssyfeng 发表于 2023-9-15 21:08
应该是这样吧.....

谢谢，老总的插件

菜鸟初来乍到

845245015 发表于 2023-9-15 16:55

大神，能帮忙修改一下吗？就是参照图层建立好放好参照之后，自动改回到原来的图层为当前图层

tensir

感谢作者的分享！