[编程交流] 不带en的打印当前布局

 
(defun c:plot40_B1 nil
(vl-load-com)
(command "_.-plot" "yes" "" "\\\\Kwifs1\\KWIN_40" "B1" "Millimeters" "LANDSCAPE" "NO" "Extents" "FIT" "CENTER" "YES" "KWIN39_BW.ctb" "YES" "W" "NO" "NO" "yes" )
(princ)
)

plot40_KWIN39_BW _.-plot Detailed plot configuration? [Yes/No] <No>: 
yes
Enter a layout name or [?] <K-17831>: Enter an output device name or [?] 
[url="file://kwifs1/KWIN_40"]\\KWIFS1\KWIN_40[/url]>: [url="file://kwifs1/KWIN_40"]\\Kwifs1\KWIN_40[/url] Enter paper size or [?] <A3>: A3 Enter 
paper units [inches/Millimeters] <Millimeters>: Millimeters Enter drawing 
orientation [Portrait/Landscape] <Landscape>: LANDSCAPE Plot upside down? 
[Yes/No] <No>: NO Enter plot area [Display/Extents/Layout/View/Window] 
<Extents>: Extents Enter plot scale (Plotted Millimeters=Drawing Units) or 
[Fit] <Fit>: FIT Enter plot offset (x,y) or [Center] <Center>: CENTER Plot with 
plot styles? [Yes/No] <Yes>: YES Enter plot style table name or [?] (enter . 
for none) <KWIN39_BW.ctb>: KWIN39_BW.ctb Plot with lineweights? [Yes/No] <Yes>: 
YES Scale lineweights with plot scale? [Yes/No] <Yes>: W

(defun c:plot40_B1 nil
[color=#ff0000](setvar "cmdecho" 0)[/color]
(command "_.-plot" "yes" "" "\\\\Kwifs1\\KWIN_40" "B1" "Millimeters" "LANDSCAPE" "NO" "Extents" "FIT" "CENTER" "YES" "KWIN39_BW.ctb" "YES" "W" "NO" "NO" "NO" "yes" )
[color=#ff0000](setvar "cmdecho" 1)[/color]
(princ)
)

;lisp for plot 
;you can change your device and paper size
;Created by Ahmed Abdel Ghany "[email="Ahmed_proff@yahoo.com"]Ahmed_proff@yahoo.com[/email]"
;With my best regards
(defun
ERR (X)
(if (= "Function Cancelled" X)
(setq X "Ctrl+C or Esc key pressed.")
) ;_ end of if
(setq *ERROR* OLDERR)
(princ (strcat "\nError: " X))
(princ)
) ;_ end of defun
;;ERR
;;;********** Main Program **********
(defun c:B1 ()
(setq oecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setvar "filedia" 0)
(vl-load-com)
(command "zoom" "e")
(initget "YES NO")
(setq pl (getkword "\nDo you want to plot? (Y)es/(N)o <Y>:"))
(if (= nil pl)(setq pl "Y")) 
(cond
((= pl "Y")
;;;;Paper space;
(if (/= (getvar "tilemode") 1)
(progn
(command
"-PLOT"
"y" ;Detailed plot configuration? [Yes/No] <No>:; 
"" ;Enter a layout name or [?] <Layout1>:
"\\\\Kwifs1\\KWIN_40" ;Enter an output device name or [?] <None>: 
"B1" ;Enter paper size or [?] <A3>:
"m" ;Enter paper units [inches/Millimeters] <Inches>: m
"l" ;Enter drawing orientation [Portrait/Landscape] <Landscape>:
"no" ;Plot upside down? [Yes/No] <No>:
"e" ;Enter plot area [Display/Extents/Limits/View/Window] <Layout>: e
"f" ;Enter plot scale (Plotted Millimeters=Drawing Units) or [Fit] <1:1>: f
"0,0" ;Enter plot offset (x,y) or [Center] <0.00,0.00>:
"yes" ;Plot with plot styles? [Yes/No] <Yes>:
"KWIN39_BW.ctb" ;Enter plot style table name or [?] (enter . for none) <>: 
"yes" ;Plot with lineweights? [Yes/No] <Yes>:
"" ;Scale lineweights with plot scale? [Yes/No] <No>:
"" ;Plot paper space first? [Yes/No] <No>:
"" ;Hide paperspace objects? [Yes/No] <No>:
"" ;Write the plot to a file [Yes/No] <N>:
"" ;Save changes to page setup [Yes/No]? <N>
"y" ;Proceed with plot [Yes/No] <Y>:
);command
(prompt "\nSuccessfully Plot.....")
(princ)
);progn
;model space
(progn
(command
"-plot"
"y" ;Detailed plot configuration? [Yes/No] <No>:; 
"" ;Enter a layout name or [?] <Model>:
"\\\\Kwifs1\\KWIN_40" ;Enter an output device name or [?] <None>: 
"B1" ;Enter paper size or [?] <A3>:
"m" ;Enter paper units [inches/Millimeters] <Inches>: m
"l" ;Enter drawing orientation [Portrait/Landscape] <Landscape>:
"no" ;Plot upside down? [Yes/No] <No>:
"e" ;Enter plot area [Display/Extents/Limits/View/Window] <Layout>: e
"f" ;Enter plot scale (Plotted Millimeters=Drawing Units) or [Fit] <1:1>: f
"0,0" ;Enter plot offset (x,y) or [Center] <0.00,0.00>:
"yes" ;Plot with plot styles? [Yes/No] <Yes>:
"KWIN39_BW.ctb" ;Enter plot style table name or [?] (enter . for none) <>:
"" ;Plot with lineweights? [Yes/No] <Yes>:
"" ;Enter shade plot setting [As displayed/Wireframe/Hidden/Visual styles/Rendered] <As displayed>:
"" ;Write the plot to a file [Yes/No] <N>:
"" ;Save changes to page setup [Yes/No]? <N>
"y" ;Proceed with plot [Yes/No] <Y>:
);command
(prompt "\nSuccessfully Plot.....")
(princ)
);progn
);if
);Yes
((= pl "N")(prompt "\nYou canceled plotting"));No
);cond
(terpri)
(setvar "filedia" 1)
(setvar "cmdecho" oecho)
);DEFUN
;;;;***********End of program*************