赖剑锋:
我帮你写的以下代码可以解决你的问题,你将代码拷到记事本然后存为Brl.lsp加载运行即可,无论线有多长(不能是多段线哦),分多少段都可以。且坐标会方在d盘的uCS.txt文件里面(defunc:Brl()(setqoce(getvar"cmdecho"))(setvar"cmdecho"0)(setqos(getvar"osmode"))(setvar"osmode"0)(PRint"请选择直线:")(setqlin(ssget":s"'((0."line"))))(setqmsg"请输....