Search the Community

Hi everyone, I need to modify some options in the "Automatic Publish" submenu through a lisp or if not possible through a script, in detail I should modify the "Type" section from the "Multi-sheet" file to "Single-sheet file" and vice versa does anyone know if it's possible? Many thanks in advance

Hi All, i was wondering if i could get some help with this routine. i'm trying to create a view by using a boundary. what i'm trying to do is make a one click print lisp by picking inside of a rectangle around my title block and creating a boundary thus the view to use for printing. thanks, Brian ;;;--- Printpage.lsp (defun C:prp() ;;;--- Turn the command echo off (setvar "cmdecho" 0) ;;;--- Get the inside selection point (setq pt(getpoint "\n Select Inside of Rectangle : ")) ;;;--- Create a Boundary (command "-boundary" "Advanced" "Island" "No" "Nearest" "" pt "") (command "view" "entlast" "pt" ) (command "-view" "r" "pt" "plot" "yes" "model" "Laserjet 5.pc3" "ANSI A (8.50 x 11.00 INCHES)" "inches" "portrait" "no" "v" "pt" "fit" "0.00,0.25" "yes" "tfc.ctb" "yes" "no" "no" "yes" "yes") ;;;--- Turn the command echo back on (setvar "cmdecho" 1) ;;;--- Suppress the last echo for a clean exit (princ) )

Hi, I've just started using AutoCAD and would need to print out my first piece of work. I'd like to create a new plot styles so that my layer colors don't print as displayed (i.e. I want my blue, red and white layers to print as black and my green layer to print as yellow). According to all tutorials/instructions I should get a long list of colors (color 1, color 2, color 3 etc) under "plot styles" in the plot styles table editor. However, there are no colors there. Just one that says "normal". How can I choose which layer color to print as what color if I have nothing to choose from? I have attached a screen shot of my plot style table editor. Please could anyone help? I'm using a student version of AutoCAD 2015 (version J.51.M.256) Thanks, Sofia

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..!!

Hi All. I was wondering if anyone knows of a tool or a way to basically, batch PDF multiple viewports or specific coordinates within a paper layout. I have an A0 drawing where i need a print of the A0 drawing, and multiple grids set to A4 then a Jpeg showing the full plan with the grids on. I have set up a script using the -plot command and set the Coordinates for each grid. However it is a bit slow and cumbersome to do this on multiple drawings. Does anyone know of a way to maybe either through a script or a lisp, to open a drawing. Find certain instances of a block or polyline and print (with certain parameters like include an outline of 10mm around the edge of the grid) and when it has no more blocks to search for, it saves, closes and opens next drawing to search and print? Any help is very much appreciated. Thanks

Hi, I am newbie to autocad , for some reson when i am printing i am unable to get dark lines while the text colour is fine. I checked the various pages in this forum but it was not helpful. I am not quite aware about the layers concept.So except that i tried doing everything possible Monochrome.ctb was selected,I tried printing from both layout and pdf format. I tried also by keeping the scale lineweight option on.I avoided using plot lineweight because it was becomming too messy with that on. In the desktop everything appears to be light This is the print of the image how it appears https://postimg.org/image/lpivr667p/ 2.1.pdf

Hi everybody, I have a big problem.... I have about 100 DWG with a lot of sheet in the same model space and i must print every sheet, so i am looking for a script in VBA or lisp to create from multiple areas to plot in model space, a layout tab for each area vba autocad. I found a lisp script, but it doesn't run (plotDWGarr). (http://www.cadforum.cz/cadforum_en/plotting-a-series-of-drawing-frames-composed-in-a-dwg-drawing-tip7585) Do you know another similar script o to write a VBA to do it? Thank you very much in advance

Hello, guys! So, I have this 3D view of my project and my personal layout on the same .dwg file. Attached herewith is a screenshot of the 3D view, that I want to place on my layout, and my own personal layout. Can somebody please give me a step-by-step procedure on how to this. An example is also attached for your reference. Thank you very much & I appreciate whatever help you can give me

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?

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

Hello there, I have a file (probably exported from rhino, not sure about that though) where all objects have rgb colour properties to them. White lines are RGB 255, 255, 255, which makes them look fine in model space, though they look white on white in paper space. I would like to convert those objects to WHITE, so that I can set a print profile that would make them print black if that makes sense? At the moment I can only select the objects one by one, which is nearly impossible as the drawing is quite big. I tried to use quickselct, which kind of worked, though it did not allow me to select objects belonging to blocks (of which there are plenty, unfortunately!). Thanks a lot for any help! G

Hi guys, Is it possible to specify zoom factor that will show on my monitor same size as will printed on paper? For example: i'm making drawing in 1:100 scale in milimeters, and before printing it i want to make sure that everything is readable. I know that depands on screen resolution, dpi and pixel size.

Models with different sizes (m² or ft²) and scales (1:50, 1:100, 1:200, etc.) are divided into different numbers of layouts. I have seen they are either put into a single layout or divided into several layouts. How do you know into how many layouts and at which points a model should be divided to print it out with the right scale and paper size? Thanks in advance.

Hi all, i am new to AutoCad and as the subject has mentioned, i cant seem to find anyway to correct the size of the plan it appears on the paper. Played around with scales but my it does not work at all.. i Have to submit in a day's time and really need help asap!

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) )

Hello All. I need help with AutoCAD 2013 I have multiple drawings with 100's of tabs inside, I would like to either export or print out all of the tab names. If anyone knows a way to do this, I would love to hear about it. Thank you in advanced, Javier

Hello, I have been able to fix my hidden line prints by using the 'hideprecision' variable. I would like to do the same with the 'shades of gray' setting. I have a few mviews in a single layout tab and when I preview or plot the linework is all chopped up like it is at a very low res. Any and all help is appreciated. Thanks, Phil

is that possible from lisp to plot multiple print out as a selected rectangle. attachment file use sample format. AutoPrint.rar

Hi! how to set out a drawing to a Layout from model space? Please explain step by step process. Atul

I just want to print a CAD drawing according to some required scale. Please help me I have never done this before. I needs some hint. 1:1 1:2 1:3 1:4 1:5 1:10 1:100 Another thing what if I convert the drawing having specific scale into PDF format and print it. Are the scale remain same? If I scaled the diagram say in A4 paper then print this on A3 paper the scale remain the same?

when I want to use Arabic text in AutoCAD, I use times new roman font, but my problem is that the displayed text is sooo wide in an annoying way, & if I go to properties to decrease the width to 0.6 for example, it would appear compressed! in addition to that when I print the file the text would be backwards & detached! any suggestions for my problems? I am having this problem in all late AutoCAD versions!

I have been using Autocad on my windows laptop for the past 4 years now. LAst month, i purchased the new iMac. I copied my old drawing template and plot styles etc over to my iMac. Heres the problem: When i plot / print a set of plans etc, the lineweights do not come out as clear as what they do on my old laptop. I dont really know how to clearly explain it, but the lineweights almost seem to come out too similar, however they are slightly different. I have gone over the line weights to see if they're all correct and the same as on my laptop, and they are. Im using, and always have been using my canon mx870 printer which is supported both by my laptop and the iMac. Any help would be greatly appreciated, because until then, ill have to carry on using my laptop PLEASE HELLLLLP!!!!!!!!!

I have a simple drawing (very suitable since I am very much a newbie) with the object drawn on Layer 0 and the dimensions on another layer named (by way of novelty) Dimensions. When I sent this drawing to print I only get Layer 0 - no dimensions. In photoshop-type applications the process is called flattening, whereby all the layers are compressed into the base layer. Is there a similar process in AutoCAD? Do I have to use it to get all layers in the one print-out? How should I go about getting both object and dimensions to print?

So I have this layout page with 4 viewports on it. all of them are set to print in legacy hidden. 3 of them print perfectly. t 4th one prints partially hidden, paritally wireframe. 3D objects in the faulty vport that are large print hidden, smaller objects are in wireframe. and medium objects can be partially see through. This is the weirdest error I have ever seen in autocad. anyone have any ideas? also. I tried copying the working vports. didnt work. If I make the faulty one smaller, only show half my image, it becomes all hidden. showing the full drawing screws it up. (maybe too much data for the video card?)

Hello guys,I have a problem.Need to make the dwg file into pdf but I also need to set margins(10mm top,right,bottom and 20mm on the left side),tried with some programs but it only gives me the option to set "global" margins and if i use CAD it trims the drawing.I'm working with A4(210,297).