标注起点止每个终点路线总长度

758586

请问各位师傅们  有没有,标注起点止每个终点路线总长度插件,网上找不到,  谢谢各位

如附件 ,选择白色线 起点和各个终点的线末端后, 在末端标注 起点止每个终点最近路线的总长度

寒潮大冬瓜

记得有个LLL的代码就是标总长度的！

xiao1984

肯定有，只是好用的大家没有放出来而已！

MZ_li

论坛搜一下吧

758586

在本论坛和其他网站都找不到，不知道这个应该叫什么名

czb203

论坛很多源码，搜搜就找到了

zhd81617

;;;;;;给图中的线段批量编号和标注长度bzline（非用标注工具，而是直接输入长度数字）
(defun c:bzline        ()
  (setq ss (ssget '((0 . "LINE"))))
  (setq i 0)
  (repeat (sslength ss)
    (setq e (ssname ss i))
    (setq el (entget e))
    (setq obj (vlax-ename->vla-object e))
    (setq start (vlax-curve-getStartPoint obj))
    (setq end (vlax-curve-getendPoint obj))
    (setq l (vlax-curve-getDistAtPoint obj end))
    (setq str (strcat "BH=" (rtos (1+ i)) " L=" (rtos l 2 3) "m"))
    (entmake
      (list '(0 . "TEXT")
            (cons 1 str)
            (cons 10 (mapcar '(lambda (x y) (/ (+ x y) 2.)) start end))
            (cons 40 1)
            (cons 50 (angle start end))
      )
    )
    (setq i (1+ i))
  )
)

758586

谢谢了zhd81617师辛苦了，
这样每根线标注一个长度也很好，只是要去计算一下终总长度,悄麻烦一点。
如果在某种多段线的线路上给出一个起点, 然后指定几个线条末端为终点, 标出每个各自起点止指定的末端终点总长度,这样可以解放一点时间。