VL-sort help

[DC-MWA]

Anybody know why this misses sheet "A0.00 - Title Sheet.dwg"

(setq dwgs (cdr (vl-sort (vl-remove-if-not
'(lambda (x) (wcmatch (strcase x) "A*.*.DWG"))
(vl-directory-files (getvar 'dwgprefix))
) ;_ vl-remove-if-not
'<
) ;_ vl-sort
)
) ;_ setq

[SAPER59]

I tested with my own list  (I don't have your directory) and don't miss it

(setq ldir (list "A0.00 - Title Sheet.dwg"
"A1.00 - Title Sheet.dwg"
"A2.00 - Title Sheet.dwg"
"A0.00 - Title Sheet.dwg"
"My dwg1.dwg"
"My dwg2.dwg"
)
)

Are you sure file name is that you wrote?

 It would be a good idea you update the list of your directory

[SAPER59]

Sorry I forgot, you have a CDR at the beginig and loose first element of result list

[Kent1Cooper · Accepted solution]

---

@DC-MWA wrote:

Anybody know why this misses sheet "A0.00 - Title Sheet.dwg"

(setq dwgs

  (cdr

    (vl-sort

      (vl-remove-if-not
        '(lambda (x) (wcmatch (strcase x) "A*.*.DWG"))
        (vl-directory-files (getvar 'dwgprefix))
      ) ;_ vl-remove-if-not
      '<
    ) ;_ vl-sort
  ); cdr
) ;_ setq

---

If it "hits" other similar drawing names, it's probably because "A0.00..." surely comes up first in such a sorted list, and the (cdr) function removes the first item.

[DC-MWA]

Thank you.