Need help with quick plot lisp

[Akash]

Hi all,

Can somebody guides where I am going wrong with this quick plot lisp.
 

;;;CODING STARTS HERE
==============================================|;

(defun C:Q-PLOT ( / userclick userclick1 pltyp plstyle plsize
                              oldblip oldecho oldsnap dcl_id)

     ;preset the flags
     (setq userclick T)
     (setq userclick1 T)

     ;store system settings
     (setq oldblip (getvar "BLIPMODE")
              oldecho (getvar "CMDECHO")
              oldsnap (getvar "OSMODE"))

     ;set system variables
     (setvar "BLIPMODE" 0)
     (setvar "CMDECHO" 0)
     (setvar "OSMODE" 32)

     ;store the default plotter, plot style and plot size

     ;replace this with your pc3 file
     (setq pltyp "Portable Network Graphics PNG.pc3")
     ;replace this with your ctb file
     (setq plstyle "WF-B&W.ctb")
     ;replace this with your default sheet size
     (setq plsize "User 1 (15000.00 x 8500.00 Pixels)")

     ;get the plotting area
     (setq pt1 (getpoint "\nSelect Lower Left Hand Corner of Plotting Area: "))
     (setq pt2 (getcorner pt1 "\nSelect Upper Right Hand Corner of Plotting Area: "))

     (prompt "\nThanks.........")
     
     ;load the dialog
     (setq dcl_id (load_dialog "q-plot.dcl"))
     (if (not (new_dialog "qplot" dcl_id) ) (exit))
     (set_tile "rb1" "1")
     (set_tile "rb5" "1")

      ; set the tiles

      ;replace this with your first pc3 file
      (action_tile "rb1"
         "(setq pltyp \"Portable Network Graphics PNG.pc3\")")

     ;replace this with your second pc3 file
     (action_tile "rb2"
         "(setq pltyp \"PublishToWeb PNG.pc3\")")

     ;replace all sheet sizes to match yours
     (action_tile "rb5"
         "(setq plsize \"User 1 (15000.00 x 8500.00 Pixels)\")")
     (action_tile "rb6"
         "(setq plsize \"Sun Hi-Res (1600.00 x 1280.00 Pixels)\")")
     (action_tile "rb7"
         "(setq plsize \"Super VGA(600.00 x 800.00 Pixels)\")")
     (action_tile "rb8"
         "(setq plsize \"VGA (480.00 x 640.00 Pixels))\")")
     (action_tile "rb9"
         "(setq plsize \"Super XGA (1024.00 x 1280.00 Pixels)\")")
      (action_tile "cancel"
         "(done_dialog)(setq userclick nil)")
     (action_tile "accept"
         "(done_dialog) (setq userclick T)")

     ;start the dialog
     (start_dialog)

     ;unload the dialog
     (unload_dialog dcl_id)

  ;if OK is selected
  (if userclick

    ;do the following
    (progn

        ;preview the plot
        (command "Preview")

            ;load the "Continue" dialog
            (setq dcl_id (load_dialog "q-plot.dcl"))
            (if (not (new_dialog "choose" dcl_id) ) (exit))

            ;set up the tiles
            (action_tile "cancel"
            "(done_dialog)(setq userclick1 nil)")
            (action_tile "accept"
            "(done_dialog) (setq userclick1 T)")
            (start_dialog)
            (unload_dialog dcl_id)

       ;if it's OK to continue
       (if userclick1

        ;plot the drawing
        (command "-plot" "Yes" "Model" pltyp plsize "Millimeters" "Landscape"
                 "No" "Window" pt1 pt2 "Fit" "Center" 
                 "Yes" plstyle "Yes" "No" "No" "Yes" "Yes")

        ;the plot was Cancelled
        ;return to the main dialog
        (c:autoplot)

       );if userclick1
                  
       );progn

  );if userclick

     ;reset system variables
     (setvar "BLIPMODE" oldblip)
     (setvar "CMDECHO" oldecho)
     (setvar "OSMODE" oldsnap)

 (princ)

);defun c:q-plot

;;;*======================================================
(princ)

;CODING ENDS HERE

I want to use the custom plot style table (WF-B&W.ctb) and have created a plotter for directly plotting PNG files (Portable Network Graphics ).
This program should give options for different paper sizes and two plotters.

But I am getting the below error
 

Quote

error : quit / exit abort

Thanks.
 

[rkmcswain]

Did you copy the .DCL file from this site also (and ensure that the .lsp file can find it..?)

 

My guess is not and it's exiting on this line: 

(if (not (new_dialog "qplot" dcl_id) ) (exit))

 

 

[Akash]

@rkmcswain Thanks for your help.
It is working great for PDF plot, although pdf plotted does not have same name as dwg. I want the pdf to be as same name and location as that of dwg file.
We tried to use this code for plotting PNG after adding our plotter and .ctb style but it is giving the below error.

Below is the code modified by me for plotting PNG
q-plot.lspq-plot.dcl

[BIGAL]

Rather than having one plot routine I have multiple A3 A1 PDF JPG and just pick from menu which one to use, no user entry just works. The pdf is a plot range of layout tabs and uses dwg name. I have it set up for multiple floors using user names so goes to correct floor printer.

 

I am sure Maratovich will post you his link to a multi plot version.

[maratovich]

Thank you BIGAL

 

Akash :
Very much depends on the title block of the user.
Watch an example video (made for another user).

For an accurate answer and help - attach an example of your dwg file.

https://youtu.be/NWmjVNGmn6Y