758586 发表于 2024-7-21 07:30:37

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



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

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



寒潮大冬瓜 发表于 2024-7-21 09:26:19

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

xiao1984 发表于 2024-7-21 09:51:20

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

MZ_li 发表于 2024-7-21 09:54:01

论坛搜一下吧

758586 发表于 2024-7-21 10:30:54

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

czb203 发表于 2024-7-21 11:37:54

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

zhd81617 发表于 2024-7-21 16:41:36

;;;;;;给图中的线段批量编号和标注长度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 发表于 2024-7-21 17:23:48

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