put into 1 list...

[caduser]

(setq pt (getpoint "\nOrigin point :"))
(setq selbj (ssget '((0 . "Insert"))))
;;;i was add XData with many type in the block with same block name ;;;exm: "wirecut to size" "wirecut +0.005/s" "drill thru" "drill %%c4" (setq i 0) (setq obj:qty (sslength selbj)) (repeat obj:qty (setq obj:ent (ssname selbj i)) (setq in:xyz(cdr(assoc 10(entget obj:ent)))) (setq x(- (car in:xyz)(car pt))) (setq y(- (cadr in:xyz)(cadr pt))) (setq txt2(cadr(assoc -3(entget obj:ent '("WCHOLE"))))) (setq txt3(cdr(nth 1 txt2 ))) (setq i(1+ i)) ;;; my problem is how to put each txt2 value into 1 list after eazy ;;; to sorting

 

[jeroenberkers]

See comments inside your code...

(setq pt (getpoint "\nOrigin point :"))
(setq selbj (ssget '((0 . "Insert"))))
;;;i was add XData with many type in the block with same block name ;;;exm: "wirecut to size" "wirecut +0.005/s" "drill thru" "drill %%c4" (setq i 0)

;;;
(setq txt2_list ')
;;;

(setq obj:qty (sslength selbj))
(repeat obj:qty
(setq obj:ent (ssname selbj i))
(setq in:xyz(cdr(assoc 10(entget obj:ent))))
(setq x(- (car in:xyz)(car pt)))
(setq y(- (cadr in:xyz)(cadr pt)))
(setq txt2(cadr(assoc -3(entget obj:ent '("WCHOLE")))))

;;;
(setq txt2_list (cons txt2 txt2_list))
;;;

(setq txt3(cdr(nth 1 txt2 )))
(setq i(1+ i))

;;;
) ; end repeat
;;;