断面生成后断面里程不对 麻烦老师们给看看

hkhbs

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

f4800

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

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

skg123

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

CAD文字字体的原因；

渠辉

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

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

skg123

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

cjf160204

根据大神的代码生成

cjf160204

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

运行命令 hdm

skg123

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

skg123

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

这个程序有个设计不足的地方，没有让用户选择 横断面起点位置（插入点位置），这样的后果是 第二次读取数据绘图就重叠了；
整理了一下程序，附后

2. (defun lczh (x / x1 x2)
   
3.   (if (> x 0)
   
4.     (setq x1 (itoa (fix (/ x 1000.)))
   
5.             x2 (substr (rtos (+ (rem x 1000) 2000.) 2 3) 2)
   
6.     )
   
7.     (setq x1 (itoa (fix (1- (/ x 1000.))))
   
8.             x2 (substr (rtos (+ (rem x 1000) 2000.) 2 3) 2)
   
9.     )
   
10.   )
    
11.   (strcat "K" x1 "+" x2)
    
12. )

(defun lczh (x / x1 x2)<br />   (if (> x 0)<br />     (setq x1 (itoa (fix (/ x 1000.)))<br />             x2 (substr (rtos (+ (rem x 1000) 2000.) 2 3) 2)<br />     )<br />     (setq x1 (itoa (fix (1- (/ x 1000.))))<br />             x2 (substr (rtos (+ (rem x 1000) 2000.) 2 3) 2)<br />     )<br />   )<br />   (strcat "K" x1 "+" x2)<br /> )