直线两端Z数值不等，如何标注直线的真实长度？

x_s_s_1

啥都没考虑版

1. (defun c:tt  (/ dis en pt1 pt2)
   
2.     (setq pt1 (getpoint "\n标注第一点:")
   
3.           pt2 (getpoint pt1 "\n标注第二点:")
   
4.           dis (rtos (distance pt1 pt2) 2 0))
   
5.     (command "_.dimaligned" pt1 pt2 pause)
   
6.     (setq en (entget (entlast))
   
7.           en (subst (cons 1 dis) (assoc 1 en) en))
   
8.     (entmod en))

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

树櫴希德

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

收藏了 大神  厉害了

塔门说

就用x_s_s_1的这个改一下就好了
(defun c:tt  (/ dis en pt1 pt2)
(setq line_en(car(entsel))ent (entget  line_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))

飞的鱼儿

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

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

michaelbomo

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

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

x_s_s_1

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

看原理，改