很容易得到一个布局选项卡名称列表，然后对标题栏加上这个布局进行ssget，然后拉出属性值和最新的布局名称。
这是一个开始
- (PROMPT ".....PRINTING DRAWING TO pdf's....")
- (setvar "cmddia" 0)
- (setvar "filedia" 0)
- (setq doc (vla-get-activedocument (vlax-get-acad-object)))
- (vlax-for lay (vla-get-Layouts doc)
- (setq plotabs (cons (vla-get-name lay) plotabs))
- )
- (setq plottablist (acad_strlsort plotabs))
- (setq len (length plottablist))
- (setq x 0)
- (repeat len
- (setq name (nth x plottablist))
- (princ name)
- (if (/= name "Model")
- (progn
- (setvar "ctab" name)
- (COMMAND "-PLOT" "Y" "" "Cutepdf Writer"
- "A3" "m" "LANDSCAPE" "N" "W" "-6,-6" "807,560" "1=2" "C"
- "y" "Designlasercolour.ctb" "Y" "n" "n" "y" "N" "N" "y" )
- )
- )
- (setq x (+ x 1))
- )
- (setvar "cmddia" 1)
- (setvar "filedia" 1)
- (princ)
现在去哪儿
- (setq ss2 (ssget "x" '((0 . "INSERT")(2 . "Da1drsht")(410 . name))))
可能使用vl get&vl put更改布局名称，请其他人帮助。 | 
