Topic: Help needed to continue line...

[hudster]

I'm writing a lisp that will draw a line from PT1 to PT2, but then I want to continue the line from pt2 to the next point and so on.

The code I have at the moment for this is

Code: [Select]


(setq pt1 (getpoint "\nSelect a point: "))
(setq pt2 (getpoint "\nSelect Next point: "))
how can I continue the lisp so that it re-starts, but uses pt2 as it's first point.

[daron]

Study this. It deals with arcs, but there's plenty you'll want to have in yours.

[ronjonp]

From the library

Code: [Select]

(defun drawline (/)
  (command "_.line")
  ;;   repeat a point input until Enter
  (if (while (> (getvar "CMDACTIVE") 0)
(command pause)
      )
   )
)

Ron