很多line的交点求出

citykunan

怎样，可以把很多line的交点，类似于网格状的很多直线的焦点求出，附值给变量？
谢谢。

BDYCAD

本站有這樣的程序，　我找找看．　

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

meflying

显示交点的数目，至于怎样将它的值传给变量，我想你应该能做到吧

2. 
   
3. (defun GetInterPoint (ent1 ent2 / ax_ent_1 ax_ent_2 intpoints points i)
   
4.   (setq ax_ent_1 (vlax-ename->vla-object ent1)
   
5.         ax_ent_2 (vlax-ename->vla-object ent2)
   
6.   )
   
7.   (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
   
8.   (setq intpoints (vlax-variant-value intpoints))
   
9.   (setq i 0)
   
10.   (if (> (vlax-safearray-get-u-bound intpoints 1) 0)
    
11.     (repeat (/ (+ 1
    
12.               (- (vlax-safearray-get-u-bound intpoints 1)
    
13.                  (vlax-safearray-get-l-bound intpoints 1)
    
14.               )
    
15.            )
    
16.            3
    
17.         )
    
18.       (setq points (append points (list (list
    
19.                       (vlax-safearray-get-element intpoints i)
    
20.                       (vlax-safearray-get-element intpoints (+ i 1))
    
21.                       (vlax-safearray-get-element intpoints (+ i 2))
    
22.                     )))
    
23.       )
    
24.       (setq i (+ 3 i))
    
25.     )
    
26.   )
    
27.   points
    
28. )
    
29. 
    
30. (defun c:main( / ss n i j ent1 ent2 points)
    
31.   (setq ss (ssget))
    
32.   (if ss
    
33.     (setq n (sslength ss))
    
34.   )
    
35.   (setq i 0 j 0)
    
36.   (while (< i n)
    
37.     (setq j (1+ i))
    
38.     (setq ent1 (ssname ss i))
    
39.     (while (< j n)
    
40.       (setq ent2 (ssname ss j))
    
41.       (setq points (append points (getinterpoint ent1 ent2)))
    
42.       (setq j (1+ j))
    
43.     )
    
44.     (setq i (1+ i))
    
45.   )
    
46.   (Princ points)
    
47.   (princ (strcat "\n共有交点" (itoa (length points)) "个"))
    
48.   (princ)
    
49. )
    
50. 
    

<br /> (defun GetInterPoint (ent1 ent2 / ax_ent_1 ax_ent_2 intpoints points i)<br />   (setq ax_ent_1 (vlax-ename->vla-object ent1)<br />         ax_ent_2 (vlax-ename->vla-object ent2)<br />   )<br />   (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))<br />   (setq intpoints (vlax-variant-value intpoints))<br />   (setq i 0)<br />   (if (> (vlax-safearray-get-u-bound intpoints 1) 0)<br />     (repeat (/ (+ 1<br />               (- (vlax-safearray-get-u-bound intpoints 1)<br />                  (vlax-safearray-get-l-bound intpoints 1)<br />               )<br />            )<br />            3<br />         )<br />       (setq points (append points (list (list<br />                       (vlax-safearray-get-element intpoints i)<br />                       (vlax-safearray-get-element intpoints (+ i 1))<br />                       (vlax-safearray-get-element intpoints (+ i 2))<br />                     )))<br />       )<br />       (setq i (+ 3 i))<br />     )<br />   )<br />   points<br /> )<br /> <br /> (defun c:main( / ss n i j ent1 ent2 points)<br />   (setq ss (ssget))<br />   (if ss<br />     (setq n (sslength ss))<br />   )<br />   (setq i 0 j 0)<br />   (while (< i n)<br />     (setq j (1+ i))<br />     (setq ent1 (ssname ss i))<br />     (while (< j n)<br />       (setq ent2 (ssname ss j))<br />       (setq points (append points (getinterpoint ent1 ent2)))<br />       (setq j (1+ j))<br />     )<br />     (setq i (1+ i))<br />   )<br />   (Princ points)<br />   (princ (strcat "\n共有交点" (itoa (length points)) "个"))<br />   (princ)<br /> )<br /> <br />

citykunan

万分感谢两位版主。