关于多边形凸角凹角的判断

Lisphk

xyp1964 发表于 2013-10-4 23:32

这个是做什么的？

Lisphk

xyp1964 发表于 2013-10-4 23:32

大师只是在找凸角吗？ 怎么没看到凹角的标记？另外演示图片太小了，找个局部放大下，能说明问题就OK了。

st788796

授人于鱼不如授人于渔
用到的函数完全可以用 Lisp 自己实现，不过要麻烦很多了！

1. (defun c:tt (/ e pts area ia ib ic ba bb bc p a b c)
   
2.   (if
   
3.     (and (setq
   
4.            e (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))
   
5.          )
   
6.          (xdrx_curve_isclosed e)
   
7.     )
   
8.      (progn
   
9.        (xdrx_polyline_compress e)
   
10.        (setq pts  (xdrx_entity_getstretchpoint e)
    
11.              area (apply 'xdrx_points_area pts)
    
12.        )
    
13.        (if (minusp area) ;_顺时针为负
    
14.          (progn
    
15.            (xdrx_curve_reverse e)
    
16.            (setq pts (reverse pts))
    
17.          )
    
18.        )
    
19.        (setq pts (append pts (list (car pts) (cadr pts))))
    
20.        (while (caddr pts) ;_three
    
21.          (mapcar 'set '(a b c) pts)
    
22.          (mapcar '(lambda (x y z)
    
23.                     (set x (vlax-curve-getparamatpoint e z))
    
24.                     (set y (xdrx_polyline_getbulgeat e (fix (eval x))))
    
25.                   )
    
26.                  '(ia ib ic)
    
27.                  '(ba bb bc)
    
28.                  (list a b c)
    
29.          )
    
30.          (cond
    
31.            ((and (= ba bb 0.) ;_全直线
    
32.                  (> (xdrx_points_area a b c) 0.)
    
33.             )
    
34.             (xdrx_point_make b)
    
35.            )
    
36.            ((and (or (zerop ba) (zerop bb))
    
37.                  (progn        (setq p
    
38.                                (vlax-curve-getpointatparam
    
39.                                  e
    
40.                                  (if (zerop ba)
    
41.                                    (/ (+ ib ic) 2.)
    
42.                                    (/ (+ ia ib) 2.)
    
43.                                  )
    
44.                                )
    
45.                         )
    
46.                         (and (if (zerop ba)
    
47.                                (minusp (xdrx_point_dist2line p b c))
    
48.                                (minusp (xdrx_point_dist2line p a b))
    
49.                              );_ 左侧，圆弧内凹
    
50.                              (> (xdrx_points_area a b c) 0.);_且面积为正
    
51.                         )
    
52.                  )
    
53.             )
    
54.             (xdrx_point_make b)
    
55.            )
    
56.            (t)
    
57.          )
    
58.          (setq pts (cdr pts))
    
59.        )
    
60.      )
    
61.   )
    
62.   (princ)
    
63. )

(defun c:tt (/ e pts area ia ib ic ba bb bc p a b c)<br />   (if<br />     (and (setq<br />            e (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))<br />          )<br />          (xdrx_curve_isclosed e)<br />     )<br />      (progn<br />        (xdrx_polyline_compress e)<br />        (setq pts  (xdrx_entity_getstretchpoint e)<br />              area (apply 'xdrx_points_area pts)<br />        )<br />        (if (minusp area) ;_顺时针为负<br />          (progn<br />            (xdrx_curve_reverse e)<br />            (setq pts (reverse pts))<br />          )<br />        )<br />        (setq pts (append pts (list (car pts) (cadr pts))))<br />        (while (caddr pts) ;_three<br />          (mapcar 'set '(a b c) pts)<br />          (mapcar '(lambda (x y z)<br />                     (set x (vlax-curve-getparamatpoint e z))<br />                     (set y (xdrx_polyline_getbulgeat e (fix (eval x))))<br />                   )<br />                  '(ia ib ic)<br />                  '(ba bb bc)<br />                  (list a b c)<br />          )<br />          (cond<br />            ((and (= ba bb 0.) ;_全直线<br />                  (> (xdrx_points_area a b c) 0.)<br />             )<br />             (xdrx_point_make b)<br />            )<br />            ((and (or (zerop ba) (zerop bb))<br />                  (progn        (setq p<br />                                (vlax-curve-getpointatparam<br />                                  e<br />                                  (if (zerop ba)<br />                                    (/ (+ ib ic) 2.)<br />                                    (/ (+ ia ib) 2.)<br />                                  )<br />                                )<br />                         )<br />                         (and (if (zerop ba)<br />                                (minusp (xdrx_point_dist2line p b c))<br />                                (minusp (xdrx_point_dist2line p a b))<br />                              );_ 左侧，圆弧内凹<br />                              (> (xdrx_points_area a b c) 0.);_且面积为正<br />                         )<br />                  ) <br />             )<br />             (xdrx_point_make b)<br />            )<br />            (t)<br />          )<br />          (setq pts (cdr pts))<br />        )<br />      )<br />   )<br />   (princ)<br /> )

小陶

在顶点画圆，再用BOUNDARY生成多段线判断面积，方法有点笨！:lol

Lisphk

小陶 发表于 2013-10-11 10:33
在顶点画圆，再用BOUNDARY生成多段线判断面积，方法有点笨！

找到这些凹角后，怎么做逃角？ 什么是逃角？ 另外你的程序，生成BOUNDARY后，怎么判断的。

小陶

Lisphk 发表于 2013-10-11 10:53
找到这些凹角后，怎么做逃角？ 什么是逃角？ 另外你的程序，生成BOUNDARY后，怎么判断的。

做五金模的都知道！隔行如隔山！

st788796

小陶 发表于 2013-10-11 11:10
做五金模的都知道！隔行如隔山！

怎么把专业的东西转换到Autocad那些事比专业还难