- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I have write the autolisp for plot all layout, but I want to plot all opening drawing in AUTOCAD, anyone help?
(defun c:PRA(/ cmd)
(setq proc (substr (getvar "dwgname") 1 27))
(setq p1 (getpoint "\nPoint Left Coner"))
;;;(setq p1_x (car p1))
;;;(setq p1_y (cadr p1))
(setq p2 (getpoint "\nPoint Right Coner"))
;;;(setq p2_x (car p2))
;;;(setq p2_y (cadr p2))
;;;(setq p1final_x (rtos (p1_x) 2 2))
(foreach Layout (layoutlist)
(command "_plot"
"Y"; Detail Pot
Layout
"A1_ PDF.pc3" ; outputdevice name
"ISO A1 (841.00 x 594.00 MM)" ; Size
"M"; Milemeter
"L"; Landscape
"No"; Plot upside down
"W"; Plot area (Layout) W-by window
(strcat (rtos (car p1) 2 2) "," (rtos (cadr p1) 2 2)); Left Corner Coordinate
(strcat (rtos (car p2) 2 2) "," (rtos (cadr p2) 2 2)); Right Corner Coordinate
"1=1"; Plot scale "Fit <1=1>"
"" ; Plot offset (-5,10) ""="Centre to plot"
"Y"; Plot Style
"NR12NR-01_FP.ctb";Plot style name/"NR12NR-01 - Colour.ctb"
"Y"; Plot with lineweights
"Y" ;Scale lineweights with plot scale
"N"; Plot Paper space first
"N"; Hide paperspace object
(strcat (getvar "DWGPREFIX") proc "-" Layout ".pdf"); actually "" also ok
"N"; save change to page setup
"Y"; prcoeed with plot
);command end
); foreach end
);defun end
Solved! Go to Solution.