[编程交流] 将布局名称作为前缀添加到

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

; (GetFirstLayoutTab)
(defun GetFirstLayoutTab ( / Lcoll )
 (setq Lcoll (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))) )
 (vl-some
   '(lambda (x) (if (= 1 (vla-get-TabOrder x)) (vla-get-Name x)))
   (mapcar '(lambda (x) (vla-item Lcoll x)) (layoutlist))
 )
)

; (GetFirstLayoutTab) (defun GetFirstLayoutTab ( / Lcoll )   (setq Lcoll (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))) )   (vl-some     '(lambda (x) (if (= 1 (vla-get-TabOrder x)) (vla-get-Name x)))     (mapcar '(lambda (x) (vla-item Lcoll x)) (layoutlist))   ) )

(defun C:test ( / )   (vla-SaveAs      (vla-get-ActiveDocument (vlax-get-acad-object))      (strcat (car (layoutlist)) "-" (getvar 'dwgname))   )   (princ) )(vl-load-com) (princ)

(vlax-for lay (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object)))
(if (= 1 (vla-get-taborder lay)) ; 0 is "Model" 1 is 1st
 (setvar "ctab" (vla-get-name lay))
)
)

(defun C:test ( / GetFirstLayoutTab )
 
 (defun GetFirstLayoutTab ( / Lcoll )
   (setq Lcoll (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))) )
   (vl-some
     '(lambda (x) (if (= 1 (vla-get-TabOrder x)) (vla-get-Name x)))
     (mapcar '(lambda (x) (vla-item Lcoll x)) (layoutlist))
   )
 )
 
 (vla-SaveAs 
   (vla-get-ActiveDocument (vlax-get-acad-object)) 
   (strcat (GetFirstLayoutTab) "-" (getvar 'dwgname))
 )
 (princ)
)(vl-load-com) (princ)