Picking the rest of points automatically

Hello everyone.

(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

How to create the following points of start point automatically according

to the numbers of points .....?????

Many Thanks

Tharwat

In AutoLISP you can create variables at run-time:

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

Regards,

I'd put them in a list. If you define variables for each point, you'll have a fun time trying to access each.

eg.

(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)
   )
 )
)

Thanks a lot msasu

But I try it with the following code ... and it gives me an error to fixnump ???

(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))
))

Any complete example please ?

Faithful

Tharwat

The code should look like:

(defun c:qq (/ theindex points)
[color=red](setq points (getint"\n Nos. of X Points: "))[/color]
[color=red](setq theIndex 1)[/color]

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

[color=red](princ)[/color]
)

Regards,

And for sure the method suggested by @alanjt is much user-friendly (I mean programmer-friendly)...

Regards,

And for sure the method suggested by @alanjt is much user-friendly (I mean programmer-friendly)...

 

Regards,

Thanks msasu.