社区 › AutoCAD与GIS测绘 › 断面生成后断面里程不对 麻烦老师们给看看

hkhbs 发表于 2021-8-18 19:18:49

感谢@yshf@xvjiex可能是我描述的不准确   不过 已经可以完美解决了问题谢谢

f4800 发表于 2021-11-11 20:25:07

hkhbs 发表于 2021-8-18 19:18
感谢@yshf@xvjiex可能是我描述的不准确   不过 已经可以完美解决了问题谢谢

怎么解决的 ？方便分享下么

skg123 发表于 2022-5-6 16:50:29

hkhbs 发表于 2021-8-18 06:32
是我表述的问题是这个里程

CAD文字字体的原因；

渠辉 发表于 2022-5-14 16:02:20

xvjiex 发表于 2021-8-17 08:39
不懂你们的专业，不知道是否这个里程？没有找到大于100的里程。

这个高程应该是平距，左负右正

skg123 发表于 2022-9-4 20:50:43

这问题应该在原来的帖子下跟帖
http://bbs.mjtd.com/thread-168574-1-1.html
这样问题汇总在一起

cjf160204 发表于 2023-1-4 11:15:37

根据大神的代码生成

cjf160204 发表于 2023-1-4 11:16:58

cjf160204 发表于 2023-1-4 11:15
根据大神的代码生成

运行命令 hdm

skg123 发表于 2024-7-20 23:12:33

确实，测试后，少一个横断面

skg123 发表于 2024-7-21 16:08:53

本帖最后由 skg123 于 2024-7-21 16:24 编辑

hkhbs 发表于 2021-8-18 06:32
是我表述的问题是这个里程这个程序有个设计不足的地方，没有让用户选择 横断面起点位置（插入点位置），这样的后果是 第二次读取数据绘图就重叠了；
整理了一下程序，附后
(defun lczh (x / x1 x2)
(if (> x 0)
    (setq x1 (itoa (fix (/ x 1000.)))
            x2 (substr (rtos (+ (rem x 1000) 2000.) 2 3) 2)
    )
    (setq x1 (itoa (fix (1- (/ x 1000.))))
            x2 (substr (rtos (+ (rem x 1000) 2000.) 2 3) 2)
    )
)
(strcat "K" x1 "+" x2)
)

查看完整版本: 断面生成后断面里程不对 麻烦老师们给看看