求两条线的最大最小点

chpmould

窗选两条线，如何求两条线的最大最小点，最后按最大最小点画一条线
（如下图，那红色线是按最大最小点画的一条线）

Andyhon

还有其他的组合样例吗?

chpmould

任意两条线，任意角度组合。。。

Andyhon

最大最小点依 X 值?

chpmould

XY任意。。。

Andyhon

for test only

2. 
   
3. (defun c:test ()
   
4.    (setq ss (ssget '((0 . "LINE")))
   
5.          e1 (ssname ss 0)
   
6.          e2 (ssname ss 1)
   
7.         dat (entget e1)
   
8.          p1 (cdr (assoc 10 dat))
   
9.          p2 (cdr (assoc 11 dat))
   
10.         dat (entget e2)
    
11.          p3 (cdr (assoc 10 dat))
    
12.          p4 (cdr (assoc 11 dat))
    
13.    )
    
14.    (if (> (car p1) (car p2))
    
15.      (setq pa p2 pb p1)
    
16.      (setq pa p1 pb p2)
    
17.    )
    
18.    (if (> (car p3) (car p4))
    
19.      (setq pc p4 pd p3)
    
20.      (setq pc p3 pd p4)
    
21.    )
    
22.    
    
23.    (if (> (car pa) (car pc))
    
24.      (setq p1 pc p2 pb)  
    
25.      (setq p1 pa p2 pd)
    
26.    )  
    
27.      
    
28.    (command "line" p1 p2 "")
    
29. )
    

<br /> (defun c:test ()<br />    (setq ss (ssget '((0 . "LINE")))<br />          e1 (ssname ss 0)<br />          e2 (ssname ss 1) <br />         dat (entget e1)<br />          p1 (cdr (assoc 10 dat))<br />          p2 (cdr (assoc 11 dat))<br />         dat (entget e2)<br />          p3 (cdr (assoc 10 dat))<br />          p4 (cdr (assoc 11 dat))<br />    )<br />    (if (> (car p1) (car p2))<br />      (setq pa p2 pb p1)<br />      (setq pa p1 pb p2)<br />    )<br />    (if (> (car p3) (car p4))<br />      (setq pc p4 pd p3)<br />      (setq pc p3 pd p4)<br />    )<br />    <br />    (if (> (car pa) (car pc)) <br />      (setq p1 pc p2 pb)  <br />      (setq p1 pa p2 pd) <br />    )  <br />      <br />    (command "line" p1 p2 "")<br /> ) <br />

chpmould

测试了,好象类似以下两条垂直的直线取的点需要再调整程序...

langjs

楼主的要求没有表达清楚，条件不足无法达到理想效果。
假设如图所示，AB，CD两条线，而最长的两条线BC＝AD，你需要画的线是哪个？

xyp1964

2. (defun c:tt (/ ss i ptn s1)
   
3.   (setq ss  (ssget '((0 . "LINE")))
   
4. i   -1
   
5. ptn '()
   
6.   )
   
7.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.     (setq ptn (cons (xyp-get-dxf 10 s1) ptn)
   
9.    ptn (cons (xyp-get-dxf 11 s1) ptn)
   
10.     )
    
11.   )
    
12.   (setq ptn (xyp-Sort-PtnByXYZ ptn))
    
13.   (command "line" (car ptn) (last ptn) "")
    
14.   (princ)
    
15. )

(defun c:tt (/ ss i ptn s1)<br />   (setq ss  (ssget '((0 . "LINE")))<br /> i   -1<br /> ptn '()<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq ptn (cons (xyp-get-dxf 10 s1) ptn)<br />    ptn (cons (xyp-get-dxf 11 s1) ptn)<br />     )<br />   )<br />   (setq ptn (xyp-Sort-PtnByXYZ ptn))<br />   (command "line" (car ptn) (last ptn) "")<br />   (princ)<br /> )

chpmould

版主用了自己的函数,不知版主的思路是否使用点排序....