[求助]：如何求直线与pline（封闭方形）的交点？

JQKA

如何求直线与pline（封闭方形）的交点？

漏网の鱼

用LINE分别求PLINE的四边不就行了？

XDSoft

最初由 JQKA 发布
[B]如何求直线与pline（封闭方形）的交点？ [/B]

VLISP里面有求任意实体交点的interSectWith方法，去看看VLISP手册。

XDRX_API里面也提供了求任意实体交点的函数：

1. 
   
2. [FONT=courier new]
   
3. 347. xdrx_entity_intersect
   
4. 
   
5. 功能：求两个实体的交点
   
6. 
   
7. 调用格式：(xdrx_entity_intersect <实体1> <实体2> [实体延伸标记])
   
8. 
   
9. 返回值：交点 OR NIL
   
10. 
    
11. 说明：[实体延伸标记]：可选项，默认0
    
12.      0：不延伸两实体
    
13.      1：延伸第一个实体
    
14.      2：延伸第二个实体
    
15.      3：都延伸
    
16.      
    
17. 348. xdrx_entity_boundingBoxIntersect
    
18. 
    
19. 功能：求两实体包围盒的交点
    
20. 
    
21. 调用格式：(xdrx_entity_boundingBoxIntersect <实体1> <实体2> [实体延伸标记])
    
22. 
    
23. 返回值：交点或者nil
    
24. 
    
25. 说明：见上函数。
    
26. [/FONT]

复制代码

LUCAS

2. 
   
3. ;;-----------------------------------------------
   
4. ;; CDNC5-02.LSP
   
5. ;; Bill Kramer
   
6. ;; Find all intersections between objects in
   
7. ;; the selection set SS.
   
8. ;; Process - Create drawing with intersecting lines and lwpolylines.
   
9. ;;           Load function set
   
10. ;;           Run command function INTLINES
    
11. ;;           Intersections are marked with POINT objects on current layer
    
12. (defun C:INTLINES (/ SSL                ;length of SS
    
13.                    PTS                        ;returning list
    
14.                    AOBJ1                ;Object 1
    
15.                    AOBJ2                ;Object 2
    
16.                    N1                        ;Loop counter
    
17.                    N2                        ;Loop counter
    
18.                    IPTS                        ;intersects
    
19.                    A N NN HOLDOSMODE)
    
20.   (vl-load-com)
    
21.   (COMMAND "_.UNDO" "_GROUP")
    
22.   (SETQ HOLDOSMODE (GETVAR "OSMODE"))
    
23.   (SETVAR "OSMODE" 0)
    
24.   (setq SS (ssget '((0 . "*LINE,ARC"))))
    
25.   (setq        N1  0                                ;index for outer loop
    
26.         SSL (sslength SS)
    
27.   )                                        ; Outer loop, first through second to last
    
28.   (while (< N1 (1- SSL))                ; Get object 1, convert to VLA object type
    
29.     (setq AOBJ1        (ssname SS N1)
    
30.           AOBJ1        (vlax-ename->vla-object AOBJ1)
    
31.           N2        (1+ N1)
    
32.     )                                        ;index for inner loop
    
33. ;;; Inner loop, go through remaining objects
    
34.     (while (< N2 SSL)                        ; Get object 2, convert to VLA object
    
35.       (setq AOBJ2 (ssname SS N2)
    
36.             AOBJ2 (vlax-ename->vla-object AOBJ2)
    
37. ;;;Find intersections of Objects
    
38.             IPTS  (vla-intersectwith
    
39.                     AOBJ1
    
40.                     AOBJ2
    
41.                     0
    
42.                   )                        ; variant result
    
43.             IPTS  (vlax-variant-value IPTS)
    
44.       )
    
45. ;;;Variant array has values?
    
46.       (if (> (vlax-safearray-get-u-bound IPTS 1) 0)
    
47.         (progn                                ;array holds values, convert it
    
48.           (setq        IPTS                        ;to a list.
    
49.                  (vlax-safearray->list IPTS)
    
50.           )
    
51. ;;;Loop through list constructing points
    
52.           (while (> (length IPTS) 0)
    
53.             (setq PTS  (cons (list (car IPTS)
    
54.                                    (cadr IPTS)
    
55.                                    (caddr IPTS)
    
56.                              )
    
57.                              PTS
    
58.                        )
    
59.                   IPTS (cdddr IPTS)
    
60.             )
    
61.           )
    
62.         )
    
63.       )
    
64.       (setq N2 (1+ N2))
    
65.     )                                        ;inner loop end
    
66.     (setq N1 (1+ N1))
    
67.   )                                        ;outer loop end
    
68.   (setq N 0)
    
69.   (repeat (length PTS)
    
70.     (setq A (ssget "C" (nth N PTS) (nth N PTS)))
    
71.     (setq NN 0)
    
72.     (repeat (sslength A)
    
73.       (command "_.BREAK" (ssname A NN) (nth N PTS) (nth N PTS))
    
74.       (setq NN (1+ NN))
    
75.     )
    
76.     (setq N (1+ N))
    
77.   )
    
78. (SETVAR "OSMODE" HOLDOSMODE)
    
79. (COMMAND "_.UNDO" "_END")
    
80. (PRINC)
    
81. )
    

<br /> ;;-----------------------------------------------<br /> ;; CDNC5-02.LSP<br /> ;; Bill Kramer<br /> ;; Find all intersections between objects in<br /> ;; the selection set SS.<br /> ;; Process - Create drawing with intersecting lines and lwpolylines.<br /> ;;           Load function set<br /> ;;           Run command function INTLINES<br /> ;;           Intersections are marked with POINT objects on current layer<br /> (defun C:INTLINES (/ SSL                ;length of SS<br />                    PTS                        ;returning list<br />                    AOBJ1                ;Object 1<br />                    AOBJ2                ;Object 2<br />                    N1                        ;Loop counter<br />                    N2                        ;Loop counter<br />                    IPTS                        ;intersects<br />                    A N NN HOLDOSMODE)<br />   (vl-load-com)<br />   (COMMAND "_.UNDO" "_GROUP")<br />   (SETQ HOLDOSMODE (GETVAR "OSMODE"))<br />   (SETVAR "OSMODE" 0)<br />   (setq SS (ssget '((0 . "*LINE,ARC"))))<br />   (setq        N1  0                                ;index for outer loop<br />         SSL (sslength SS)<br />   )                                        ; Outer loop, first through second to last<br />   (while (< N1 (1- SSL))                ; Get object 1, convert to VLA object type<br />     (setq AOBJ1        (ssname SS N1)<br />           AOBJ1        (vlax-ename->vla-object AOBJ1)<br />           N2        (1+ N1)<br />     )                                        ;index for inner loop<br /> ;;; Inner loop, go through remaining objects<br />     (while (< N2 SSL)                        ; Get object 2, convert to VLA object<br />       (setq AOBJ2 (ssname SS N2)<br />             AOBJ2 (vlax-ename->vla-object AOBJ2)<br /> ;;;Find intersections of Objects<br />             IPTS  (vla-intersectwith<br />                     AOBJ1<br />                     AOBJ2<br />                     0<br />                   )                        ; variant result<br />             IPTS  (vlax-variant-value IPTS)<br />       )<br /> ;;;Variant array has values?<br />       (if (> (vlax-safearray-get-u-bound IPTS 1) 0)<br />         (progn                                ;array holds values, convert it<br />           (setq        IPTS                        ;to a list.<br />                  (vlax-safearray->list IPTS)<br />           )<br /> ;;;Loop through list constructing points<br />           (while (> (length IPTS) 0)<br />             (setq PTS  (cons (list (car IPTS)<br />                                    (cadr IPTS)<br />                                    (caddr IPTS)<br />                              )<br />                              PTS<br />                        )<br />                   IPTS (cdddr IPTS)<br />             )<br />           )<br />         )<br />       )<br />       (setq N2 (1+ N2))<br />     )                                        ;inner loop end<br />     (setq N1 (1+ N1))<br />   )                                        ;outer loop end<br />   (setq N 0)<br />   (repeat (length PTS)<br />     (setq A (ssget "C" (nth N PTS) (nth N PTS)))<br />     (setq NN 0)<br />     (repeat (sslength A)<br />       (command "_.BREAK" (ssname A NN) (nth N PTS) (nth N PTS))<br />       (setq NN (1+ NN))<br />     )<br />     (setq N (1+ N))<br />   )<br /> (SETVAR "OSMODE" HOLDOSMODE)<br /> (COMMAND "_.UNDO" "_END")<br /> (PRINC)<br /> )<br />