Printing Lisp for previous plot, Window selection and Preview needed.

Hello all there,

I tried Macro buttons but could not get what I wanted. Now I am looking for a lisp which can auto select print previous plot and asks for window select 2 points, then shows preview and then print. I hope some one can make this simple Lisp.

Thanks.

(defun c:ppp ()   (command "-plot" "no" "" "previous plot" "" "" "y" "n")   (command "preview")   (princ) )

I found this one but don't know where to put window selection mode?

Hello everyone,

Can someone make a Plot Lisp from these commands.

I need to select windows,preview and then print.

Manual commands...

Command: -plot

Detailed plot configuration? [Yes/No] : y

Enter a layout name or [?] :

Enter an output device name or [?] :

Enter paper size or [?] :

Enter paper units [inches/Millimeters] :

Enter drawing orientation [Portrait/Landscape] :

Plot upside down? [Yes/No] :

Enter plot area [Display/Extents/Limits/View/Window] :

Enter lower left corner of window : Enter upper right

corner of window : Enter plot scale (Plotted

Inches=Drawing Units) or [Fit] :

Enter plot offset (x,y) or

There are lots of examples here to do plots using lisp, we have multiple setups so just pick the correct printer from a menu which has all the correct options built in and out they come. Not sure about the preview 1st pretty sure this question was asked very recently.

Here is an example http://www.cadtutor.net/forum/showthread.php?69132-Printing-LISP-Help...&highlight=Printing-LISP

Hi Bigal,

Thanks for your reply, I have checked that link you told. But this is not working as I want.

If 1st preview is not possible then it is no problem.

Is this possible to make Lisp from these commands I copied from CAD.

Thanks.

My question is why use "previous plot" are you not using the same printer all the time ? Or is the problem that your drawings are all over the place with no drafting standards. I have some help correcting that also.

Hi Bigal,

Thanks for reply.

All drawings were first printed with other printer and were saved with these settings by "Apply to Layout" button. Now I want to print these drawings as PDF with Nitro PDF Creator with all previous settings (which were applied to first PDF print) except a little changing in Plot area by selecting with "Window select" option.

Thanks.

This should suit your needs:

(defun c:prprev ( / firstCorner otherCorner)
  (if (setq firstCorner (getpoint "\n Specify first corner: "))
   (if (setq otherCorner (getcorner firstCorner "\n Specify opposite corner: "))
     (command "-plot" "yes" "Model" "Nitro PDF Creator (Pro 9)" "A4 Rotated" "Inches" "Landscape" "No" "Window" firstCorner otherCorner "Fit" "Center" "No" "" "Yes" "As displayed" "n" "y" "y")
     (princ "\n Invalid Input. Command Cancelled")
 )
    (princ "\n Invalid Input. Command Cancelled")
    )
 
 )

If you want to plot all layouts but a new window setting for say a different title block then just simply edit the link to the code I posted "-6,-6" & "807,560" and save as the name of the new title block then its ready to go next time.

Hello Commandobill,

The code is working as I need. Thanks for your time and help.

Now I can select new window for every drawing, is there any possibility to see preview before printing.

Thanks again.

GBY.

I tested this once with success, but any time there is user input required that isn't controlled by lisp, it can be touchy...

(defun c:prprev ( / firstCorner otherCorner)
  (if (setq firstCorner (getpoint "\n Specify first corner: "))
   (if (setq otherCorner (getcorner firstCorner "\n Specify opposite corner: "))
     (progn
     (command "-plot" "yes" "Model" "Nitro PDF Creator (Pro 9)" "A4 Rotated" "Inches" "Landscape" "No" "Window" firstCorner otherCorner "Fit" "Center" "No" "" "Yes" "As displayed" "n" "y" "n")
     (command "preview")
     (command "-plot" "yes" "Model" "Nitro PDF Creator (Pro 9)" "A4 Rotated" "Inches" "Landscape" "No" "Window" firstCorner otherCorner "Fit" "Center" "No" "" "Yes" "As displayed" "n" "y" "y")
     )
     (princ "\n Invalid Input. Command Cancelled")
 )
    (princ "\n Invalid Input. Command Cancelled")
    )
 
 )

Hello Commandobill,

It shows preview first but if you take print from preview by right clicking, after print it takes print again for the 2nd time. So you have to hit escape when you see preview. Not big issue.

Thanks.

Commandobill rather than plot second time maybe plot anyway and ask after Preview are you happy if NO use Vl-file-delete.