请问怎样可以让其变成画多条直线在多条直线中点批量长度
;画一条直线在它的中点注记长度(defun c:1()
(setvar "cmdecho" 0)
(setq en(entsel"\n 选线计算长度："))
(while en
(setq en (car en))
(setq endata (entget en))
(setq pt10 (cdr (assoc 10 endata)))
(setq pt11 (cdr (assoc 11 endata)))
(setq ang (angle pt10 pt11))
(command "lengthen" en"")
(setq dd (getvar "perimeter"))
(setq pt1 (polar pt10 ang (/ dd 2)))
(princ (strcat "\n 长度="(rtos dd 2)))
(setq ptpt1)
(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)
)
页:
[1]