请教判断闭合PLINE点的两个算法问题

小狼

问题1：


一条闭合PLINE线，怎么能判断出线是以顺时针方向走的？


问题2：


怎样能判断出一条闭合PLINE线的左上角？


以上问题用于测绘地藉图的宗地线

王咣生

贴出示意图来说明你的问题,因为PLINE可以是很复杂的.

meflying

这是判断顺逆时针的程序第二个问题左上角的概念不够明确

2. (vl-load-com)
3. (defun GetCen(pl / pt1 pt2)
4.    (vla-getboundingbox (vlax-ename->vla-object pl) 'pt1 'pt2)
5.    (setq pt1 (vlax-safearray->list pt1))
6.    (setq pt2 (vlax-safearray->list pt2))
7.    (list (/ (+ (car pt1) (car pt2)) 2.0)
8.   (/ (+ (cadr pt1) (cadr pt2)) 2.0)
9.    )
10. )
11. (defun GEO_CCW (p0 p1 p2 p3 / ang1 ang2 ang3)
12.    (setq ang1 (angle p0 p1))
13.    (setq ang2 (angle p0 p2))
14.    (setq ang1 (- ang2 ang1))
15.    (if (> (abs ang1) pi)
16.        (setq ang1 (+ (* -2 pi (/ ang1 (abs ang1))) ang1))
17.    )
18.    (setq ang3 (angle p0 p3))
19.    (setq ang2 (- ang3 ang2))
20.    (if (> (abs ang2) pi)
21.        (setq ang2 (+ (* -2 pi (/ ang2 (abs ang2))) ang2))
22.    )
23.    (if (> (* ang1 ang2) 0)
24.        (/ ang1 (abs ang1))
25.        (cond
26.            ((> (abs ang1) (abs ang2))
27.              (if (= ang2 0)
28.    0
29.    (/ ang2 (abs ang2)))
30.              )
31.            ((<= (abs ang1) (abs ang2))
32.              (if (= ang1 0)
33.    0
34.    (/ ang1 (abs ang1)))
35.            )
36.        )
37.    )
38. );DEFUN
39. (defun c:PlineCCW (/ pline step param nParam pt pt1 pt2 ptc i mp CCWLST)
40.    (setq pline (car (entsel "Select lwpline")))
41.    (setq step 100)
42.    (setq mp (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
43.    (setq ptc (getcen pline))
44.    (setq param (/ (vlax-curve-getDistAtParam pline (vlax-curve-getEndParam pline)) step))
45.    (setq i 0)
46.    (repeat (1- step)
47.        (setq nParam (* i param))
48.        (setq pt (vlax-curve-getPointAtdist pline nParam))
49.        (setq pt1 (vlax-curve-getPointAtdist pline (+ (* (/ 0.5 step) param) nParam)))
50.        (setq pt2 (vlax-curve-getPointAtdist pline (+ (* (/ 1.0 step) param) nParam)))
51.        (setq CCWLST (append CCWLST (list (GEO_CCW ptc pt pt1 pt2))))
52.        (setq i (1+ i))
53.    )
54.    (if (> (length (vl-remove 1.0 CCWLST)) (length (vl-remove -1.0 CCWLST)))
55.        (progn           
56.            (princ "\nPline is clockwise")
57.        )
58.        (princ "\nPline is counterclockwise")
59.    )
60.    (princ)
61. ) ;end defun

(vl-load-com) (defun GetCen(pl / pt1 pt2)    (vla-getboundingbox (vlax-ename->vla-object pl) 'pt1 'pt2)    (setq pt1 (vlax-safearray->list pt1))    (setq pt2 (vlax-safearray->list pt2))    (list (/ (+ (car pt1) (car pt2)) 2.0)   (/ (+ (cadr pt1) (cadr pt2)) 2.0)    ) ) (defun GEO_CCW (p0 p1 p2 p3 / ang1 ang2 ang3)    (setq ang1 (angle p0 p1))    (setq ang2 (angle p0 p2))    (setq ang1 (- ang2 ang1))    (if (> (abs ang1) pi)        (setq ang1 (+ (* -2 pi (/ ang1 (abs ang1))) ang1))    )    (setq ang3 (angle p0 p3))    (setq ang2 (- ang3 ang2))    (if (> (abs ang2) pi)        (setq ang2 (+ (* -2 pi (/ ang2 (abs ang2))) ang2))    )    (if (> (* ang1 ang2) 0)        (/ ang1 (abs ang1))        (cond            ((> (abs ang1) (abs ang2))              (if (= ang2 0)    0    (/ ang2 (abs ang2)))              )            ((<= (abs ang1) (abs ang2))              (if (= ang1 0)    0    (/ ang1 (abs ang1)))            )        )    ) );DEFUN (defun c:PlineCCW (/ pline step param nParam pt pt1 pt2 ptc i mp CCWLST)    (setq pline (car (entsel "Select lwpline")))    (setq step 100)    (setq mp (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))    (setq ptc (getcen pline))    (setq param (/ (vlax-curve-getDistAtParam pline (vlax-curve-getEndParam pline)) step))    (setq i 0)    (repeat (1- step)        (setq nParam (* i param))        (setq pt (vlax-curve-getPointAtdist pline nParam))        (setq pt1 (vlax-curve-getPointAtdist pline (+ (* (/ 0.5 step) param) nParam)))        (setq pt2 (vlax-curve-getPointAtdist pline (+ (* (/ 1.0 step) param) nParam)))        (setq CCWLST (append CCWLST (list (GEO_CCW ptc pt pt1 pt2))))        (setq i (1+ i))    )    (if (> (length (vl-remove 1.0 CCWLST)) (length (vl-remove -1.0 CCWLST)))        (progn                       (princ "\nPline is clockwise")        )        (princ "\nPline is counterclockwise")    )    (princ) ) ;end defun

小狼

非常感谢！


左上角点就是PLINE线的Y坐标比较大，X坐标比较小的点


我也不知道怎么说才算，反正大概就是这意思，下图的圆就左上角点

meflying

这样子哪个算左上角？

小狼

上面那个点

小狼

meflying 可以判断出来吗？

mkhsj928

判断左上角点的方法这样行不：


先求出线的范围框，用（vla-getboundingbox)


然后用框的左上角点和右下角点的直线同多义线求交点，


然后求交点表中最左的那点与多义线中各节点距离最近的点就算了


呵呵，还是麻烦哦！

Ea

X 最小 Y 最大的点

meflying

Ea发表于2004-12-1 2:41:00X 最小 Y 最大的点

这两者并不一定是一个点。。。 判断左上点这个问题从概念上还没解决这个问题，一个图画出来，如果让两个人来判断左上点，可能结果都不一样，这种无法确定的东西是无法做的