[求助]请问如何求出两条多义线的交点？

lusj

谢谢，我刚学ＶＬ，有许多东西还不懂，你能告诉我＂vla-intersectwith ax_ent_1 ax_ent_2 acextendnone＂这句应怎样理解，为什么我在ＶＬ函数表中查不到？

meflying

你搜索intersectwith，这是VBA的用法，
至于VL的用法可以参考帮助中开发人员手册中的使用ActiveX

lusj

谢谢

amos_lg

有一个命令, 好象是“intersectionwith”也可求交点，不过限于二维spline线

BDYCAD

有沒有可以求出其它圖元的交點的呢?如求出ARC和LINE的交點或ELLIPSE和CIRCLE的交點的程序.如果沒有,我覺得這個程序要升級到如上面所說的才很棒.希望這個見議值得各位專家們和版主和大家去深入研究.

daren326

请问mccad
     如果是在延长线上的交点又怎么求呢

meflying

(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
此句改为如下即可：
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendboth))

aeo000000

贴一个吧，选中线得所有交点:

2. 
   
3. (defun get_all_inters_in_SS (SS /
   
4.                              SSL ;length of SS
   
5.                              PTS ;returning list
   
6.                              aObj1 ;Object 1
   
7.                              aObj2 ;Object 2
   
8.                              N1  ;Loop counter
   
9.                              N2  ;Loop counter
   
10.                              iPts ;intersects
    
11.                              )
    
12.   (setq N1 0 ;index for outer loop
    
13.         SSL (sslength SS))
    
14.   ; Outer loop, first through second to last
    
15.   (while (< N1 (1- SSL))
    
16.     ; Get object 1, convert to VLA object type
    
17.     (setq aObj1 (ssname SS N1)
    
18.           aObj1 (vlax-ename->vla-object aObj1)
    
19.           N2 (1+ N1)) ;index for inner loop
    
20.     ; Inner loop, go through remaining objects
    
21.     (while (< N2 SSL)
    
22.       ; Get object 2, convert to VLA object
    
23.       (setq aObj2 (ssname SS N2)
    
24.             aObj2 (vlax-ename->vla-object aObj2)
    
25.             ; Find intersections of Objects
    
26.             iPts (vla-intersectwith aObj1
    
27.                    aObj2 0)
    
28.             ; variant result
    
29.             iPts (vlax-variant-value iPts))
    
30.       ; Variant array has values?
    
31.       (if (> (vlax-safearray-get-u-bound iPts 1)
    
32.              0)
    
33.         (progn ;array holds values, convert it
    
34.           (setq iPts ;to a list.
    
35.                  (vlax-safearray->list iPts))
    
36.           ;Loop through list constructing points
    
37.           (while (> (length iPts) 0)
    
38.             (setq Pts (cons (list (car iPts)
    
39.                                   (cadr iPts)
    
40.                                   (caddr iPts))
    
41.                             Pts)
    
42.                   iPts (cdddr iPts)))))
    
43.       (setq N2 (1+ N2))) ;inner loop end
    
44.     (setq N1 (1+ N1))) ;outer loop end
    
45.   Pts) ;return list of points found
    
46. ;;-----------------------------------------------   END LISTING 1
    
47. ;;
    
48. ;; Remaining lines of code for download version, used to demonstrate and test the utility in Listing 1.
    
49. ;;
    
50. ;; Process - Create drawing with intersecting lines and lwpolylines.
    
51. ;;           Load function set
    
52. ;;           Run command function INTLINES
    
53. ;;           Intersections are marked with POINT objects on current layer
    
54. ;;
    
55. (defun C:INTLINES ()
    
56.   (prompt "\nINTLINES running to demonstrate GET_ALL_INTERS_IN_SS function.")
    
57.   (setq SS1 (get_all_lines_as_SS)
    
58.         PTS (get_all_inters_in_ss SS1)
    
59.         )
    
60.   (foreach PT PTS ;;Loop through list of points
    
61.     (command "_POINT" PT)) ;;Create point object
    
62.   (setvar "PDMODE" 34) ;;display points so you can see them
    
63.   (command "_REGEN")
    
64. )
    
65. ;;
    
66. ;;-----------------------------------------------
    
67. ;;  Get all lines and lwpolyline objects in the
    
68. ;;  drawing and return as a selection set.
    
69. ;;
    
70. (defun get_all_Lines_as_SS ()
    
71.   (ssget "X" '((0 . "LINE,LWPOLYLINE"))))
    
72. ;;
    

<br /> (defun get_all_inters_in_SS (SS /<br />                              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 />                              )<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))<br />     ; 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)) ;index for inner loop<br />     ; Inner loop, go through remaining objects<br />     (while (< N2 SSL)<br />       ; 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 aObj1<br />                    aObj2 0)<br />             ; variant result<br />             iPts (vlax-variant-value iPts))<br />       ; Variant array has values?<br />       (if (> (vlax-safearray-get-u-bound iPts 1)<br />              0)<br />         (progn ;array holds values, convert it<br />           (setq iPts ;to a list.<br />                  (vlax-safearray->list iPts))<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 />                             Pts)<br />                   iPts (cdddr iPts)))))<br />       (setq N2 (1+ N2))) ;inner loop end<br />     (setq N1 (1+ N1))) ;outer loop end<br />   Pts) ;return list of points found<br /> ;;-----------------------------------------------   END LISTING 1<br /> ;;<br /> ;; Remaining lines of code for download version, used to demonstrate and test the utility in Listing 1.<br /> ;;<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 /> ;;<br /> (defun C:INTLINES ()<br />   (prompt "\nINTLINES running to demonstrate GET_ALL_INTERS_IN_SS function.")<br />   (setq SS1 (get_all_lines_as_SS)<br />         PTS (get_all_inters_in_ss SS1)<br />         )<br />   (foreach PT PTS ;;Loop through list of points<br />     (command "_POINT" PT)) ;;Create point object<br />   (setvar "PDMODE" 34) ;;display points so you can see them<br />   (command "_REGEN")<br /> )<br /> ;;<br /> ;;-----------------------------------------------<br /> ;;  Get all lines and lwpolyline objects in the<br /> ;;  drawing and return as a selection set.<br /> ;;<br /> (defun get_all_Lines_as_SS ()<br />   (ssget "X" '((0 . "LINE,LWPOLYLINE"))))<br /> ;;<br />

wb0815

真是高手

龙龙仔

這個程序用了N年,在CADENCE網站來的,但CADENCE網站已被cadalyst合併了
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=2521