Is it possible ?

Can anyone's help me,to solve my problem,I would create entity to become
increase the value only ,"x" value ,this sample is
(setq loc (getpoint "\nCLICK LOCATION FOR OBJECT)) >>> this set for 0,0
and then value become entitys (0,0)(1,0)(2,0)(3,0)......etc.
i want use with program loop (while).

 

Sure. Each successive point becomes
(setq loc (list (1+ (car loc))(cadr loc)))
___

 

Hi Paul,I'm still getting problem to solve this loop,can you corrected
it,thanks a lot

(setq loc (getpoint "\nCLICK LOCATION FOR OBJECT: "))
(setq loc1 0)
(while (< loc1 10)
(princ loc1)
(setq loc1 (list (1+ (car loc))(cadr loc))))
) ; while
(princ)
(0.0 0.0 0.0)
0
0
; error: bad argument type for compare: (1.0 0.0) 10

 

Adesu,

you can not summon a real with a integer

(setq loc (getpoint "\nCLICK LOCATION FOR OBJECT: "))
(setq loc1 0.0); 0 --> 0.0 it's a counter must a real
(while (< loc1 10)
(princ loc1)
(setq loc2 (list (+ loc1 (car loc))(cadr loc))
loc1 (1+ loc1) ; counting up
)
)

 

is this what you're after?

(defun test()
(setq loc (getpoint "\nCLICK LOCATION FOR OBJECT: "))
(setq start-x(car loc))

(terpri)
(princ loc)
(setq loc-x (car loc))

(while (< (setq xdif (- loc-x start-x)) 10)
(setq loc (list (1+ loc-x)(cadr loc)))
(setq loc-x (car loc))
(terpri)
(princ loc)

) ; while
(princ)
)

Command: (Test)

CLICK LOCATION FOR OBJECT:
(23.1772 19.8802 0.0)
(24.1772 19.8802)
(25.1772 19.8802)
(26.1772 19.8802)
(27.1772 19.8802)
(28.1772 19.8802)
(29.1772 19.8802)
(30.1772 19.8802)
(31.1772 19.8802)
(32.1772 19.8802)
(33.1772 19.8802)

 

Change:
(setq loc1 (list (1+ (car loc))(cadr loc))))
To:
(setq loc1 (list (+ (car loc) 1.0)(cadr loc))))

Bob

 

Bob,

In my opinion this won't work, because if (car loc) > then 10 it take one loop or if it's negative it takes many loops.
it depent from the pick point.

Cheers

 

Oh,
You are correct. But you could add a (abs loc) in there.
Bob

 

Hi MP,thanks a lot,your program clear , simple and easy to understood.

 

Not necessary:

Command: (1+ 1)
2
Command: (1+ pi)
4.14159
Command: (1+ 12.345)
13.345
___

 

You're welcome

Mark