如何读取选中图元的所有图层

辣鸡砖家

有没有一种方法可以把图纸中部分选择的图元所在的图层并导出到文本文件中？有人可以指教一下吗？

vitalgg

1. ;; 加载函数库
   
2. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
3. 
   
4. ;; 选择，取图层名，去重
   
5. (list:remove-duplicates (mapcar '(lambda(x)(entity:getdxf x 8))  (pickset:to-list(ssget))))

;; 加载函数库<br /> (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> <br /> ;; 选择，取图层名，去重<br /> (list:remove-duplicates (mapcar '(lambda(x)(entity:getdxf x 8))  (pickset:to-list(ssget))))

1. 命令:
   
2. 命令: (fun:usage pickset:to-list)
   
3. *** 函数名:  pickset:to-list
   
4. ---------------
   
5. 说明: 选择集转图元列表
   
6. 用法: (pickset:to-list ss)
   
7. 参数: 1 ss  : 选择集;
   
8. 返回值: 图元列表
   
9. 示例:
   
10. 命令: (fun:usage entity:getdxf)
    
11. *** 函数名:  entity:getdxf
    
12. ---------------
    
13. 说明: 获取图元的组码值  参数:  ent:图元名或vla对象名  i:组码或组码表
    
14. 用法: (entity:getdxf ent i)
    
15. 参数: 1 ent  : 单个图元;2 i  : 未识别定义;
    
16. 返回值: 组码值或列表
    
17. 示例: (entity:getdxf (car (entsel)) 10)
    
18. 命令: (fun:usage list:remove-duplicates)
    
19. *** 函数名:  list:remove-duplicates
    
20. ---------------
    
21. 说明: 删除列表中重复的原子。
    
22. 用法: (list:remove-duplicates lst)
    
23. 参数: 1 lst  : 列表;
    
24. 返回值:
    
25. 示例:
    

复制代码

辣鸡砖家

收到，十分感谢，我学习学习

jenlin

进来学习，谢谢