[分享]：源码：求圆、线、弧、多义线计算长度

xxming

2. (defun c:test()
   
3.   (setvar"cmdecho" 0)
   
4.   (setq en (entsel"\n选择圆、线、弧、多义线计算长度: "))
   
5.   (while en
   
6.     (setq en (car en))
   
7.     (command "lengthen" en "")
   
8.     (setq dd (getvar "perimeter"))
   
9.     (princ (strcat "\n长度:" (rtos dd 2)))
   
10.     (setq pt (getpoint"\n文字位置点:"))
    
11.     (setq old_hh (getvar "textsize"))
    
12.     (setq str_hh (strcat "\n文字高度<"(rtos old_hh) ">"))
    
13.     (setq hh (getdist pt str_hh))
    
14.     (if(null hh) (setq hh old_hh))
    
15.     (command "text" pt hh 0 (strcat "长度=" (rtos dd 2)))
    
16.     (setq en (entsel"\n选择圆、线、弧、多义线计算长度: "))
    
17.    )
    
18.   (prin1)
    
19.   )

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

eachy

可以这样

2. 
   
3. (defun c:test()
   
4.   (setvar "cmdecho" 0)
   
5.   (while (setq en (car (entsel "\n选择园/线/弧/多义线:")))
   
6.     ....
   
7.   )
   
8.   (princ)
   
9. )

<br /> (defun c:test()<br />   (setvar "cmdecho" 0)<br />   (while (setq en (car (entsel "\n选择园/线/弧/多义线:")))<br />     ....<br />   )<br />   (princ)<br /> )

xxming

以后请斑竹多多指导，还有以后在你的“我的程序”中能否提供一些LISP源码供大家学习。

jinsong-liao

可以考虑文字位置在线的中点下方，比如标注道路长度，这样更有实用价值。

marcoyuwen

方法挺好，可以借鉴。

子夜游魂

不错哈！值得学习

1028882406@qq.c

谢谢楼主，支持下