自定义打印工具栏
我目前正在使用AutoCAD 2015，在我以前工作过的一家公司，他们有一个自定义工具栏，它有一个下拉菜单，你可以选择，比如说“11 x 17 PDF Standard”，它会随着打印预览屏幕弹出，然后你可以右键单击并点击打印，它会打印到PDF，并将所有正确的打印样式打印到11 x 17页。他们为办公室内的不同打印机设置了一系列单独的打印类型。我想知道是否有人知道我将如何设置它？谢谢 使用部分菜单轻松完成第一个问题你有lisps vba绘图吗。网络代码？
这里有一个链接，指向一台打印机的自动打印布局，第二个是菜单代码
; plotpdf2 ver 2 with filename and directory as output oct 2011
(PROMPT ".....PRINTING DRAWING TO pdf's....")
(setvar "cmddia" 0)
(setvar "filedia" 0)
(setq plotabs nil) ; in case run before
(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 dwgname (GETVAR "dwgname"))
(setq len (strlen dwgname))
(setq dwgname (substr dwgname 1 (- len 4)))
(setq plottablist (acad_strlsort plotabs))
(setq len (length plottablist))
(setq x 0)
(repeat len
(setq name (nth x plottablist))
(princ name)
(setq pdfname (strcat (getvar "dwgprefix") dwgname "-" name))
(if (/= name "Model")
(progn
(setvar "ctab" name)
(setvar "textfill" 1)
(COMMAND "-PLOT""Y""" "dwg to Pdf"
"Iso full bleed A3 (420.00 x 297.00 MM)" "m" "LANDSCAPE""N" "W""-6,-6" "807,560" "1=2""C"
"y" "Designlasercolour.ctb" "Y" "n" "n" "n" pdfName "N" "y" )
)
)
(setq x (+ x 1))
)
(setvar "cmddia" 1)
(setvar "filedia" 1)
(setq DWGNAME nil
LEN nil
NAME nil
PLOTTABLIST nil)
(princ)
***MENUGROUP=BIGAL***POP15[->LISP4 L-P]^c^c^P（加载“Labelstn”）^c^c^P（加载“PlotPdf”）^c^c^P（加载“plotplotter”）^c^P（加载“PlotA3B-W”）^c^P（加载“PlotA3B-W”）^c^P（加载“plotiff”）^c^c^P（加载“点z标签”）^c^c^p（加载“pramcross1”）^c^c^pscript Purgelays[ 不幸的是，我对lisp例程了解不多，所以你写的东西可能是法语。我一点法语都不懂。我很抱歉。这可能太复杂了，但你能告诉我如何让它工作吗。这是一个很棒的工具。
页:
[1]