请教高手求中点问题

coolpoom

有首尾相接的四条直线L1、L2、L3、L4；如何求L1与L3、L2与L4的中点，目的：在屏幕显示L1与L3、L2与L4的距离。

 

就像距形一样，我要长和宽。

zhelindaxues

楼主说的不清楚啊。什么叫求2条线的中点啊？是指2条线的中点连线吗？就算是2条线的中点连线也不是2条线的距离啊。

coolpoom

2楼说的没错，我是要中点连线的长度。

zhelindaxues

如果是要线的中点的话 直接知道4个交点就可以了啊。4条线头尾相交 就有4个交点。如果2点分别为（X1,Y1）(X2,Y2)那么中点就是（(X1+X1)/2,(Y1+Y2)/2）.

caiqs

求L1与L3、L2与L4的中点 

在屏幕显示L1与L3、L2与L4的距离。 

表达不清

zhelindaxues

中点按坐标算就行了  2线的距离。。。哥们上过中学的都该知道 平面内不平行的话 2线的距离就是0

luowy

楼主还是用个好一点的图，表达好一点，看得我一头雾水

coolpoom

第一种情况是我想要的，但往往因为绘图的顺序问题会有第二种情况出现，有什么解决办法？

2. (defun c:temp()
3.   (setq ss(ssget))
4.   (setq len (sslength ss))
5. (if (< len 4)(progn(alert "只能选4条线!")(exit())))
6. (if (> len 4)(progn(alert "只能选4条线!")(exit())))
7.   (setq ent1 (ssname ss 0)
8. ent2 (ssname ss 1)
9. ent3 (ssname ss 2)
10. ent4 (ssname ss 3))
11.   (setq dxf1 (entget ent1)
12. dxf2 (entget ent2)
13. dxf3 (entget ent3)
14. dxf4 (entget ent4))
15.   (setq qidian1 (cdr (assoc 10 dxf1))
16. qidian2 (cdr (assoc 10 dxf2))
17. qidian3 (cdr (assoc 10 dxf3))
18. qidian4 (cdr (assoc 10 dxf4))
19. duandian1 (cdr (assoc 11 dxf1))
20. duandian2 (cdr (assoc 11 dxf2))
21. duandian3 (cdr (assoc 11 dxf3))
22. duandian4 (cdr (assoc 11 dxf4)))
23.   (setq mp1 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian1 duandian1)
24. mp2 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian2 duandian2)
25. mp3 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian3 duandian3)
26. mp4 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian4 duandian4))
27.   (command "line" mp1 mp3 "")
28.   (command "line" mp2 mp4 ""))

(defun c:temp()   (setq ss(ssget))   (setq len (sslength ss)) (if (< len 4)(progn(alert "只能选4条线!")(exit()))) (if (> len 4)(progn(alert "只能选4条线!")(exit())))   (setq ent1 (ssname ss 0) ent2 (ssname ss 1) ent3 (ssname ss 2) ent4 (ssname ss 3))   (setq dxf1 (entget ent1) dxf2 (entget ent2) dxf3 (entget ent3) dxf4 (entget ent4))   (setq qidian1 (cdr (assoc 10 dxf1)) qidian2 (cdr (assoc 10 dxf2)) qidian3 (cdr (assoc 10 dxf3)) qidian4 (cdr (assoc 10 dxf4)) duandian1 (cdr (assoc 11 dxf1)) duandian2 (cdr (assoc 11 dxf2)) duandian3 (cdr (assoc 11 dxf3)) duandian4 (cdr (assoc 11 dxf4)))   (setq mp1 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian1 duandian1) mp2 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian2 duandian2) mp3 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian3 duandian3) mp4 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian4 duandian4))   (command "line" mp1 mp3 "")   (command "line" mp2 mp4 ""))

zhelindaxues

分2个程序就是了。弄个DCL 在开始时先选择第一还是第二种情况。然后按照选择进入对应的程序。

zhelindaxues

或者不用DCL 在程序里直接写。

（defun c:temp()

(setq qingkuang(getint:"请选择情况类型：(1/2)"))

(if (= qingkuang 1)(goto1)(goto2))

）

(defun goto1()

第一种情况程序

)

（defun goto2()

第二种情况程序

）