Jump to content

Search the Community

Showing results for tags 'plot'.

More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


  • CADTutor
    • News, Announcements & FAQ
    • Feedback
  • AutoCAD
    • AutoCAD Beginners' Area
    • AutoCAD 2D Drafting, Object Properties & Interface
    • AutoCAD Drawing Management & Output
    • AutoCAD 3D Modelling & Rendering
    • AutoCAD Vertical Products
    • AutoCAD LT
    • CAD Management
    • AutoCAD Bugs, Error Messages & Quirks
    • AutoCAD General
    • AutoCAD Blogs
  • AutoCAD Customization
    • The CUI, Hatches, Linetypes, Scripts & Macros
    • AutoLISP, Visual LISP & DCL
    • .NET, ObjectARX & VBA
    • Application Beta Testing
    • Application Archive
  • Other Autodesk Products
    • Autodesk 3ds Max
    • Autodesk Revit
    • Autodesk Inventor
    • Autodesk Software General
  • Other CAD Products
    • BricsCAD
    • SketchUp
    • Rhino
    • SolidWorks
    • MicroStation
    • Design Software
    • Catch All
  • Resources
    • Tutorials & Tips'n'Tricks
    • AutoCAD Museum
    • Blocks, Images, Models & Materials
    • Useful Links
  • Community
    • Introduce Yourself
    • Showcase
    • Work In Progress
    • Jobs & Training
    • Chat
    • Competitions


  • Programs and Scripts
  • 2D AutoCAD Blocks
  • 3D AutoCAD Blocks
  • Images
    • Backgrounds

Find results in...

Find results that contain...

Date Created

  • Start


Last Updated

  • Start


Filter by number of...

Found 84 results

  1. Hi guys, This one has been giving me some headache. Could anyone of you point me into the right direction, I'd be most thankful. Software used: ZWCAD2014 on a Windows 10 machines. For those who may not know about ZWCAD: it is an actual and legal clone of AutoCAD 2012 official purchased at dealer store, the software is created by ZWSOFT. Just think of it as AutoCAD 2012, it makes understanding easier :-). In our company we have 8 workstation using the same ZWCAD program We only plot / publish from the layout tabs We all use DWG to PDF as it came with the software The created PDF's are send by email or they get plotted on our printer/plotter for internal use So far so good... but the problem is when I create an A3 (for example but it is the same on any paper size) it plots normal to a good looking PDF. If the same DWG is opened by one of my collegues, the plot gets cropped off, there are parts missing. I have attached the example output. I know fore sure some of us (me including) have tried to change the plottable area ages ago, reason for that was that the "default DWG to PDF" had way to big of a non printable area. To be in short: my DWG plots good on my workstation, and my collegues DWG plot okay on his workstation. But between all of the workstation it all gets messed up. We cannot plot each others drawings to PDF without having problems with the plottable area. I thought, let me check all the settings in the driver (see attachement) and I have put them all the same on another workstation. It did not change at all. At last I tried copying my PC5 file to the collegues.... still nothing changes. Now I can only think of a complete "re-install" of the software in order to get them working the same all the same once again. Before uninstalling and reinstalling the ZWCAD program and it's utilities, I'd thought maybe I'd ask here if someone could help me out. Thanks for the help!
  2. Hi all, my lisp knowledge is very limited so I was hoping someone could help mw with this. I have a lisp which I copied from a Autodesk forum (https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/export-to-pdf-lisp-routine/td-p/5704455) and tweaked a little to suit my needs. It basically plot all layout tabs to PDF (with revision letter at the end of the pdf name). It works just fine. Now, what I want it to do is to instead of printing all layouts, read a csv file "title_block.csv" and only plot to PDF layouts named in that csv file (column B) starting from cell B2. It would be similar to what Lee Mac's UpdateTitleBlockV1-9 does to update title blocks. Any help would be much appreciated Cheers #(vl-load-com) (defun c:demo (/ hms:get_atts filename hnd lst lst1 name otab path ss) (defun hms:get_atts (enm / att obj) (if (or (and (eq (type enm) 'ENAME) (setq obj (vlax-ename->vla-object enm)) (eq (vla-get-hasattributes obj) :vlax-true) ) (and (eq (type enm) 'VLA-OBJECT) (setq obj enm) (eq (vla-get-hasattributes obj) :vlax-true) ) ) (mapcar '(lambda (att) (cons (vla-get-TagString att) (vla-get-TextString att)) ) (vlax-invoke obj "GetAttributes") ) ) ) ;;(cond ((setq path (acet-ui-pickdir "Select directory" (getvar "dwgprefix"))) ; check that pdf directory exists (cond ((setq dwgpre (strcat (getvar "dwgprefix") "PDF")) (if (= (vl-file-directory-p dwgpre) nil) (vl-mkdir dwgpre) ) (setq pdfname (strcat (vl-filename-base (getvar "dwgname")))) ;----------------------------------------------------------------------- (setq otab (getvar 'CTAB)) (foreach layt (layoutlist) (setvar 'CTAB layt) (if (setq ss (ssget "_X" (list '(0 . "INSERT") '(2 . "A1 TITLE NCL - new logo") '(66 . 1) (cons 410 (getvar 'CTAB))))) (progn (setq hnd (ssname ss 0) lst (hms:get_atts hnd) ;lst1 '("DRAWING_NUMBER" "SHEET_NUMBER" "REVISION_NUMBER" "SHEET_SIZE") lst1 '("RV") name "" ) (foreach n lst1 (if (setq a (assoc n lst)) (setq name (strcat name "-" (cdr a))) ) ) (setq sht (strcat(getvar "ctab"))) (setq filename (strcat dwgpre "\\" pdfname "-" sht " Rev " (vl-string-left-trim "-" name) ".pdf")) ;(command "_.-export" "_PDF" "_C" "_YES" "ISO full bleed A3 (420.00 x 297.00 MM)" "_M" "_L" "1:2" "_YES" "A3.ctb" "_YES" filename) (command "_.-PLOT" "Y" ;Detailed plot configuration? [yes/no] Layt ;Enter Layout name or [?],layout1: "Dwg To PDF.pc3" ;Enter an output device name "ISO full bleed A3 (420.00 x 297.00 MM)" ;Enter paper size "M" ;Paper units: "M" for mm "L" ;Enter drawing orientation: "L" for Landscaping "N" ;Upside down? "N" "E" ;"E" for extents "1:2" ;Plot scale: Custom "1:2" "C" ;Counter "c" "Y" ;Plot Style? "y" "A3.ctb" ;Enter plot style: "A3.ctb" "Y" ;Plot line weights? "N" ;plot line scaling? "N" ;Paper space first? "N" ;Hide? filename ;Directory to save "N" ;save changes to page setup? "Y" ;proceed with plot? ); command ) ) ) (setvar 'CTAB otab) ) ) (princ) )#
  3. Dear Team, Greetings..! I have multiple drawings in one .dwg file in Model (Ref. UNIT 4500.JPG file). I need to covert PDF's with help of "Page Setup Name" Each name Plot area selected. (Ref. Page Setup.jpg file). the converted pdf file with name of same as Page setup name & automatically saved in WRT to Unit path.(Ref. Path.JPG) Kindly help me out I have hundreds of drawing to covert every time of small correction..!!
  4. This code used to work fine for plotting to a .pdf: (defun c:SendToPDFefa() (vl-load-com) (if (setq filename (getfiled "Save File Location" "" "pdf" 1)) (progn (command "-plot" "yes" "" "DWG To PDF.pc3" "ANSI expand B (11.00 x 17.00 Inches)" "inches" "landscape" "yes" "Extents" "fit" "center" "yes" "acad.ctb" "yes" "a" filename "no" "yes") ) ) ) Now it fails with this output: Command: SENDTOPDFEFA Unknown command "P:\randomfolderstructure\ACADFILENAME.PDF". Press F1 for help. Unknown command "NO". Press F1 for help. Unknown command "YES". Press F1 for help. nil I know IT had been adjusting printers when this happened, but i don't know if that is coincidental. I have two questions: How does the code need to be adjusted What could have caused the code to fail Greg
  5. Hi all, I'm at my wits' end on this. I have a few drawings that WON'T plot a LINE according to the LINEWIDTH that I've specified in the LAYER PROPERTIES MANAGER. Usually it's just changing the MSLTSCALE to 1 (or vice versa). But these handful of drawings aren't working. I do plot by PLOT STYLE, but still nada. I have searched high and low on various forums, but no go. I have a feeling there must be a variable I'm missing (I just upgraded to 2018MAP 3D). Thx all,
  6. Hello, I have moved to a new office with a new computer, and I am trying to set up ACAD to where it PUBLISHes all the sheets to a single PDF, with PUBLISH quality (not plot quality). I have ten (10) layouts in a drawing, and all the layouts are set up the same way in Page Setup mgr. In page setup manager, for each one of the layouts, I've selected the BlueBeam PDF printer/plotter, an ARCH_E1 _(30.00_x_42.00_Inches) Paper size, a 'Plot style table' set to monochrome.ctb (SHOULD IT BE .stb???) with 'display plot styles' checked. Actually, just see this: Here are the problems: 1. The computer wants to publish by plotting ONE SHEET AT A TIME AND ASKING ME WHAT TO NAME IT AND WHERE TO PUT IT EACH TIME.. 2. The quality of the resultant PDF is terrible, and looks like it was plotted individually instead of published (I have noticed a difference between plotting and publishing). See this: I need some assistance, please! Thanks!
  7. I have an odd issue with AutoCAD 2014. I have two different files which should be identical when I go to plot- exact same xref'ed title block, same paper size set, same plot style, same output (dwg to pdf in this case). This particular title block is set to plot properly at 1:1 paperspace on Arch D 24x36 by window, with center the plot selected. Sure, I could fit to paper, but then everything would be a tiny bit out of scale. I've triple-checked all of these settings between the two files; I even changed drawing units to mm temporarily and measured both title blocks in paper space to make sure they were the exact same size. However, in one file the title block doesn't fit - both sides hang off the paper space by a tiny bit. I can't think of what variable I'm overlooking that may be causing this. The outputs should be exactly the same, but one file refuses to play nice and fit the whole title block to the plot area! EDIT: I think I know what the problem is, but not how to fix it. See attached image. Basically, I need to get the intersection of the dashed lines to the center of the red circle (follow the blue arrow). That's how the correct file looks when it plots.
  8. Hey guys, I am having an issue I've never seen before. I am trying to publish a set of drawings into one PDF file with DWG to PDF. However, when I do it looks like this (blackout added): When I zoom extents the drawing, it shows there's nothing out there. The page size is 11X17 and it plots to that size. When I plot the drawings individually it looks like this: I am really stumped on what it could be and welcome any insights.
  9. Hi i got a plot plan to redraw in autocad, but something looks off with the bearings. I know bearing usually looks like this S30D57'08"E but the bearings on the plan looks like this N19d36'47" there is not direction at the end of it.
  10. HI all, I'm trying to plot in model space and the printer is cutting off part of the drawing. I choose plot-->extents --> center the plot --> fit to paper. The x coord is always 0, however the y coord is always at .09280. I've tried adjusting the y to 0, and unchecking the plot, but the cutoff always happens. Keep in mind, this is in a handful of drawings. I've plotted to a different plotter (XEROX) and it works perfectly fine. I've switched the PLOTOFFSET variable and it makes the problem worse. My fear is this is a driver issue, Canon doesn't support this plotter anymore. Many thanks for any help. autocad map3d 2012, win7.
  11. We are getting some serious issues with plotting in Autocad. In one of our drawings, someone dimensioned the diameter of a circle. Here is where things get weird: It showed up in Paper space. It showed up when it was plotted to our Ricoh printer. When it was plotted to our HP Designjet the MText was gone. No dimension line, no text, nothing. The weirder thing is this behavior is inconsistent. I've plotted it on two separate computers and it shows up just fine. But sometimes it won't show up at all. Has any one else experienced this issue or a similar issue? Or does anyone know any reason that MText will sometimes not show up when plotted to a certain printer?
  12. I have four simple drawings in 4 separate files. I want to print them in 4 corners of one A4 sheet. What is the easiest way to accomplish this task?
  13. Hey everyone, I am new to this whole forum thing, so I apologize if I should be starting a new thread but I do have a question related to this that I was hoping you could help with. I have been trying to automate my plotting process using MColor 9 which is a extension to CAD for color renderings. The issue is I am trying to plot multiple tabs at once, or back to back automatically. The command for plotting with Mcolor is "MCO_PLOT", but it will only do one tab at a time. I have created a LISP that has gotten me really close to where I want to be, which is: (defun C:mco-plot () (foreach lay (layoutlist) (setvar 'ctab lay) (command "_mco_plot") ); end foreach ); end defun *I changed the new command from "mco_plot" to "mco-plot" so it did not conflict. This LISP will automatically plot each tab back to back, but the hang up is that on each tab it asks me where I want to save the PDF. What I really need is something to add to this LISP function that will either have the PDF automatically save to the current drawings folder, or just have me specify the location once and save the PDF's for all the tabs in that location. I know this is unique because not everyone has MColor 9, I hadn't even heard of it before until my current job. However, I think there must be a solution out there since the only part I need now is a way to specify the saving location one time (one time per project) and then I would be good to go. Thank you for your time!
  14. Hi All, So I am having an issue that I have never come across before and hoping to get some suggestions here to fix the issue. Basically my usual paperspace template with my titleblock now has really thick lines and the text has become invisible unless you hover over it. Just to clear up a few things: - I have checked my page setup and there is no difference to before and it is set up to match the correct page size. "Plot with plot styles" / "Plot object lineweights" are both turned off. - Lineweights are also turned off. - All layers are switched on and none have been frozen in paperspace / viewport. - No items are on "defpoints" layer. Also just to add that this is now happening to every drawing I am opening which makes me think that it is not related to one specific drawing, as it seems to be an autocad configuration issue. Any help would be hugely appreciated as I have some deadlines to meet and cant be plotting that as my paperspace view! Help please!
  15. All, I need some help with this PDF plot lisp that was created at work, this lisp was created to take material list sheets PDF them and drop them into the source folder with the sheet name as the file name. I was wondering if someone could help figure out how to combine the pages together to create one file once they are converted to PDF all as one step. ;;;This is the lisp routine to Plot the material list to individual PDF files with the job name and the page number ;;;as is does in the Plot Material List button. ;;; plotpdf.lsp (defun c:PlotPDF (/ ob ss bn mn mx) (vl-load-com) (setq cnt 0) (setq dir(getvar "dwgprefix")) (if (and (progn (initget "B") (setq ob (entsel "\nSelect Block/B for blockname: ")) (cond ((eq ob "B") (setq bn (getstring "\nEtner Block Name: ")) ) ((and (eq (type ob) 'LIST) (vlax-method-applicable-p (vlax-ename->vla-object (car ob)) 'getboundingbox)) (setq bn (cdr (assoc 2 (entget (car ob)))))))) (tblsearch "BLOCK" bn) bn (setq ss (ssget "_X" (list '(0 . "INSERT")'(410 . "Model")(cons 2 bn)))) ) (progn (vla-zoomextents (vlax-get-acad-object)) (repeat (setq i (sslength ss)) (setq ML "Material-List") (setq cnt (1+ cnt)) (vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 'mn'mx) (command "plot" "yes" "model" "DWG To PDF.pc3" "ANSI A (8.50 x 11.00 Inches)" "inches" "LANDSCAPE" "no" "Window" (trans (vlax-safearray->list mn) 0 1) (trans (vlax-safearray->list mx) 0 1) "fit" "center" "yes" "acad.ctb" "yes" "As Displayed" (strcat dir "ML-" (itoa cnt) "-"(getvar "dwgname")) "no" "yes" "yes" "yes") (command ".delay" "750") ) ) (princ "\nNo Blocks Selected: ") )(princ) ) Thanks, Brian
  16. Hi all! I'm new to AutoCad, having only done a few small jobs over the last year. Mainly floor plans for planning permission. I've finished the plan and I'm tearing my hair out trying to get it to export to PDF to scale. I've done a few before on A4 and they've been fine. I got the plan to 1:200 scale fine on A4 (weirdly, only when I set the scale to 1:20), but when I went up to A3, the scale was way off. A quick measure gave me a scale of around 1:143. I assumed printing at "actual size" from adobe onto A3 would simply give me a scale of 1:100. This is obviously not the case. This is an urgent job (needed to be completed yesterday!) and I've run out of ideas! Any help would be greatly appreciated.
  17. Hi Guys I came across the following routine, from https://forums.autodesk.com/t5/forums/forumtopicprintpage/board-id/130/message-id/336228/print-single-message/false/page/2 However, when I tried it it gives me an error message ; error: no function definition: LM:ODBX How can I get this to work and also change the default size to A1 rather than A2. (defun c:RV ( / ) (LM:ODBX (function (lambda ( doc ) (princ (strcat "\nOpening file : "(vla-get-name doc))) (vlax-for lay (vla-get-layouts doc) ; (if ( = "Model" (vla-get-name lay)) ; (progn (setq PaperSize "ISO_A2_(594.00_x_420.00_MM)");-----default paper size (princ "\nSearching for Title Block") (vlax-for blk (vla-get-blocks doc) (cond (( = (vla-get-name blk) "Title_A4") (setq PaperSize "ISO_A4_(297.00_x_210.00_MM)")) (( = (vla-get-name blk) "A3 Drawing Sheet") (setq PaperSize "ISO_A3_(420.00_x_297.00_MM)")) (( = (vla-get-name blk) "Title_A2") (setq PaperSize "ISO_A2_(594.00_x_420.00_MM)")) (( = (vla-get-name blk) "Title_A1") (setq PaperSize "ISO_A1_(841.00_x_594.00_MM)")) );cond );vlax-for blocks (princ (strcat "\nPaper Size Assigned : " PaperSize)) ; );progn ; );if model space (vla-put-ConfigName lay "DWG To PDF.pc3") ;set the plotter (vla-put-CanonicalMediaName lay PaperSize) ;set the paper size---> (vla-put-PlotType lay "1") ;plot area extens (vla-put-CenterPlot lay "1") ;center plot (vla-put-PaperUnits lay "1") ;set units to mm (vla-put-PlotWithLineweights lay "0") ;turn off lineweights (vla-put-PlotWithPlotStyles lay "1") ;turn on plot styles (vla-put-StandardScale lay "0") ;fit to paper (vla-put-stylesheet lay "Grayscale.ctb") ;set the CTB (princ (strcat "\nPlot settings done for : "(vla-get-name lay))) );vlax-for (princ "\n--------------------------------------------------") ) ) nil t ) (princ) );defun
  18. toxicsquall

    Plot in 3D PDF

    Good afternoon. Well recently I saw a 3D PDF and I want to know if Autocad 2016 can plot a 3d object to this 3D PDF. Ist that possible? What and how I'll do such thing?
  19. Hello! I'm hoping someone knows a fix for this. I'm working on a large project, and I have 14000 feet of plan & profiles split into 500 ft sections, with a raster image as the background of all the plan views. The plan viewports are rotated 36 degrees using mvsetup. The problem is that when I go to any of the layout tabs to view my sheet the raster image appears to have shifted over, but when I plot the sheet the raster is in the correct spot and everything looks good. I would like to work within the layouts, but can't when the images appears out of place. Sorry for the long explanation, I just wanted to cover as much of the problem as I could. Any help is greatly appreciated, and thank you in advance!
  20. I am trying to use named plot styles (set in my home-made .stp file) to manage the print output of my layouts. (The basic idea is to print all objects from all layers, what ever layer colour they have, in black; additionally I would like to play with lineweights, and I consider named plot styles to be the best solution for this.) The problem is: my named plot styles do not have any effect what so ever on the plot output. They also do not have effect on the screen output, although in the page setup the tickmark "Display plot styles" is set. Two interesting observations in addition: 1) Used on the model (as opposed to the paper layout viewports), the named plot styles do have effect. I.e. my objects are represented black, and with different lineweights, as long as "Display plot styles" is tickmarked. After un-ticking it, the model shows coloured lines as expected, and vice versa. 2) On the paper layout viewport, I do not get any visible difference from applying the named plot styles (as I said above), with one interesting exception: Used on the frame that comes with the viewport on the paper layout, the named plot styles have effect. E.g. when I set the colour of the respective named plot style to green and assign this plot style to the layer where the frame sits, the frame gets green. However, nothing happens when I do this with the layers where my ordinary objects (polylines) sit. I have spent now an entire 8 hours experimenting, searching in fora, etc. - to no result. I am using Autocad Architecture 2015. I started my project with the default settings, which was to use .ctb (colour plot styles) rather than .stb (named plot styles). I then changed this by using CONVERTCTP and CONVERTPSTYLES; from the resulting .stp-file, I deleted the colour mapping table in order be able to add more styles (as this is not possible when the colour mapping table is included.) Any ideas how to solve the issue? Am i doing something wrong? Or is it a bug, and could be solved by using Autocad Architecture 2016?
  21. Hi. I'm a beginner in CAD, I'm going to ask how to draft a lot using the coordinates(latitude and longitude) from google earth. Example: Point A. Latitude: 11 Degree 18'2.22"N Longitude: 124 Degree 57'46.89"E Please check my attachment picture.
  22. Hi to everyone!... Someone knows a Lisp to plot a internal sheets of a model space file? Eg.: I have a dwg file with 10 sheets internal, I know how to put name at each sheet (NEWVIEW) and it appears at same place of Extend, Display or Window at plot configuration screen. If I put names as a numbers: 1, 2, 3,..., 10, it's possible to select one page or all to plot at the same time? Or create a Lisp that can help it!?... Thanks in advance!... Its possible using a comand: -plot Detailed plot configuration? [Yes/No] : y Enter a layout name or [?] : Enter an output device name or [?] : Canon iR2525 Enter paper size or [?] : Enter paper units [inches/Millimeters] : m Enter drawing orientation [Portrait/Landscape] : Plot upside down? [Yes/No] : Enter plot area [Display/Extents/Limits/View/Window] : v Enter view name : 3 (the view name) Enter plot scale (Plotted Millimeters=Drawing Units) or [Fit] : Enter plot offset (x,y) or : c Plot with plot styles? [Yes/No] : Enter plot style table name or [?] (enter . for none) : Plot with lineweights? [Yes/No] : Enter shade plot setting [As displayed/legacy Wireframe/legacy Hidden/Visual styles/Rendered] : Write the plot to a file [Yes/No] : Save changes to page setup [Yes/No]? Proceed with plot [Yes/No] :
  23. Hello, I'm having a issue with pdfs plotted from CAD that are being used for Bluebeam software where the pdf is unusable. The file size is less that 1mb, I have unticked the box to include layer information in the plot pdf options, but the file is sluggish zooming in and out etc. Can anyone help with this problem? Cheers!
  24. Okay, so i feel very stupid for asking for help with this but to save my life I cannot figure this out. We have anywhere from 30-50 sheets for site plans. Opening each sheet and plotting them takes anywhere from 30 min. to an hour. This is taking up too much time when I should be drafting instead of hitting the open, plot, close buttons. Can someone please explain to me from start to finish of how to, I guess, set up sheet sets to plot the whole set of plans at once? I think a sheet set would be used. Not sure about that though. I would GREATLY appreciate any help. Thanks everyone. Miller
  25. Here are a few Print Lisp that I've come up with help of a multitude of people on this website, I thought that I would share them for whoever would like to use them. Enjoy!!! ;;; Shop Prints 18x24 (defun c:Shop (/ ob ss bn mn mx) (vl-load-com) (pltnum) (if (and (progn (initget "B") (setq ob (entsel "\nSelect Block/B for blockname: ")) (cond ((eq ob "B") (setq bn (getstring "\nEtner Block Name: ")) ) ((and (eq (type ob) 'LIST) (vlax-method-applicable-p (vlax-ename->vla-object (car ob)) 'getboundingbox)) (setq bn (cdr (assoc 2 (entget (car ob)))))))) (tblsearch "BLOCK" bn) bn (setq ss (ssget "_X" (list '(0 . "INSERT")'(410 . "Model")(cons 2 bn)))) ) (progn (vla-zoomextents (vlax-get-acad-object)) (repeat (setq i (sslength ss)) (vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 'mn'mx) (repeat xplta (command "plot" "yes" "model" "Your Plotter Name.pc3" "18x24(ARCH C)" "inches" "LANDSCAPE" "no" "Window" (trans (vlax-safearray->list mn) 0 1) (trans (vlax-safearray->list mx) 0 1) "fit" "center" "yes" "Your.ctb" "yes" "no" "no" "yes" "yes") ) ) (princ "\nNo Blocks Selected: ") ) ) (defun pltnum () (setq numplt (getint "\nEnter Number of Plots <1>: ")) (if (= numplt nil) (setq xplt 1) (setq xplt numplt)) (if (<= xplt 15) (setq xplta xplt) (setq xplta 15)) ) (princ) ) ;;; LAYOUT PRINT 18x24 (defun c:Tab ( / CURRENTTAB) (pltnum) (setq CURRENTTAB (getvar "ctab")) (repeat xplta (foreach LAYOUT (layoutlist) (setvar "ctab" LAYOUT) (command "-plot" "yes" "" "Your Plotter Name.pc3" "18x24(ARCH C)" "Inches" "LANDSCAPE" "NO" ;PLOT UPSIDE DOWN "EXTENTS" "FIT" "center" "YES" ;PLOT WITH PLOTSYTLES "Your.CTB" "NO" ;PLOT WITH LINEWEIGHTS "NO" ;SCALE LINEWEIGHTS WITH PLOT SCALE "YES" ;PLOT PAPER SPACE LAST "NO" ;REMOVE HIDDEN LINES "NO" ;WRITE THE PLOT TO A FILE "NO" ;SAVE CHANGES TO LAYOUT "YES");PROCEED WITH PLOT ) ) (defun pltnum () (setq numplt (getint "\nEnter Number of Plots <1>: ")) (if (= numplt nil) (setq xplt 1) (setq xplt numplt)) (if (<= xplt 15) (setq xplta xplt) (setq xplta 15)) ) (setvar "ctab" CURRENTTAB) (princ) ) ;;; Printpage18 (defun c:prp18 (/ ss mn mx) (vl-load-com) (pltnum) (if (setq ss (ssget "_:S:E" '((0 . "INSERT,LWPOLYLINE")))) (progn (vla-getboundingbox (vlax-ename->vla-object (ssname ss 0)) 'mn'mx) (repeat xplta (command "plot" "yes" "model" "Your Plotter Name.pc3" "18x24(ARCH C)" "inches" "LANDSCAPE" "no" "Window" (trans (vlax-safearray->list mn) 0 1) (trans (vlax-safearray->list mx) 0 1) "fit" "center" "yes" "Your.ctb" "yes" "no" "no" "yes" "yes") ) ) ) ) (defun pltnum () (setq numplt (getint "\nEnter Number of Plots <1>: ")) (if (= numplt nil) (setq xplt 1) (setq xplt numplt)) (if (<= xplt 15) (setq xplta xplt) (setq xplta 15)) ) ;;; PDF's All Tabs to source drawing folder with Tab name. (defun c:pdf ( / *error* cm fd ) (defun *error* ( msg ) (if (= 'int (type cm)) (setvar 'cmdecho cm) ) (if (= 'int (type fd)) (setvar 'filedia fd) ) (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")) (princ (strcat "\nError: " msg)) ) (princ) ) (foreach layoutname (vl-remove "Model" (layoutlist)) (command "._layout" "set" layoutname) (progn (setq fd (getvar 'filedia) cm (getvar 'cmdecho) ) (setvar 'filedia 0) (setvar 'cmdecho 0) (command "-plot" "_Y" ;; Detailed plot configuration? [Yes/No]: "" ;; Enter a layout name <Current-Layout>: "dwg to PDF" ;; Enter an output device name: "ARCH expand C (18.00 x 24.00 Inches)" ;; Enter paper size: "_I" ;; Enter paper units [inches/Millimeters]: "_L" ;; Enter drawing orientation [Portrait/Landscape]: "_N" ;; Plot upside down? [Yes/No]: "_E" ;; Enter plot area [Display/Extents/Layout/View/Window]: "_F" ;; Enter plot scale (Plotted Inches=Drawing Units) or [Fit] <1=1>: "_C" ;; Enter plot offset (x,y) or [Center]: "_Y" ;; Plot with plot styles? [Yes/No]: "tfc.ctb" ;; Enter plot style table name (enter . for none): "_Y" ;; Plot with lineweights? [Yes/No]: "_N" ;; Scale lineweights with plot scale? [Yes/No]: "_N" ;; Plot paper space first? [Yes/No]: "_N" ;; Hide paperspace objects? [Yes/No]: (strcat ;; Enter file name: (getvar 'dwgprefix) (cadr (fnsplitl (getvar 'dwgname))) "-" (getvar 'ctab) ".pdf" ) "_N" ;; Save changes to page setup [Yes/No]: "_Y" ;; Proceed with plot [Yes/No]: ) (setvar 'cmdecho cm) (setvar 'filedia fd) ) (princ "\nCommand not available in Modelspace.") ) (princ) )
  • Create New...