OK, don't know what's the issue on yours. I've done the test by closing ACad down fully, then opening that DWG again, loading & running one of the codes from VLIDE, then closing acad. Then re-open acad and the DWG and rerun the test on the next. These are the results I get:_$ (time-it '(C:ALE_ShortLongestPL))
Program running time: 188 msecs.
_$ (time-it '(c:RemAllButLongest&ShortestByLayer))
Program running time: 94 msecs.
I'm running in ACA 2013 in vanilla mode.
Also test in Vlide, now I think test are very unreliable:
;start A2013 & open only RandomPlines.dwg
;
$ (LOAD "E:/__Temp/LongShort.lsp")
TIME-IT
_$ (vl-load-com)
_$ (time-it '(C:ALE_ShortLongestPL))
Program running time: 904 msecs.
(time-it '(C:ALE_ShortLongestPL))
;start A2013 & open only RandomPlines.dwg
_$ (LOAD "E:/__Temp/LongShort.lsp")
TIME-IT
_$
_$ (vl-load-com)
_$ (time-it '(c:RemAllButLongest&ShortestByLayer))
Program running time: 421 msecs.
_$
;-------------------------------------------------------------
;start A2010 & open only RandomPlines.dwg
$ (LOAD "E:/__Temp/LongShort.lsp")
TIME-IT
_$ (vl-load-com)
_$ (time-it '(C:ALE_ShortLongestPL))
Program running time: 421 msecs.
;start A2010 & open only RandomPlines.dwg
_$ (LOAD "E:/__Temp/LongShort.lsp")
TIME-IT
_$
_$ (vl-load-com)
_$
_$ (time-it '(c:RemAllButLongest&ShortestByLayer))
Program running time: 390 msecs.
_$
;start A2010 & open only RandomPlines.dwg > second Test
_$ (LOAD "E:/__Temp/LongShort.lsp")
TIME-IT
_$ (vl-load-com)
_$ (time-it '(c:RemAllButLongest&ShortestByLayer))
Program running time: 562 msecs. <<<<<<<<<<<<<<
_$