[下载]：非常好用的AutoLisp工具集合

f4800

本人 从事路线设计工作，有时候需要恢复别的单位提供的PDF版横断面图中的横地线，方便我们用EICAD带帽设计。
从pdf中转换的横断面，线条有直线，多段线，怎么快速转转为需要的格式？下面的代码为人工点取CAD上的拐点然后自动计算距离 高差，希望改进
多谢了转换成普通的记事本就行
文件格式如下源代码
K0+075
7.01 -1.99 12.76 4.82 备注 左侧
8.35 -2.31 8.87 5.2   备注  右侧
K0+100
7.01 -1.99 12.76 4.82 备注 左侧，数据为示意
8.35 -2.31 8.87 5.2   备注  右侧，数据为示意

横断面源代码-有问题.lsp
存在问题
1.这个程序提取的是点的Z值，
2.左侧4个点，右侧3个点，点如果少于这个数程序会报错

希望改进
1.提取相对于图中点位的距离、高差（也就是图中点位的X Y差值，不是Z值）
2.左右各支持点数10个左右，多了更好，而且根据需要可以用2-4个，不报错

多谢

f4800

自己顶 支持



本人 从事路线设计工作，有时候需要恢复别的单位提供的PDF版横断面图中的横地线，方便我们用EICAD带帽设计。
从pdf中转换的横断面，线条有直线，多段线，怎么快速转转为需要的格式？下面的代码为人工点取CAD上的拐点然后自动计算距离 高差，希望改进
多谢了转换成普通的记事本就行
文件格式如下源代码
K0+075
7.01 -1.99 12.76 4.82 备注 左侧
8.35 -2.31 8.87 5.2   备注  右侧
K0+100
7.01 -1.99 12.76 4.82 备注 左侧，数据为示意
8.35 -2.31 8.87 5.2   备注  右侧，数据为示意

横断面源代码-有问题.lsp
存在问题
1.这个程序提取的是点的Z值，
2.左侧4个点，右侧3个点，点如果少于这个数程序会报错

希望改进
1.提取相对于图中点位的距离、高差（也就是图中点位的X Y差值，不是Z值）
2.左右各支持点数10个左右，多了更好，而且根据需要可以用2-4个，不报错

多谢