XDGE几何库应用(六)--Pline内部最窄处

st788796

1. (defun c:tt1 (/ e ge gelst gelst1 ge1 ge2 ptl pts)
   
2.   (if (and (setq
   
3.              e1        (xdrx_entsel "\nPick Curve: " '((0 . "LWPOLYLINE")))
   
4.            )
   
5.            (setq ge (xdge::constructor (car e1)))
   
6.       )
   
7.     (progn
   
8.       (setq gelst (xdge::getpropertyvalue ge "getCurveList"));_pline 每段 Ge 列表
   
9.       (while gelst
   
10.         (setq ge1    (car gelst)
    
11.               gelst  (cdr gelst)
    
12.               gelst1 gelst
    
13.         )
    
14.         (while gelst1
    
15.           (setq ge2 (car gelst1))
    
16.           (setq        gcc (xdge::getpropertyvalue
    
17.                       ge1
    
18.                       "getClosestPointTo"
    
19.                       ge2
    
20.                     );_两 Ge 间最近点 PointOnCurve
    
21.                 pts (mapcar '(lambda (x) (xdge::getpropertyvalue x "Point"))
    
22.                             gcc
    
23.                     );_取出 PointOnCurve 的 Point
    
24.           )
    
25.           (if (and
    
26.                 (not (equal (car pts) (cadr pts) 1e-3));_不能是 Pline 的顶点
    
27.                 (= (xdrx_point_getRelationAtClosedCurve
    
28.                      (apply 'xdrx_line_midp pts)
    
29.                      (car e1)
    
30.                    )
    
31.                    2
    
32.                 );_中点在 Pline  内部
    
33.                 (setq lineSeg3d        (xdge::constructor
    
34.                                   "kLineSeg3d"
    
35.                                   (car pts)
    
36.                                   (cadr pts)
    
37.                                 )
    
38.                 );_构造一个 AcGeLineSeg3d
    
39.                 (setq gcc
    
40.                        (xdge::constructor "kCurveCurveInt3d" ge lineSeg3d)
    
41.                 );_构造一个 相交对象
    
42.                 (= (xdge::getpropertyvalue gcc "numIntPoints") 2);_该相交对象只有两个交点即 LineSeg3d 的两个端点
    
43.               )
    
44.             (setq ptl (cons pts ptl))
    
45.           )
    
46.           (setq gelst1 (cdr gelst1))
    
47.         )
    
48.       )
    
49.       (xdrx_entity_setcolor
    
50.         (apply
    
51.           'xdrx_line_make
    
52.           (car
    
53.             (vl-sort ptl
    
54.                      '(lambda (x1 x2)
    
55.                         (< (apply 'distance x1) (apply 'distance x2))
    
56.                       )
    
57.             );_取出最短距离点对
    
58.           )
    
59.         )
    
60.         1
    
61.       )
    
62.     )
    
63.   )
    
64.   (xdge::free)
    
65.   (princ)
    
66. )

(defun c:tt1 (/ e ge gelst gelst1 ge1 ge2 ptl pts)<br />   (if (and (setq<br />              e1        (xdrx_entsel "\nPick Curve: " '((0 . "LWPOLYLINE")))<br />            )<br />            (setq ge (xdge::constructor (car e1)))<br />       )<br />     (progn<br />       (setq gelst (xdge::getpropertyvalue ge "getCurveList"));_pline 每段 Ge 列表<br />       (while gelst<br />         (setq ge1    (car gelst)<br />               gelst  (cdr gelst)<br />               gelst1 gelst<br />         )<br />         (while gelst1<br />           (setq ge2 (car gelst1))<br />           (setq        gcc (xdge::getpropertyvalue<br />                       ge1<br />                       "getClosestPointTo"<br />                       ge2<br />                     );_两 Ge 间最近点 PointOnCurve <br />                 pts (mapcar '(lambda (x) (xdge::getpropertyvalue x "Point"))<br />                             gcc<br />                     );_取出 PointOnCurve 的 Point<br />           )<br />           (if (and<br />                 (not (equal (car pts) (cadr pts) 1e-3));_不能是 Pline 的顶点<br />                 (= (xdrx_point_getRelationAtClosedCurve<br />                      (apply 'xdrx_line_midp pts)<br />                      (car e1)<br />                    )<br />                    2<br />                 );_中点在 Pline  内部<br />                 (setq lineSeg3d        (xdge::constructor<br />                                   "kLineSeg3d"<br />                                   (car pts)<br />                                   (cadr pts)<br />                                 )<br />                 );_构造一个 AcGeLineSeg3d<br />                 (setq gcc<br />                        (xdge::constructor "kCurveCurveInt3d" ge lineSeg3d)<br />                 );_构造一个 相交对象<br />                 (= (xdge::getpropertyvalue gcc "numIntPoints") 2);_该相交对象只有两个交点即 LineSeg3d 的两个端点<br />               )<br />             (setq ptl (cons pts ptl))<br />           )<br />           (setq gelst1 (cdr gelst1))<br />         )<br />       )<br />       (xdrx_entity_setcolor<br />         (apply<br />           'xdrx_line_make<br />           (car<br />             (vl-sort ptl<br />                      '(lambda (x1 x2)<br />                         (< (apply 'distance x1) (apply 'distance x2))<br />                       )<br />             );_取出最短距离点对<br />           )<br />         )<br />         1<br />       )<br />     )<br />   )<br />   (xdge::free)<br />   (princ)<br /> )

iLisp

能不能找最宽处？