x_s_s_1 发表于 2023-8-25 11:37:02

本帖最后由 x_s_s_1 于 2023-8-25 11:41 编辑

啥都没考虑版
(defun c:tt(/ dis en pt1 pt2)
    (setq pt1 (getpoint "\n标注第一点:")
          pt2 (getpoint pt1 "\n标注第二点:")
          dis (rtos (distance pt1 pt2) 2 0))
    (command "_.dimaligned" pt1 pt2 pause)
    (setq en (entget (entlast))
          en (subst (cons 1 dis) (assoc 1 en) en))
    (entmod en))

树櫴希德 发表于 2023-8-25 15:59:04

x_s_s_1 发表于 2023-8-25 11:37
啥都没考虑版

收藏了 大神厉害了

塔门说 发表于 2023-8-25 17:07:20

本帖最后由 塔门说 于 2023-8-25 17:10 编辑

就用x_s_s_1的这个改一下就好了
(defun c:tt(/ dis en pt1 pt2)
(setq line_en(car(entsel))ent (entgetline_en))
    (setq pt1 (cdr (assoc 10 ent))
          pt2(cdr (assoc 11 ent)
          dis (rtos (distance pt1 pt2) 2 0))
    (command "_.dimaligned" pt1 pt2 pause)
    (setq en (entget (entlast))
          en (subst (cons 1 dis) (assoc 1 en) en))
    (entmod en))

飞的鱼儿 发表于 2023-8-26 15:17:01

x_s_s_1 发表于 2023-8-25 11:37
啥都没考虑版

啥都没考虑版，这个名字起得好。

michaelbomo 发表于 2023-9-5 10:03:35

x_s_s_1 发表于 2023-8-25 11:37
啥都没考虑版

刚才试了下，似乎不太稳定，有时可以正常显示3D长度，有时只能显示平面长度。而且无法实现批量的直线3D标注

x_s_s_1 发表于 2023-9-8 15:57:11

michaelbomo 发表于 2023-9-5 10:03
刚才试了下，似乎不太稳定，有时可以正常显示3D长度，有时只能显示平面长度。而且无法实现批量的直线3D ...

看原理，改
页: 1 [2]
查看完整版本: 直线两端Z数值不等，如何标注直线的真实长度？