20241004更： 切地形剖面图lsp ---剖点编辑实时跟踪

wzg356

多年以前工作切面图多，不会写工具，都是用别人写的几个dvb,其中含GeoReviseSection.dvb
现在cad貌似不直接支持dvb了,而lsp的切剖面程序几乎没见

20241004更：有网友发现剖面线为折线时剖面长度为纵投影，本次改为剖线展开长度

20231011更，剖线仅2点时有bug，修复，完整源码发布
剖面线：支持line/lwpolyline，可以是折线
高程线：仅支持lwpolyline

切剖面图DXPM.lsp
无对话框交换数据，可用，剖面线应全在屏幕内选择（解决办法：可以先选择剖面线，缩放至屏幕内后再执行dxpm）

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

2更
调整标尺计算
宽度大于0的lwpl一般有2侧外观交点，抽稀处理
消除dcl重新选剖面线执行的bug

寒潮大冬瓜

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本身的机制缺陷