(setq s1 (vl-sort (ss_vla s2)
'(lambda (a b)
(< (car (vlax-get a 'InsertionPoint))
(car (vlax-get b 'InsertionPoint))
)
)
)
)
(setq s2 (vl-sort (ss_vla s2)
'(lambda (a b)
(< (car (vlax-get a 'InsertionPoint))
(car (vlax-get b 'InsertionPoint))
)
)
)
)
thay cả 2 dòng này chưa ?