切地形剖面图lsp --成熟了20250322更： 可剖曲线按曲线展开

wzg356

基本功能和实现方案源于“切剖面.dvb  林枢制作”（曾对我工作帮组很大，版本问题，目前已不能用）

20250322更
剖线可以为Line或Lwpolyline折/曲线，剖切成果按曲线长展开。如用纯圆/狐来剖切--简单修改即可，源码有说明
高程线为*polyline  其中3Dpolyline识别各顶点高程一致时也算数（有些软件生成的等高线用3Dpolyline）
面板增加高程线图层选项---感觉鸡肋，取消就在对话框程序注释掉(write-line...剖切图层...)这句就行
剖线点跟踪改善--缩放图形至合适平面操作就行， 当剖点在屏幕外时只是平移查看以便编辑
出图增加横坐标桩号样例---根据需求修改使用，比如场地线/建筑物界限只要有高程属性，也可剖进来并注记

由于dcl配有滑杆动作-操作时轻一点

命令EDPM/DXPM  
当已有成图数据时EDPM命令优先展示上次数据编辑或重新选剖面线获取数据

图形有示例参考，出图一般只改输出文字高（打印比例适配）/地形夸张度=================================
20230209更新fas,改进一些对话框bug,运行基本稳定l
切剖面图含对话框EDPM及DXPM.fas------先发fas
包含切剖面图DXPM.lsp功能
选剖线不受屏幕限制
编辑剖面点实时跟踪
数据交换有些简单，但lsp方式也算特别,可以删点
EDPM命令可以直接针对最后一次出图剖面数据编辑重新出图，无剖面数据时与DXPM功能一样
一般地，制图参数修改“地形夸张度、字高”（推荐打印比例*2.5~3.5）即可

对话框代码用这个滑杆版适当补充内容http://bbs.mjtd.com/forum.php?mo ... =1&extra=#pid907647

wzg356

没币的在这儿下载

别忘了需要主楼“通用函数-取得各种线坐标.sp”支持

欢迎拿去研究

寒潮大冬瓜

wzg356 发表于 2024-11-11 14:19
嗯，有空再改，这个不难

实际施工现场很多时候测量的高程点之间不完全在一条直线上，甚至有一些离散比较大，而转为剖面的时候，需要先把这些高程点投影到前后高程点的连线上，再转换为剖面！
我目前用excel来计算这个投影和排序过程再返回cad……要是能够直接框选高程(标高)点后→cad图里直接输出剖面那么就很方便了！

1506822004

fas文件找了张实测图测评：
1、基本所有切到的高程全部为0
2、会出现距离很短的点，如0.000009
3、双击点，再双击行号删行，该功能偶尔不能用，而且如果我删除的是第二行，删除完2这个数字就不见了，有时候使用该功能，对话框会变小
4、执行命令-选一条剖面，进入对话框-点击选剖面按钮-选剖面-进入对话框-按esc取消，任然提示选择剖面右下角

飞雪神光

大佬 求测试图 随便画一个多段线用不了啊

中国梦

谢谢楼主分享

wzg356

飞雪神光 发表于 2023-2-6 21:26
大佬 求测试图 随便画一个多段线用不了啊

找个地形图就可以了，或者你画上几条多线段赋高程值（类似等高线），画上剖面线测试

20060510412

谢谢楼主分享，楼主是个热心人！

hzyhzjjzh

谢谢楼主分享

hao3ren

双击行号删行，偶尔会莫名其妙退出
选线选到外面后，在输入命令就进不去了
程序好像不太稳定

wzg356

hao3ren 发表于 2023-2-7 19:22
双击行号删行，偶尔会莫名其妙退出
选线选到外面后，在输入命令就进不去了
程序好像不太稳定

就用fas
删点 本身是慎重的动作，慢一点
双击行顶O    看清楚要删除的数据（时间0.5秒以上不限）再点击行号

动作太快不行---包含滑块动作

推断这是DCL本身的机制缺陷