求教关于图层状态的编辑

edata

词典位置

小菜123

不好意思，还是不明白怎么搞
能否把图片上盖住的程序显示出来看看

edata

测试代码

1.   (defun c:tt (/ return)
   
2.   (if(setq return (entget (cdr (assoc 330 (entget (tblobjname "layer" "0"))))));返回图层词典数据
   
3.       (if(setq return (cdr (assoc 360 return)));返回关联的数据
   
4.   (if(setq return (member (cons 3 "ACAD_LAYERSTATES") (entget return)));返回图层状态词典数据 (cdadr return)   
   
5.     (if(setq return (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 350 (car x))) (entget (cdadr return)))));返回状态名的图元名表 修改将在这层
   
6.       
   
7.       (if return(setq return (cddr(mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 330 (car x))) (entget (car return))))));返回图层图元名表
   
8.         (if return (entget (car return));回到图层的表了=(entget(tblobjname "layer" "0"))
   
9.     )
   
10.         )
    
11.       )
    
12.     )
    
13.   )
    
14.       )
    
15.     )

  (defun c:tt (/ return)<br />   (if(setq return (entget (cdr (assoc 330 (entget (tblobjname "layer" "0"))))));返回图层词典数据<br />       (if(setq return (cdr (assoc 360 return)));返回关联的数据<br />   (if(setq return (member (cons 3 "ACAD_LAYERSTATES") (entget return)));返回图层状态词典数据 (cdadr return)    <br />     (if(setq return (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 350 (car x))) (entget (cdadr return)))));返回状态名的图元名表 修改将在这层<br />       <br />       (if return(setq return (cddr(mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 330 (car x))) (entget (car return))))));返回图层图元名表<br />         (if return (entget (car return));回到图层的表了=(entget(tblobjname "layer" "0"))<br />     )<br />         )<br />       )<br />     )<br />   )<br />       )<br />     )

下面是调试数据

1. ; 1 表格 从 #<editor "<未命名 0> 正在加载..."> 加载
   
2. _$
   
3. _$ (setq return (entget (cdr (assoc 330 (entget (tblobjname "layer" "0"))))));返回词典数据
   
4.   
   
5. ((-1 . <图元名: 7ef83c10>) (0 . "TABLE") (2 . "LAYER") (5 . "2") (102 . "{ACAD_XDICTIONARY") (360 . <图元名: 7ef83fa8>) (102 . "}") (330 . <图元名: 0>) (100 . "AcDbSymbolTable") (70 . 7))
   
6. _$ (setq return (cdr (assoc 360 return)))
   
7. <图元名: 7ef83fa8>
   
8. _$ (setq return (member (cons 3 "ACAD_LAYERSTATES") (entget return)))
   
9. ((3 . "ACAD_LAYERSTATES") (360 . <图元名: 7ef83fb0>) (3 . "ACLYDICTIONARY") (360 . <图元名: 7ef91020>))
   
10. _$ (setq return (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 350 (car x))) (entget (cdadr return)))))
    
11. (<图元名: 7ef83fb8> <图元名: 7ef91018>)
    
12. _$ (entget (car return))
    
13. ((-1 . <图元名: 7ef83fb8>) (0 . "XRECORD") (5 . "F7") (102 . "{ACAD_REACTORS") (330 . <图元名: 7ef83fb0>) (102 . "}") (330 . <图元名: 7ef83fb0>) (100 . "AcDbXrecord") (280 . 1) (91 . 495) (301 . "") (290 . 0) (302 . "0") (330 . <图元名: 7ef83fa0>) (90 . 8) (62 . 7) (370 . -3) (331 . <图元名: 7ef83cb0>) (1 . "Color_7") (330 . <图元名: 7ef83f98>) (90 . 8) (62 . 7) (370 . -3) (331 . <图元名: 7ef83cb0>) (1 . "Color_7") (330 . <图元名: 7ef83f88>) (90 . 8) (62 . 7) (370 . -3) (331 . <图元名: 7ef83cb0>) (1 . "Color_7") (330 . <图元名: 7ef83c80>) (90 . 8) (62 . 7) (370 . -3) (331 . <图元名: 7ef83cb0>) (1 . "Color_7"))
    
14. _$

; 1 表格 从 #<editor "<未命名 0> 正在加载..."> 加载<br /> _$ <br /> _$ (setq return (entget (cdr (assoc 330 (entget (tblobjname "layer" "0"))))));返回词典数据<br />   <br /> ((-1 . <图元名: 7ef83c10>) (0 . "TABLE") (2 . "LAYER") (5 . "2") (102 . "{ACAD_XDICTIONARY") (360 . <图元名: 7ef83fa8>) (102 . "}") (330 . <图元名: 0>) (100 . "AcDbSymbolTable") (70 . 7))<br /> _$ (setq return (cdr (assoc 360 return)))<br /> <图元名: 7ef83fa8><br /> _$ (setq return (member (cons 3 "ACAD_LAYERSTATES") (entget return)))<br /> ((3 . "ACAD_LAYERSTATES") (360 . <图元名: 7ef83fb0>) (3 . "ACLYDICTIONARY") (360 . <图元名: 7ef91020>))<br /> _$ (setq return (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 350 (car x))) (entget (cdadr return)))))<br /> (<图元名: 7ef83fb8> <图元名: 7ef91018>)<br /> _$ (entget (car return))<br /> ((-1 . <图元名: 7ef83fb8>) (0 . "XRECORD") (5 . "F7") (102 . "{ACAD_REACTORS") (330 . <图元名: 7ef83fb0>) (102 . "}") (330 . <图元名: 7ef83fb0>) (100 . "AcDbXrecord") (280 . 1) (91 . 495) (301 . "") (290 . 0) (302 . "0") (330 . <图元名: 7ef83fa0>) (90 . 8) (62 . 7) (370 . -3) (331 . <图元名: 7ef83cb0>) (1 . "Color_7") (330 . <图元名: 7ef83f98>) (90 . 8) (62 . 7) (370 . -3) (331 . <图元名: 7ef83cb0>) (1 . "Color_7") (330 . <图元名: 7ef83f88>) (90 . 8) (62 . 7) (370 . -3) (331 . <图元名: 7ef83cb0>) (1 . "Color_7") (330 . <图元名: 7ef83c80>) (90 . 8) (62 . 7) (370 . -3) (331 . <图元名: 7ef83cb0>) (1 . "Color_7"))<br /> _$

最后的表是 状态管理器命名的图元数据，其中第三个330组码即图层的图元名，后面的代码应该是相关状态组码值，前面的302应该是图层状态设定当前图层名，其他还得查dxf手册。
理论上应该改可以修改这个表，达到修改图层的目的。

小菜123

谢谢提供，我试试试看

小菜123

运行下面的程序后，(entmod l3)更新不成功，而且词典的数据变多了

2. (defun c:tt (/ return l1 aa l2 bb)
   
3.   (if (setq return (entget (cdr (assoc 330 (entget (tblobjname "layer" "0"))))));返回图层词典数据
   
4.       (if (setq return (cdr (assoc 360 return)));返回关联的数据
   
5.   (if (setq return (member (cons 3 "ACAD_LAYERSTATES") (entget return)));返回图层状态词典数据 (cdadr return)   
   
6.     (if (setq return (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 350 (car x))) (entget (cdadr return)))));返回状态名的图元名表 修改将在这层
   
7.        (progn
   
8.    (setq l1 (entget (car return))
   
9.                aa (cons 330 (tblobjname "layer" "123")) ;;测试去掉图层"123"
   
10.          l2 (reverse (cdr (member aa (reverse l1))))
    
11.          bb (cdddr (cdddr (member aa l1)))
    
12.          l3 (append l2 bb) ;;生成entmod表
    
13.    )
    
14.       );;progn
    
15.       )
    
16.     )
    
17.   )
    
18.       )
    
19.     )

(defun c:tt (/ return l1 aa l2 bb)<br />   (if (setq return (entget (cdr (assoc 330 (entget (tblobjname "layer" "0"))))));返回图层词典数据<br />       (if (setq return (cdr (assoc 360 return)));返回关联的数据<br />   (if (setq return (member (cons 3 "ACAD_LAYERSTATES") (entget return)));返回图层状态词典数据 (cdadr return)    <br />     (if (setq return (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 350 (car x))) (entget (cdadr return)))));返回状态名的图元名表 修改将在这层<br />        (progn<br />    (setq l1 (entget (car return))<br />                aa (cons 330 (tblobjname "layer" "123")) ;;测试去掉图层"123"<br />          l2 (reverse (cdr (member aa (reverse l1))))<br />          bb (cdddr (cdddr (member aa l1)))<br />          l3 (append l2 bb) ;;生成entmod表<br />    )<br />       );;progn<br />       )<br />     )<br />   )<br />       )<br />     )

edata

(330 . <图元名: 7ef83fa0>) (90 . 8) (62 . 7) (370 . -3) (331 . <图元名: 7ef83cb0>) (1 . "Color_7")
你确定刷掉了这几段？
其实词典操作我也不是很熟悉，不过用导出编辑的方式确实可行，用layer命令行模式导出las文件，再编辑他，然后删除原来的状态名，导入即可。
当然编辑las文件也是这个相关组码。这个是dim图层的las信息，因为123图层被我删了。

1.   8
   
2. dim
   
3. 90
   
4. 8
   
5. 62
   
6. 3
   
7. 370
   
8. 18
   
9.   6
   
10. Continuous
    
11.   2
    
12. Color_3

  8<br /> dim<br /> 90<br /> 8<br /> 62<br /> 3<br /> 370<br /> 18<br />   6<br /> Continuous<br />   2<br /> Color_3

小菜123

1. 取得的数据表L1如下：
   
2. 
   
3. ((-1 . <Entity name: 4007a150>) (0 . "XRECORD") (5 . "CA") (102 .
   
4. "{ACAD_REACTORS") (330 . <Entity name: 4007a148>) (102 . "}") (330 . <Entity
   
5. name: 4007a148>) (100 . "AcDbXrecord") (280 . 1) (91 . 259) (330 . <Entity
   
6. name: 4007a110>) (90 . 9) (62 . 4) (370 . -3) (331 . <Entity name: 40078cb0>)
   
7. (1 . "Color_4") (330 . <Entity name: 40078c80>) (90 . 8) (62 . 7) (370 . 15)
   
8. (331 . <Entity name: 40078cb0>) (1 . "Color_7"))
   
9. 
   
10. (tblobjname "layer" "123")返回的实体：<Entity name: 4007a110>
    
11. 
    
12. 修改后的数据表L3如下：
    
13. 
    
14. ((-1 . <Entity name: 4007a150>) (0 . "XRECORD") (5 . "CA") (102 .
    
15. "{ACAD_REACTORS") (330 . <Entity name: 4007a148>) (102 . "}") (330 . <Entity
    
16. name: 4007a148>) (100 . "AcDbXrecord") (280 . 1) (91 . 259) (330 . <Entity
    
17. name: 40078c80>) (90 . 8) (62 . 7) (370 . 15) (331 . <Entity name: 40078cb0>)
    
18. (1 . "Color_7"))
    
19. 
    
20. (entmod l3)后再取数据表L1变成了：
    
21. 
    
22. ((-1 . <Entity name: 4007a150>) (0 . "XRECORD") (5 . "CA") (102 .
    
23. "{ACAD_REACTORS") (330 . <Entity name: 4007a148>) (102 . "}") (330 . <Entity
    
24. name: 4007a148>) (100 . "AcDbXrecord") (280 . 1) (91 . 259) (330 . <Entity
    
25. name: 4007a110>) (90 . 9) (62 . 4) (370 . -3) (331 . <Entity name: 40078cb0>)
    
26. (1 . "Color_4") (330 . <Entity name: 40078c80>) (90 . 8) (62 . 7) (370 . 15)
    
27. (331 . <Entity name: 40078cb0>) (1 . "Color_7") (91 . 259) (330 . <Entity name:
    
28. 40078c80>) (90 . 8) (62 . 7) (370 . 15) (331 . <Entity name: 40078cb0>) (1 .
    
29. "Color_7"))

复制代码

smartstar

没有下文了吗？

自贡黄明儒

smartstar 发表于 2015-4-2 15:51
没有下文了吗？

同感，强烈抗议LZ有始无终

言社长

图层状态保存很有用