Hi all, I'm going to use initget and getpoint so that getpoint is repeated only one time at first time, I wrote these codes after trying several ways and this is working but it exits the program after exiting the loop :
(setq k 1)
(initget "Setting")
(setq gtpt (getpoint "\nPick a point to add lable [Setting]: "))
(cond
((/= gtpt "Setting")
(setq pt gtpt)
(while (listp pt)
(maketxt
pt
(atoi (getenv "sizetx"))
(itoa k)
(atoi (getenv "colornum"))
)
(lstadd pt (itoa k))
(setq pt (getpoint "\nPick a point to add lable : "))
(setq k (1+ k)))
))