求助大神！怎么把两条线的高差画成一根竖线体现出来

l429677287

如图所示，请问各位大神有没有相关代码呢，小弟十分感谢！

整理了一下逻辑，就是给多段线赋予标高值，左侧线段标高值是10，右侧线段标高值是5，需求是将两个多段线的标高差值画出来，再将右侧线段下移后连接。

wzg356

把长度。高程找出来展线
(defun c:tt66( / d e p0 ps ps1)
        (princ"\按顺序选取直线<>:")
        (while
                (setq e(ssget":e:s" '((0 . "line"))))
                (setq e(vlax-ename->vla-object(ssname e 0)))
                (setq ps(cons (Vlax-Get e 'EndPoint) (cons (Vlax-Get e 'StartPoint) ps)))
        )
        (setq ps(reverse ps) p0(list 0 (caddar ps))d 0)
        (setq ps1(mapcar
                '(lambda(a b)(list
                (setq d(+ d(distance(list(car a)(cadr a))(list(car b)(cadr b)))))
                (caddr b)
                ))
                 ps(cdr ps)
        ))
        (setq ps1(cons p0 ps1))
;ps1((累计距离1 高程1)(累计距离2 高程2)......)其他线参考取得这样的数据
        (setq p0(getpoint"\n指定剖面起点"))
        (command "pline")
        (foreach p ps1(command "none"(mapcar '+ p p0)))
        (command "");展开剖面
)

l429677287

jun470 发表于 2025-5-13 09:21
是要以标高的文字作为高差，画剖面啊，表达不清晰。然后这样还涉及比例问题，不同比例下这条线长度不一样， ...

是的，感谢回复。因为工作需要，这个使用频率对我来说还是挺高的，有没有相关的代码呢？非常感谢

l429677287

wzg356 发表于 2025-5-12 22:18
把长度。高程找出来展线
(defun c:tt66( / d e p0 ps ps1)
        (princ"\按顺序选取直线:")

哇，感谢元老，我研究一下！

l429677287

有没有大神懂的？求教一下，谢谢！

l429677287

l429677287 发表于 2025-5-12 14:36
有没有大神懂的？求教一下，谢谢！

明经币全部奉上

vitalgg

平面变立面？最简单就是给二维多段线赋z值。
不然还得分析平面线与标高符号和标高值的相关性。


你这只有与X轴平行的情况。如果有角度了怎么处理？

guosheyang

放个dwg的图  别人才知道是咋样的

MZ_li

如果是平行的，就判断Y值吧。Y值的差就是高度了

l429677287

vitalgg 发表于 2025-5-12 15:21
平面变立面？最简单就是给二维多段线赋z值。
不然还得分析平面线与标高符号和标高值的相关性。

是的，我也是想赋Z值，但是怎么把Z值差画出来呢？

l429677287

MZ_li 发表于 2025-5-13 08:36
如果是平行的，就判断Y值吧。Y值的差就是高度了

非平行的情况，是否可以赋Z值，画出Z值的差呢？另外请问怎么操作呢