(setq data '
((1718.72 2242.29 0.0)(1706.72 2239.98 0.0)(1692.84 2239.25 0.0) (1678.82 2239.25 0.0)(1666.38 2238.82 0.0)(1654.39 2237.95 0.0)
(1641.09 2238.68 0.0)(1628.65 2239.4 0.0)(1617.09 2239.98 0.0)
(1554.78 2293.27 0.0)(1562.94 2286.06 0.0)(1566.64 2276.23 0.0)
(1570.25 2266.12 0.0)(1580.66 2270.74 0.0)(1590.49 2276.66 0.0)
(1602.05 2279.41 0.0)(1612.9 2275.8 0.0)(1625.04 2272.33 0.0)
(1637.91 2271.32 0.0)(1650.48 2276.09 0.0)(1661.32 2281.28 0.0)
(1605.52 2241.71 0.0)(1592.95 2244.31 0.0)(1581.67 2247.63 0.0)
(1568.66 2251.82 0.0)(1556.23 2246.33 0.0)(1543.65 2241.42 0.0)
(1541.48 2255.72 0.0)(1549.14 2265.97 0.0)(1542.64 2279.98 0.0)
(1531.36 2289.66 0.0)(1533.1 2302.23 0.0)(1544.08 2299.05 0.0)
(1671.88 2285.62 0.0)(1685.18 2288.51 0.0)(1696.89 2282.15 0.0)
(1703.54 2271.9 0.0)(1709.32 2261.93 0.0)(1718.43 2254.85 0.0)
(1729.41 2248.79 0.0)))
(defun remove
(expr lst
);;;TonyT or VNesterowski
(defun c:cline
(/ pl sp d sp n
) n v)))
sp n
data (remove n data)))