两种方法从LAYOUT名得到对象名

Lisphk

1. ;;VLISP
   
2. (defun _layoutvla (name / o)
   
3.   (if (= 'vla-object
   
4.          (type (setq o (vl-catch-all-apply
   
5.                          'vla-item
   
6.                          (list (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) name)
   
7.                        )
   
8.                )
   
9.          )
   
10.       )
    
11.     o
    
12.   )
    
13. )
    
14. (_layoutvla "Model")
    
15. 
    
16. ;;AUTOLISP
    
17. (defun _layoutvic (name / o)
    
18.   (if (and (setq o (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_LAYOUT"))))
    
19.            (setq o (cdr (assoc -1 (dictsearch o name))))
    
20.       )
    
21.     (vlax-ename->vla-object o)
    
22.   )
    
23. )
    
24. (_layoutvic "Model")

;;VLISP<br /> (defun _layoutvla (name / o)<br />   (if (= 'vla-object<br />          (type (setq o (vl-catch-all-apply<br />                          'vla-item<br />                          (list (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) name)<br />                        )<br />                )<br />          )<br />       )<br />     o<br />   )<br /> )<br /> (_layoutvla "Model")<br /> <br /> ;;AUTOLISP<br /> (defun _layoutvic (name / o)<br />   (if (and (setq o (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_LAYOUT"))))<br />            (setq o (cdr (assoc -1 (dictsearch o name))))<br />       )<br />     (vlax-ename->vla-object o)<br />   )<br /> )<br /> (_layoutvic "Model")

kqqt6236

沙发，谢谢分享。