[建议]：一个关于量度线的长度程序？？

eissue

我们用直线命令画一条线时可以用查询命令知道它的长度，但如果画几条连续的线就并不能量出它的长度的总和啊？请问有什么方法解决呢！！！

XDSoft

最初由 eissue 发布
[B]我们用直线命令画一条线时可以用查询命令知道它的长度，但如果画几条连续的线就并不能量出它的长度的总和啊？请问有什么方法解决呢！！！ [/B]

晓东工具箱- 曲线工具- 测量长度

wloveww

可以用多线命令画线
也可以分段画好后，用PEDIT命令合成

如果分段画的，可以用一个LISP把分段线的数值相加起来，这个小命令我是在LISP或者是市政那个栏下过的！

wloveww

2. ;;;creat time 99-2-8 22:16计算line的长度
   
3. (defun l-length(la col)                               ;计算line length
   
4.        (setq  t-dist 0   
   
5.               ent-list (entget enta))                 ;ent-list实体数据库
   
6.           (if (and (= (cdr (assoc 0 ent-list)) "LINE")         
   
7.                    (= (cdr (assoc 8 ent-list)) la)    ;la 层名
   
8.                    (= (cdr (assoc 62 ent-list)) col)) ;col 颜色
   
9.                         (progn
   
10.                         (setq point1 (cdr (assoc 10 ent-list))  ;line起点
    
11.                               point2 (cdr (assoc 11 ent-list))) ;line终点
    
12.                         (setq t-dist (distance point1 point2))                        
    
13.                         )                                ;end progn
    
14.            )                                             ;end if
    
15. )                                                        ;end l-length
    
16. 
    
17. (defun c:LL(/ ent-list total)                            ;main function
    
18.       (setq total 0)
    
19.       (setq select (getstring "\n图纸比例：1:1/1:50/1:100/1:200(a/s/d/f)?"))
    
20.       (cond ((= select "a") (setq k 1))
    
21.             ((= select "s") (setq k 20))
    
22.             ((= select "d") (setq k 10))
    
23.             ((= select "f") (setq k 5))            
    
24.             (princ "请重新选a/s/d/f")
    
25.             (princ)
    
26.       )  
    
27.       (setq la (strcase (getstring "\n输入层名?")))
    
28.       (setq col (getreal "\n线的颜色号(回车为默认色BYLAYER)?"))                 
    
29.       (setq enta (entnext))                    ;第一个实体名enta
    
30.       (while enta
    
31.            (l-length la col)
    
32.            (setq total (+ total t-dist))       ;累计长度
    
33.            (setq enta (entnext enta))          ;下一个line实体名enta
    
34.         )                                      ;end while         
    
35.         (setq total (/ total k))
    
36.         (princ "\n线段总长度=")
    
37.         (princ total)
    
38.         (princ "m")
    
39.         (princ)
    
40. )
    

;;;creat time 99-2-8 22:16计算line的长度<br /> (defun l-length(la col)                               ;计算line length<br />        (setq  t-dist 0    <br />               ent-list (entget enta))                 ;ent-list实体数据库<br />           (if (and (= (cdr (assoc 0 ent-list)) "LINE")          <br />                    (= (cdr (assoc 8 ent-list)) la)    ;la 层名<br />                    (= (cdr (assoc 62 ent-list)) col)) ;col 颜色<br />                         (progn<br />                         (setq point1 (cdr (assoc 10 ent-list))  ;line起点<br />                               point2 (cdr (assoc 11 ent-list))) ;line终点<br />                         (setq t-dist (distance point1 point2))                        <br />                         )                                ;end progn<br />            )                                             ;end if<br /> )                                                        ;end l-length<br /> <br /> (defun c:LL(/ ent-list total)                            ;main function<br />       (setq total 0)<br />       (setq select (getstring "\n图纸比例：1:1/1:50/1:100/1:200(a/s/d/f)?"))<br />       (cond ((= select "a") (setq k 1))<br />             ((= select "s") (setq k 20))<br />             ((= select "d") (setq k 10))<br />             ((= select "f") (setq k 5))            <br />             (princ "请重新选a/s/d/f")<br />             (princ)<br />       )  <br />       (setq la (strcase (getstring "\n输入层名?")))<br />       (setq col (getreal "\n线的颜色号(回车为默认色BYLAYER)?"))                 <br />       (setq enta (entnext))                    ;第一个实体名enta<br />       (while enta<br />            (l-length la col)<br />            (setq total (+ total t-dist))       ;累计长度<br />            (setq enta (entnext enta))          ;下一个line实体名enta<br />         )                                      ;end while         <br />         (setq total (/ total k))<br />         (princ "\n线段总长度=")<br />         (princ total)<br />         (princ "m")<br />         (princ)<br /> )<br />

我是掠人之美了，也许对你有用！

eissue

多谢！！

ZHPCUAN

在以多义线来做比较方便
在查看该线的属性咯