（XD::Layout:FirstTab）获取显示的第一个布局的名字

marting

1. (defun XD::Layout:FirstTab (/ Lcoll)
   
2.   (setq Lcoll (vla-get-Layouts
   
3.                 (vla-get-ActiveDocument (vlax-get-acad-object))
   
4.               )
   
5.   )
   
6.   (vl-some '(lambda (x)
   
7.               (if (= 1 (vla-get-TabOrder x))
   
8.                 (vla-get-Name x)
   
9.               )
   
10.             )
    
11.            (mapcar '(lambda (x) (vla-item Lcoll x)) (layoutlist))
    
12.   )
    
13. )
    

(defun XD::Layout:FirstTab (/ Lcoll)<br />   (setq Lcoll (vla-get-Layouts<br />                 (vla-get-ActiveDocument (vlax-get-acad-object))<br />               )<br />   )<br />   (vl-some '(lambda (x)<br />               (if (= 1 (vla-get-TabOrder x))<br />                 (vla-get-Name x)<br />               )<br />             )<br />            (mapcar '(lambda (x) (vla-item Lcoll x)) (layoutlist))<br />   )<br /> )<br />