[求助]：请问如何按从下到上及从左到右的顺序逐一计算线段长度

bolixin

请问如何按从下到上及从左到右的顺序逐一计算线段长度？
结果为如下形式：第1段+第2段+第3段+......+第11段*7+第12段+......+第17段

xiao_longxin

给一个思路给你：先求出每条线段的中点坐标并与线段长度联合起来存入表中：（（x1 y1　len1）（x2 y2　len2）。。。。））
再对表中坐标先按x升序排序再按y升序排序
应该不难吧

bolixin

谢谢xiao_longxin  的帮忙

xyp1964

不让用“通用函数”可有点难！呵呵……

dandee

我刚好也在编 对线处理的程序，
先帮你搞定了。
  
(defun c:q2 ( / ss cli cot is y x s1 s2)(princ "\n select object:")
  (setq ss (ssget '(( 0 . "Line")) ) cot 0 cli (list))                                  ； 选择你所需要的线
   (repeat (sslength ss)                                                     ； 把所选线 建立表的形式 (y x 线长度)   
    (setq is (ssname ss cot) cot (1+ cot))
    (setq y (cadr (dxf is 10)) x (min (car (dxf is 10)) (car (dxf is 11))))
    (setq cli (cons (list y x (ent-dist is)) cli))
           )
(setq cli (vl-sort cli '(lambda (s1 s2)(and  (< (car s1) (car s2))(< (cadr s1) (cadr s2))))))； 如你所需排序
                                             
(setq cli (mapcar '(lambda (x) (setq x (nth 2 x)))  cli))；以排序后的表  构成 线长度的 表   
(princ cli)
(princ))
(defun dxf(ent i)(if (= (type ent) 'ename)(setq ent (entget ent)))(cdr (assoc i ent)))
(defun ent-dist(ent)(distance (dxf ent 10) (dxf ent 11)) )

bolixin

非常感谢dandee!
排序好象有点不对,不过我改过来了
再次感谢!!!
同时也非常感谢xyp1964  兄,实际上我不是不让用“通用函数”,只是我提出的问题只是一个思路,跟我实际应用还有一段距离,如果用“通用函数”我就改不了,望能体谅!
感谢各位!!!