(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)))
))
(setq lst '())
(while (setq pt (getpoint "\nPick pt Enter to exit"))
(setq lst (cons pt lst))
)
(setq lst '())
(while (setq pt (getpoint "\nPick pt Enter to exit"))
(setq lst (cons pt lst))
)
Thank you for replying. this was helpful :FWIW this works as well:Code: [Select](setq lst '())
(while (setq pt (getpoint "\nPick pt Enter to exit"))
(setq lst (cons pt lst))
)
((1 ((2.93876 1.86267 0.0) (2.35364 3.00116 0.0)))
(2 ((2.35364 3.00116 0.0) (2.47902 4.04565 0.0)))
(3 ((2.47902 4.04565 0.0) (3.21043 5.16325 0.0))) )