（XD::Layout:List）按顺序正确列表LAYOUT

marting

LISP的函数 (layoutlist)不能正确的按顺序返回LAYOUT TAB，这个函数可以正确返回，看图片演示。

1. (defun XD::Layout:List (/ L)
   
2.   (vlax-map-collection
   
3.     (vla-get-Layouts
   
4.       (vla-get-ActiveDocument (vlax-get-acad-object))
   
5.     )
   
6.     (function
   
7.       (lambda (x)
   
8.         (setq L (cons (list (vla-get-TabOrder x) (vla-get-Name x)) L))
   
9.       )
   
10.     )
    
11.   )
    
12.   (mapcar 'cadr
    
13.           (cdr (vl-sort L '(lambda (a b) (< (car a) (car b)))))
    
14.   )
    
15. )
    

(defun XD::Layout:List (/ L)<br />   (vlax-map-collection<br />     (vla-get-Layouts<br />       (vla-get-ActiveDocument (vlax-get-acad-object))<br />     )<br />     (function<br />       (lambda (x)<br />         (setq L (cons (list (vla-get-TabOrder x) (vla-get-Name x)) L))<br />       )<br />     )<br />   )<br />   (mapcar 'cadr<br />           (cdr (vl-sort L '(lambda (a b) (< (car a) (car b)))))<br />   )<br /> )<br />

命令: (xd::layout:list)
("布局2" "布局1")