其中一个采用变量“DWGNAME”并将该值设置为布局选项卡名称（截断以排除.dwg）。这仅适用于单个布局，因为您使用的是DWGNAME变量，并且多个布局选项卡不能具有相同的名称。
另一个采用特定属性并将布局名称设置为该属性（在我的示例中为“修订”属性）。
我在accodoc中包含了这个lisp。lsp文件，所以当我将多个文件（pdf）发布到单页时，它将它们命名为“文件名修订版”，例如STMP0345-C
不过，最好将这两个LISP合并为一个，为布局名称提供DWGNAME+属性。。。
哈里斯 很容易得到一个布局选项卡名称列表，然后对标题栏加上这个布局进行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更改布局名称，请其他人帮助。
页:
1
[2]