CAD图层改名

llsheng_73

在cad里边对图层改名一直是我很头痛的问题，虽然通过(tbnext "LAYER" T)能比较方便的得到图层名列表，但想进一 个步对列表的图层名进行改名时却遇到了很大麻烦，直接调用layer命令吧，它后边的命令选项里边就没一个改名的，用ENTMOD吧，虽然可以用ENTMAKE的方法建一个图层出来，但用ENTMOD的时候却行不通，因为没法仅仅通过图层名去得到该图层的所有DXF数据，当然过程中到底哪里疏忽了，心力交瘁之余没去深究，最后不得不转向并不熟悉的ACTIVEX方法，通过调试，终于在昨天实现了
现在分享给大家，希望大家指出其中不足之处，也好让我再学习下下
(Defun STABEL(TBL / snl sll)
  (SetQ snl '()sll (TblNext TBL T))
  (While (SetQ snl (Cons (Cdr (Assoc 2 sll)) snl)sll (TblNext TBL nil)))
  (setq snl (reverse snl)))

（defun c:test()
  (setq lys(vla-get-Layers(setq AcDocument(vla-get-ActiveDocument(vlax-get-acad-object))))
ly1(STABEL "LAYER"))
  (vlax-for ly lys
    (setq b(vlax-get-property ly "Name")
   c(cond((="JZD"b)"地籍界线")
  ((="JZP"b)"界址点")
  ((="KZD"b)"测量控制点")
  ((="SXSS"b)"水系及附属设施")
  ((="JMD"b)"居民地及设施")
  ((="DLSS"b)"交通及附属设施")
  ((="GXYZ"b)"管线及附属设施")
  ((="DMTZ"b)"地貌")
  ((="GCD"b)"高程点及注记")
  ((="ZBTZ"b)"植被和土质")
  ((="ZJ"b)"注记")
  ((="DLDW"b)"独立地物")
  ((="DLJ"b)"地籍要素注记")
  ((="TK"b)"图廓整饰")
  (T b)))
    (if(and(/= b c)(null(member c ly1)))(vla-put-name ly c))
    )(princ)
)

zml84

1. 
   

复制代码

1. (Defun STABEL (TBL / snl sll)  (SetQ        snl '()
   
2.         sll (TblNext TBL T)
   
3.   )
   
4.   (While (SetQ snl (Cons (Cdr (Assoc 2 sll)) snl)
   
5.                sll (TblNext TBL nil)
   
6.          )
   
7.   )
   
8.   (setq snl (reverse snl))
   
9. )
   
10. 
    
11. (defun c:tt ()
    
12.   (setq        lys (vla-get-Layers
    
13.               (setq AcDocument
    
14.                      (vla-get-ActiveDocument (vlax-get-acad-object))
    
15.               )
    
16.             )
    
17.         ly1 (STABEL "LAYER")
    
18.   )
    
19.   (vlax-for ly lys
    
20.     (setq b (vlax-get-property ly "Name")          
    
21.           c (assoc (strcase b)
    
22.                    '(("JZD" "地籍界线")
    
23.                      ("JZP" "界址点")
    
24.                      ("KZD" "测量控制点")
    
25.                      ("SXSS" "水系及附属设施")
    
26.                      ("JMD" "居民地及设施")
    
27.                      ("DLSS" "交通及附属设施")
    
28.                      ("GXYZ" "管线及附属设施")
    
29.                      ("DMTZ" "地貌")
    
30.                      ("GCD" "高程点及注记")
    
31.                      ("ZBTZ" "植被和土质")
    
32.                      ("ZJ" "注记")
    
33.                      ("DLDW" "独立地物")
    
34.                      ("DLJ" "地籍要素注记")
    
35.                      ("TK" "图廓整饰")
    
36.                     )
    
37.             )
    
38.           c (cadr c)
    
39.     )
    
40.     (and c
    
41.          (not (member c ly1))
    
42.          (princ (strcat "\n****替换图层名称： " b " --> " c));_ZML84 修改于 2013-3-27
    
43.          (vla-put-name ly c)         
    
44.     )
    
45.   )
    
46.   (princ)
    
47. )
    

(Defun STABEL (TBL / snl sll)  (SetQ        snl '()<br />         sll (TblNext TBL T)<br />   )<br />   (While (SetQ snl (Cons (Cdr (Assoc 2 sll)) snl)<br />                sll (TblNext TBL nil)<br />          )<br />   )<br />   (setq snl (reverse snl))<br /> )<br /> <br /> (defun c:tt ()<br />   (setq        lys (vla-get-Layers<br />               (setq AcDocument<br />                      (vla-get-ActiveDocument (vlax-get-acad-object))<br />               )<br />             )<br />         ly1 (STABEL "LAYER")<br />   )<br />   (vlax-for ly lys<br />     (setq b (vlax-get-property ly "Name")           <br />           c (assoc (strcase b)<br />                    '(("JZD" "地籍界线")<br />                      ("JZP" "界址点")<br />                      ("KZD" "测量控制点")<br />                      ("SXSS" "水系及附属设施")<br />                      ("JMD" "居民地及设施")<br />                      ("DLSS" "交通及附属设施")<br />                      ("GXYZ" "管线及附属设施")<br />                      ("DMTZ" "地貌")<br />                      ("GCD" "高程点及注记")<br />                      ("ZBTZ" "植被和土质")<br />                      ("ZJ" "注记")<br />                      ("DLDW" "独立地物")<br />                      ("DLJ" "地籍要素注记")<br />                      ("TK" "图廓整饰")<br />                     )<br />             )<br />           c (cadr c)<br />     )<br />     (and c<br />          (not (member c ly1))<br />          (princ (strcat "\n****替换图层名称： " b " --> " c));_ZML84 修改于 2013-3-27<br />          (vla-put-name ly c)         <br />     )<br />   )<br />   (princ)<br /> )<br />

跳跳虫

我也一直很想有这个，希望能解决。。

llsheng_73

跳跳虫 发表于 2013-3-28 21:30
我也一直很想有这个，希望能解决。。

已经解决了，不过没注意到用可用RENAME命令就能做到

spring8801

zml84 发表于 2013-3-27 16:33

请问如何将修改前后名称放到记事本或excel中，如A列为CAD中原名称，B列为修改后名称，程序自动调入数据文件替换呢

松树石头哥