selection sets...

how can i create a selection set of splines with a length of less than 1
inch... do i need to calculate the start point and end point and create a
list... i have a DXF files from a scanned image that has thousands of
little lines (see below) that i want to delete...

Select object: ((-1 . <Entity name: 40519178>) (0 . "SPLINE") (330 . <Entity
name: 40089410>) (5 . "7B77") (100 . "AcDbEntity") (67 . 0) (410 . "Model")
(8
.. "CENTERLINE") (100 . "AcDbSpline") (210 0.0 0.0 1.0) (70 . 11) (71 . 3)
(72 .
12) (73 . 8) (74 . 0) (42 . 1.0e-010) (43 . 1.0e-010) (40 . 0.0) (40 . 0.0)
(40
.. 0.0) (40 . 0.0) (40 . 0.5) (40 . 0.5) (40 . 0.5) (40 . 0.5) (40 . 1.0) (40
..
1.0) (40 . 1.0) (40 . 1.0) (10 1.6065 -2.83 0.0) (10 1.6065 -2.828 0.0) (10
1.6075 -2.826 0.0) (10 1.6085 -2.825 0.0) (10 1.6085 -2.825 0.0) (10 1.6075
-2.826 0.0) (10 1.6065 -2.828 0.0) (10 1.6065 -2.83 0.0))

 

something like:
(defun DeleteShortSplines( / spSet i curve-obj splen)
(setq spSet(ssget"x"'((0 . "SPLINE"))))
(if spset
(progn
(setq i 0)
(repeat (sslength spset)
(setq curve-obj(vlax-ename->vla-object(ssname spset i)))
(setq splen(vlax-curve-getDistAtParam curve-obj (vlax-curve-getEndParam
curve-obj)))
(if(< splen 1)
;do whatever
(vla-delete curve-obj);for example
)
(setq i(1+ i))
);repeat
);pr
);if
)
???
hth
Mark