返回显示的图层（剔除冻结或者隐藏的图层）

jpg102329

1. ;15:54 2017/8/9
   
2. 【管理员】大海<tryhi@sina.cn> 15:54:14
   
3. ;;返回显示的图层（剔除冻结或者隐藏的图层）
   
4. (setq onlayer(mapcar 'car(vl-remove-if '(lambda(x) (or (<(caddr x)0)(> (logand (cadr x) 1)0))) (try-Layer-Info))))
   
5. ;15:54 2017/8/9
   
6. 【观音】【jpg102329]猪(297419412) 15:50:46
   
7. ;;识别这个LSP的路径
   
8. ;;使用方法: 程序开头     (load-lujing)
   
9.                          (setq dcl_file(strcat lujing "tuku.dcl"))))
   
10. (defun load-lujing()
    
11. (setq lujing (vl-registry-read
    
12.         (strcat "HKEY_CURRENT_USER\\"
    
13.         (vlax-product-key)
    
14.          "\\Profiles\\"
    
15.         (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))))
    
16.           "\\Dialogs\\Appload")
    
17.            "MainDialog"
    
18. )))
    

;15:54 2017/8/9<br /> 【管理员】大海<<a href="mailto:tryhi@sina.cn" target="_blank">tryhi@sina.cn</a>> 15:54:14<br /> ;;返回显示的图层（剔除冻结或者隐藏的图层）<br /> (setq onlayer(mapcar 'car(vl-remove-if '(lambda(x) (or (<(caddr x)0)(> (logand (cadr x) 1)0))) (try-Layer-Info))))<br /> ;15:54 2017/8/9<br /> 【观音】【jpg102329]猪(297419412) 15:50:46<br /> ;;识别这个LSP的路径<br /> ;;使用方法: 程序开头     (load-lujing)<br />                          (setq dcl_file(strcat lujing "tuku.dcl"))))<br /> (defun load-lujing()<br /> (setq lujing (vl-registry-read<br />         (strcat "HKEY_CURRENT_USER\\"<br />         (vlax-product-key)<br />          "\\Profiles\\"<br />         (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))))<br />           "\\Dialogs\\Appload")<br />            "MainDialog"<br /> )))<br />

<以上内容出自《大海语录》不代表本人观点>
欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！