改起来有点费事，原理如下：1，用getPOint获取第一个点，2，用getcorner,获取第二个点，它会自动绘出橡皮线的虚框3，用以上得到的两个点，获取选择集，------------你得会用【选择集】(findfile "

如果是一个图层中的线要素，那么这个图层中的所有线要素的属性字段一定是一样的，只是数值不一样，不可能同一个图层中某条线要素独享一个属性。添加一个字段，把你要标记的那条线要素赋予一个属性值，其他线要素赋予0值或者其他值能区别出来就可以了。打开

概述奇妙的异或运算, 就这些简单的代码, 反复点击按钮...procedure TForm1.Button1Click(Sender: TObject);beginCanvas.Pen.Color := clYellow; {指定笔