How to continue a lisp routine after user selection?

[Jason.Rugg]

I have a very simple lisp routine that uses the -PLOT command, currently it is set to print extents. I am trying to make a modified version that prints a window. It works through the point of selecting the print window and then I have to finish out the command via command line instead of the lisp picking back up after the window selection.

Is there someway to get the lisp to continue on its own after the window selection?

[rkmcswain]

Have your tried asking the user for the window corners first and then plug in the result when the command string needs it.

(setq a (getpoint "\nPick first corner: "))
(setq b (getcorner a "\nPick other corner: "))
(vl-cmdf "-plot" blah blah blah a b blah blah....)

[Jason.Rugg]

@rkmcswain I think this will eventually do it. Here is my actual lisp and how I implemented what you suggested. When I run the lisp I have to pick my window points twice and then it tells me the points are invalid and from the command line I have to manually start selecting "fit" and so on.

(defun c:MWBPDF nil
(setq a (getpoint "\nPick first corner: "))
(setq b (getcorner a "\nPick other corner: "))
(command "tilemode" "1")
(vl-cmdf "-plot" "Yes" "Model" "DWG To PDF.pc3" "ANSI expand B (11.00 x 17.00 Inches)" "Inches"
"Landscape" "No" "Window" "Fit" "Center" "Yes" "KCI-monochrome.ctb" "No" "A"
(strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) ".pdf") "No" "Yes")
(princ)
)

[rkmcswain · Accepted solution]

This works for me, tested in 2019.

(defun c:FOO ( / a b)
  (setq a (getpoint "\nPick lower left corner: "))
  (setq b (getcorner a "\nPick upper right corner: "))
  (command "tilemode" "1")
  (vl-cmdf "-plot"
	   "Yes"
	   "Model"
	   "DWG To PDF.pc3"
	   "ANSI expand B (11.00 x 17.00 Inches)"
	   "Inches"
	   "Landscape"
	   "No"
	   "Window"
	   a
	   b
	   "Fit"
	   "Center"
	   "Yes"
	   "acad.ctb"
	   "No"
	   "A"
	   (strcat (getvar 'dwgprefix)
		   (vl-filename-base (getvar 'dwgname))
		   ".pdf"
	   )
	   "No"
	   "Yes"
  )
  (princ)
)

[scot-65]

Ouch...

(if (and
(setq a (getpoint...
(setq b (getcorner...
);and
(progn
;bla bla bla...
);progn
);if

One forgot to test user input.

[Jason.Rugg · Accepted solution]

Had to modify it slightly but here is what worked for me:

;(defun c:MWBPDF (/a b)
(setq a (getpoint "\nPick first corner: "))
(setq b (getcorner a "\nPick opposite corner: "))
(command "tilemode" "1")
(vl-cmdf "-plot"
"Yes"
"Model"
"DWG To PDF.pc3"
"ANSI expand B (11.00 x 17.00 Inches)"
"Inches"
"Landscape"
"No"
"Window"
a
b
"Fit"
"Center"
"Yes"
"KCI-monochrome.ctb"
"No"
"A"
(strcat (getvar 'dwgprefix)
(vl-filename-base (getvar 'dwgname))
".pdf"
)
"No"
"Yes"
)
(princ)
😉