[求助]求所有线与线的交点坐标

3206498

本人是新手，希望大家能说的详细点

如图：附件

白色的是一段连接起来的多段线（有线段，也有曲线），求所有红色的线与白线的交点，并将这些坐标值导出去，希望大家不吝赐教！

 

xyp1964

2. (defun c:tt ()
3.   (CMDLA0)
4.   (setq ss   (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
5. plst '()
6. i    -1
7.   )
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
9.     (setq ps  (vlax-curve-getstartPoint s1)
10.    p1  (xyp-get-MinMaxPoint s1 1)
11.    p1  (list (car p1) (cadr p1) (caddr ps))
12.    p9  (xyp-get-MinMaxPoint s1 9)
13.    dx  (- (car p9) (car p1))
14.    ddx 0
15.     )
16.     (while (< ddx dx)
17.       (setq s2  (xyp-add-line p1 (xyp-get-Pt2DY p1 1))
18.      p1  (xyp-get-Pt2DX p1 0.1)
19.      ddx  (+ ddx 0.1)
20.      ptn  (xyp-get-Inters s2 s1 1)
21.      plst (if ptn
22.      (cons ptn plst)
23.    )
24.       )
25.       (foreach pt ptn
26. (xyp-Cross pt 0.1 1)
27.       )
28.       (entdel s2)
29.     )
30.   )
31.   (princ plst)
32.   (CMDLA1)
33. )

(defun c:tt ()   (CMDLA0)   (setq ss   (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))) plst '() i    -1   )   (while (setq s1 (ssname ss (setq i (1+ i))))     (setq ps  (vlax-curve-getstartPoint s1)    p1  (xyp-get-MinMaxPoint s1 1)    p1  (list (car p1) (cadr p1) (caddr ps))    p9  (xyp-get-MinMaxPoint s1 9)    dx  (- (car p9) (car p1))    ddx 0     )     (while (< ddx dx)       (setq s2  (xyp-add-line p1 (xyp-get-Pt2DY p1 1))      p1  (xyp-get-Pt2DX p1 0.1)      ddx  (+ ddx 0.1)      ptn  (xyp-get-Inters s2 s1 1)      plst (if ptn      (cons ptn plst)    )       )       (foreach pt ptn (xyp-Cross pt 0.1 1)       )       (entdel s2)     )   )   (princ plst)   (CMDLA1) )

3206498

xyp1964

提示

 

错误: no function definition: CMDLA0

 

怎么弄？

lenlenq

那需要XYP1964的函数支持