Topic: There has to be a better way to deal with subroutines

[Daniel J. Ellis]

This is my current code:

Code: [Select]

(SETQ fpt (GETPOINT "\nSelect start point: "))
(POINT2D3D (fpt))
(SETQ
fpt cpt
cpt nil
)
cpt is the output of the POINT2D3D subroutine.

I'm repeating this process for a number of later points, hence wanting to use the subroutine.  Surely there has to be a more efficient way to move the sub's output back to the original variable and empty the sub's variable?

dJE

[ronjonp]

I'm not quite sure what you are asking 

[CAB]

Try this [Not tested]

Code: [Select]

;;  returns point list or nil
(defun MyGetPoint (msg / pt)
  (if (SETQ pt (GETPOINT (strcat "\n" msg)))
    (setq pt (POINT2D3D pt))
  )
)

(while (null (setq fpt (MyGetPoint "Select start point: ")))
  (prompt "Error, must pick a point, Try again.")
)or this:

Code: [Select]

;;  returns point list
(defun MyGetPoint (msg / pt)
  (while (null (SETQ pt (GETPOINT (strcat "\n" msg))))
    (prompt "Error, must pick a point, Try again.")
  )
  (POINT2D3D pt)
)

(setq fpt (MyGetPoint "Select start point: "))

[Daniel J. Ellis]

Try this [Not tested]

Code: [Select]

;;      (setq pt (POINT2D3D pt))[/quote]

That looks like it should be the one, ta

dJE

[JohnK]

> I'm repeating this process for a number of later points, hence wanting to use
> the subroutine.  Surely there has to be a more efficient way to move the sub's
> output back to the original variable and empty the sub's variable?

Have a look at my paper on this subject.

[ http://www.theswamp.org/index.php?topic=5203.0 ]