关于layerstate的几个函数

Lisphk

1. ;; ===============================================================
   
2. (defun get-activedocument  ()
   
3.   (setq *doc*
   
4.   (cond
   
5.     (*doc*)
   
6.     ((vla-get-activedocument (get-acadobject)))
   
7.     (T nil))))
   
8. 
   
9. ;; ===============================================================
   
10. (defun get-statenames  (/ collection names)
    
11.   (if (not (vl-catch-all-error-p
    
12.    (setq collection
    
13.      (vl-catch-all-apply
    
14.         (function (lambda ()
    
15.           (vla-item (vla-getextensiondictionary
    
16.             (vla-get-layers
    
17.               (get-activedocument)))
    
18.                 "ACAD_LAYERSTATES")))))))
    
19.     (vlax-for item  collection
    
20.       (setq names (cons (strcase (vla-get-name item)) names)))))
    
21. 
    
22. ;; ===============================================================
    
23. (defun restore-layerstate  (name)
    
24.   (if (and state
    
25.     (vl-position
    
26.       (strcase name)
    
27.       (get-statenames)))
    
28.     (progn (vla-restore state name)
    
29.     (delete-layerstate state name)
    
30.     (vlax-release-object state)
    
31.     (setq state nil)))
    
32. );; ===============================================================
    
33. (defun delete-layerstate  (obj name)
    
34. (if (vl-catch-all-error-p
    
35.        (vl-catch-all-apply 'vla-delete (list obj name)))
    
36.     nil
    
37.     T)
    
38. )
    

;; ===============================================================<br /> (defun get-activedocument  ()<br />   (setq *doc*<br />   (cond<br />     (*doc*)<br />     ((vla-get-activedocument (get-acadobject)))<br />     (T nil))))<br /> <br /> ;; ===============================================================<br /> (defun get-statenames  (/ collection names)<br />   (if (not (vl-catch-all-error-p<br />    (setq collection<br />      (vl-catch-all-apply<br />         (function (lambda ()<br />           (vla-item (vla-getextensiondictionary<br />             (vla-get-layers<br />               (get-activedocument)))<br />                 "ACAD_LAYERSTATES")))))))<br />     (vlax-for item  collection<br />       (setq names (cons (strcase (vla-get-name item)) names)))))<br /> <br /> ;; ===============================================================<br /> (defun restore-layerstate  (name)<br />   (if (and state<br />     (vl-position<br />       (strcase name)<br />       (get-statenames)))<br />     (progn (vla-restore state name)<br />     (delete-layerstate state name)<br />     (vlax-release-object state)<br />     (setq state nil)))<br /> );; ===============================================================<br /> (defun delete-layerstate  (obj name)<br /> (if (vl-catch-all-error-p<br />        (vl-catch-all-apply 'vla-delete (list obj name)))<br />     nil<br />     T)<br /> )<br />

sicky111

沙发。谢谢分享！

/db_自贡黄明儒_

我在08下返回
Command: (get-statenames)
nil

这个是不是有版本限制？？？