[求助]：如何顺序获得所选直线的长度

francfang

首先选择直线建立选择集，然后根据直线起点坐标的大小按顺序列出每条直线的长度该如何实现呢？

highflybird

2. 
   
3. (vl-sort  (sel->ent sel)  
   
4.     '(lambda ( x y)
   
5.      (> (cadr (assoc 10  (entget x)))
   
6.         (cadr (assoc 10  (entget y)))
   
7.      )
   
8.   )
   
9. )
   
10. 
    
11. (defun sel->ent (sel / i lst)
    
12.   (setq i 0)
    
13.   (repeat (sslength sel)
    
14.      (setq lst (cons (ssname sel i) lst))
    
15.      (setq i (1+ i))
    
16.   )
    
17.   lst
    
18. )
    

<br /> (vl-sort  (sel->ent sel)  <br />     '(lambda ( x y) <br />      (> (cadr (assoc 10  (entget x)))<br />         (cadr (assoc 10  (entget y)))<br />      )<br />   )<br /> )<br /> <br /> (defun sel->ent (sel / i lst)<br />   (setq i 0)<br />   (repeat (sslength sel)<br />      (setq lst (cons (ssname sel i) lst))<br />      (setq i (1+ i))<br />   )<br />   lst<br /> )<br />

francfang

刚接触lisp，不是很熟。还请加个说明或者写个完整的可以运行的程序，很感谢！

carrot1983

二楼的，已经给了通用函数，很强啊．．呵呵

[PHP]

(defun c:tt (/ ELST LINEOBJ LLST SEL)
  (vl-load-com)
  (if (setq sel (ssget '((0 . "LINE"))))
    (progn
      (defun sel->ent (sel / i lst)
        (setq i 0)
        (repeat        (sslength sel)
          (setq lst (cons (ssname sel i) lst))
          (setq i (1+ i))
        )
        lst
      )
      (setq elst (vl-sort (sel->ent sel)
                          '(lambda (x y)
                             (>        (cadr (assoc 10 (entget x)))
                                (cadr (assoc 10 (entget y)))
                             )
                           )
                 )
      )
      (foreach e elst
        (setq LineObj (vlax-ename->vla-object e))
        (setq llst (cons (RTOS (vla-get-Length LineObj) 2 4) llst))
      )
      (princ "线的长度表: ")
      (princ llst)
    )
  )
  (princ)
)

[/PHP]

1. 
   
2.   [FONT=courier new]
   
3. 命令: tt
   
4. 选择对象: 指定对角点: 找到 5 个
   
5. 
   
6. 选择对象:  线的长度表: (15.4171 13.7483 14.8485 13.9227 11.0976)
   
7. 
   
8. 命令: len LENGTHEN
   
9. 选择对象或 [增量(DE)/百分数(P)/全部(T)/动态(DY)]:
   
10. 当前长度: 15.4171
    
11. 选择对象或 [增量(DE)/百分数(P)/全部(T)/动态(DY)]:
    
12. 当前长度: 13.7483
    
13. 选择对象或 [增量(DE)/百分数(P)/全部(T)/动态(DY)]:
    
14. 当前长度: 14.8485
    
15. 选择对象或 [增量(DE)/百分数(P)/全部(T)/动态(DY)]:
    
16. 当前长度: 13.9227
    
17. 选择对象或 [增量(DE)/百分数(P)/全部(T)/动态(DY)]:
    
18. 当前长度: 11.0976
    
19.   [/FONT]
    

复制代码

yaker_77

以表格输出就好了！