分段标注多段线长度（闲的瞎写仅能直线）

kkq0305 · 发表于 2021-8-6 13:47:31

(defun c:tt (/ ent ptlst str pt ang)
(setq ent (car (entsel "\n请选择需要标注边长的图元：")))
(setq ptlst
(mapcar
'cdr
(vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget ent))
)
)
(if (>=
(apply '+
(mapcar '(lambda (x y)
(- (* (car y) (cadr x)) (* (cadr y) (car x)))
)
ptlst
(append (cdr ptlst) (list (car ptlst)))
)
) 0
)
(setq ptlst (reverse ptlst))
)
(mapcar '(lambda (x y)
(setq str (rtos (distance x y) 2 2))
(setq pt (polar (mapcar '* '(0.5 0.5) (mapcar '+ x y)) (- (angle x y) (* 0.5 pi)) 5))
(setq ang (- (angle (mapcar '* '(0.5 0.5) (mapcar '+ x y)) pt) (* 0.5 pi)))
(entmake (list '(0 . "TEXT")
(cons 1 str)
(cons 10 pt)
(cons 11 pt)
(cons 50 ang)
(cons 72 1)
(cons 73 2)
(cons 40 10)
)
)
)
ptlst
(append (cdr ptlst) (list (car ptlst)))
)
(princ)
)

(defun c:tt (/ ent ptlst str pt ang) 
  (setq ent (car (entsel "\n请选择需要标注边长的图元："))) 
  (setq        ptlst 
         (mapcar 
           'cdr 
           (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget ent)) 
         ) 
  ) 
  (if (>= 
        (apply '+ 
               (mapcar '(lambda        (x y) 
                          (- (* (car y) (cadr x)) (* (cadr y) (car x))) 
                        ) 
                       ptlst 
                       (append (cdr ptlst) (list (car ptlst))) 
               ) 
        ) 0 
      ) 
    (setq ptlst (reverse ptlst)) 
  ) 
  (mapcar '(lambda (x y) 
             (setq str (rtos (distance x y) 2 2)) 
             (setq pt (polar (mapcar '* '(0.5 0.5) (mapcar '+ x y)) (- (angle x y) (* 0.5 pi)) 5)) 
             (setq ang (- (angle (mapcar '* '(0.5 0.5) (mapcar '+ x y)) pt) (* 0.5 pi))) 
             (entmake (list '(0 . "TEXT") 
                            (cons 1 str) 
                            (cons 10 pt) 
                            (cons 11 pt) 
                            (cons 50 ang) 
                            (cons 72 1) 
                            (cons 73 2) 
                            (cons 40 10) 
                      ) 
             ) 
           ) 
          ptlst 
          (append (cdr ptlst) (list (car ptlst))) 
  ) 
  (princ) 
)

tigcat · 发表于 2021-8-6 19:20:56

有嵌套递归，有循环，挺好的

weijiewen · 发表于 2023-5-9 09:55:23

分段标注多段线长度确实可用

MZ_li · 发表于 2023-6-17 18:27:17

能加个判断吗？文字角度270度的改90。180度改0

Maxwell · 发表于 2024-7-14 10:32:51

直线不能标注，能不能改一下

账号		自动登录	找回密码
密码			注册

[源码] 分段标注多段线长度 （闲的瞎写仅能直线）

[源码] 分段标注多段线长度（闲的瞎写仅能直线）