[编程交流] 拾取aut的其余点

(setq points (getint"\n Nos. of X Points: ") ;; <--- any number of points
     Dist (getint"\nLength of Distance: ");; <--- any length
     start (getpoint"\nSpecify the start point:")
     )
(setq pt1........
 pt2..........
  pt3........... and so on

(setq theIndex 1)
(repeat points
(set (read (strcat "pt" (itoa theIndex))) (getpoint (strcat "\nIndicate point " (itoa theIndex) ": ")))
(setq theIndex (1+ theIndex))
)

(defun test (/ num dist lst pt)
 (initget 6)
 (if (and (setq num (getint "\nSpecify number of X points: "))
          (not (initget 6))
          (setq dist (getdist "\nSpecify distance: "))
          (car (setq lst (list (getpoint "\nSpecify first point: "))))
     )
   (progn
     (while (> num (length lst))
       (if (setq pt (getpoint
                      (car lst)
                      (strcat "\n"
                              (itoa (- num (length lst)))
                              " point(s) left.\nSpecify next point: "
                      )
                    )
           )
         (grdraw (cadr (setq lst (cons pt lst))) pt 3 1)
       )
     )
     (redraw)
     (reverse lst)
   )
 )
)

(defun c:qq (/ theindex points)
(setq theIndex (getint"\n Nos. of X Points: "))
(repeat points
(set (read (strcat "pt" (itoa theIndex)))
     (getpoint (strcat "\nIndicate point " (itoa theIndex) ": ")))
(setq theIndex (1+ theIndex))
))