使用部分菜单轻松完成第一个问题你有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)
[code]***MENUGROUP=BIGAL***POP15[->LISP4 L-P][Labelstn]^c^c^P（加载“Labelstn”）[PlotPdf]^c^c^P（加载“PlotPdf”）[PlotA0]^c^c^P（加载“plotplotter”）[PlotA3col]^c^P（加载“PlotA3B-W”）^c^P（加载“PlotA3B-W”）[plot tiff]^c^P（加载“plotiff”）[Pt z标签]^c^c^P（加载“点z标签”）[PramXcurv]^c^c^p（加载“pramcross1”）[Purgelays]^c^c^pscript Purgelays[
置顶卡
