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

hkhbs

还有最后的一个断面总是生成不出来

hkhbs

测试数据 麻烦师傅们给看一下

f4800

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

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

yshf

1、将：
(setq l3 (mapcar '(lambda(x y) (GetSubList ll x (1- y))) l2 (cdr l2)))
改为：
(setq l3 (append (mapcar '(lambda(x y) (GetSubList ll x (1- y))) l2 (cdr l2))
                         (list (member (nth (last l2) ll) ll))
         )
)

2、将：
(defun lczh (x / x1 x2)
  (if (> x 0)
    (setq x1 (itoa (fix (/ x 1000.)))
          x2 (substr (rtos (+ (rem x 1000) 2000.) 2 3) 3)
    )
    (setq x1 (itoa (fix (1- (/ x 1000.))))
          x2 (substr (rtos (+ (rem x 1000) 2000.) 2 3) 3)
    )
  )
  (strcat "k" x1 "+" x2)
)
改为：
(defun lczh (x / x1 x2 zffh x2zf)
  (setq zffh "+")
  (if (< x 0.0) (setq  zffh "-"))
  (setq x (abs x))
  (setq x1 (fix (/ x 1000.0)))
  (setq x2 (- x (* x1 1000.0)))
  (setq x2zf (rtos x2 2 3))
  (If (< x2 10.0)
      (setq x2zf (strcat "00" x2zf))
      (if (< x2 100.0)
          (setq x2zf (strcat "0" x2zf))
      )
  )
  (setq x2zf (strcat "K" (itoa x1) zffh x2zf))
)
3、注意：变量名x用得太泛滥

xvjiex

断面里程怎么个不对，请详细说明。或图片说明。

hkhbs

生成到里程100后面里程不会累加了

hkhbs

还有一般最后一个断面 出不来  必须把数据单独拎出来生成

xvjiex

不懂你们的专业，不知道是否这个里程？没有找到大于100的里程。

hkhbs

是我表述的问题  是这个里程

xvjiex

你的要求是什么，比如有这样的数据：BEGIN,178.848:14。你要在CAD上显示什么样子？

hkhbs

K0+178.84  :D