lisp make list by a unit item.

[xuantientutungXUK6E]

hi guys;

i have some texts formatted like this:         250 x 1000                2

                                                                           350 x 2000               1    

                                                                           450 x 4000               4

how can i make a list with result is:        (250 350 450 450 450 450)

the text (250 x 1000) is an item in cad and 2 or 1 or 4 are item in cad also.

hope you guys give me some suggestions.

thank you.

[Moshe-A]

@xuantientutungXUK6E ,

shouldn't the result be (250 250 350 450 450 450 450) ?

moshe

[dlanorh]

Perhaps an image or better a dwg showing how these are laid out

[xuantientutungXUK6E]

i attach file dwg. 

please take a view guys. 

thanks

[dlanorh]

Sorry I can't open the drawing. For me it needs to be saved as AutoCAD2010 format

[xuantientutungXUK6E]

i save it as 2004 dwg. 

thank you.

[ВeekeeCZ]

These pairs of texts would be always on the same line? You know, if so, we could select them by window selection and then pair them automatically. Otherwise, you need to select them one by one...

[xuantientutungXUK6E]

yes, texts are always on the same line, exact in the dwg file.

i would like to use one selection for all of that texts. 

[ВeekeeCZ · Accepted solution]

(defun TextList (lin / val l1 l2 lst)
  (foreach e (vl-sort lin '(lambda (e1 e2) (< (caddr (assoc 10 (entget e1))) (caddr (assoc 10 (entget e2))))))
    (if (wcmatch (setq val (cdr (assoc 1 (entget e)))) "*x*")
      (setq l1 (cons (atoi val) l1))
      (setq l2 (cons (atoi val) l2))))
  (foreach p (mapcar 'cons l1 l2)
    (repeat (cdr p)
      (setq lst (cons (car p) lst))))
  (reverse lst))


(defun c:test ()
  (TextList (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget))))))

[xuantientutungXUK6E]

thank you so much!