怎样让其变成画一条多段线在它的中点注记长度

郭文姬happy

(defun c:2()
(setvar "cmdecho" 0)
(setq en(entsel"\n 选取多段线计算长度："))
(while en
(setq en (car en))
(command "lengthen" en"")
(setq dd (getvar "perimeter"))
(princ (strcat "\n 长度="(rtos dd 2)))
(setq pt(getpoint "\n 文字位置点："))
(setq old_hh(getvar "textsize"))
(setq str_hh(strcat"\n 高度<"(rtos old_hh 2)">:"))
(setq hh(getdist pt str_hh))
(if(null hh)(setq hh old_hh))
(command "text" pt hh 0(strcat "长度=" (rtos dd 2)))
(setq en (entsel"\n 选取多段线计算长度:"))
)
(prin1)
)

香田里浪人

论坛里有了，是不是这样？
(defun c:tts (/ p q pt)
;(setvar'osmode 16384)
(setvar "cmdecho" 0)
(setvar "dimzin" 0);;保留小数位数时如果位数不足可以补零
(setq TextHeight (getdist "\n请输入文字高度: "))
(while (setq p (getpoint "\n指定起点: "))
  (command "pline" "_non" p)
  (while (setq q (getpoint p "\n下一点: ")
                     pt (mapcar '(lambda (x) (/ x 2)) (mapcar '+ p q)))
   (command "_non" q)
   (entmake
    (list
     '(0 . "TEXT")
     (cons 10 pt)
     (cons 40 1)
     (cons 1 (rtos (distance p q) 2 2))
     (cons 50 (if (< (/ Pi 2) (angle p q) (* 1.5 pi)) (angle q p) (angle p q)))
     (cons 8 "标注")
     (cons 7 "BG_ST")
     (cons 62 3)                        
     (cons 72 1)
     (cons 73 1)
     (cons 40 TextHeight)
     (cons 41 0.7)
     (cons 11 pt)
    )
   )
   (setq p q)
  )
  (command "")
)
  ;(setvar 'osmode (- (getvar osmode) 16384))
(setvar "cmdecho" 1)
(princ)
)

yoyoho

感谢  香田里浪人 分享程序!