[求助]怎样读取三维地形图上与某平面直线相交的点？

jiaodahaoren

 一个地形图，都是空间的直线，Z坐标就是直线的标高。
我画一条道路的纵断面是一条平面直线(Z=0)，想把地形图上与这条直线相交点的三维坐标读取出来，
autolisp怎么实现呢？
我想可能用到：对空间直线的遍历，是否有交点的判断，实时变化的数组以存储交点结果，结果的输出。
我是菜鸟，这些命令都不晓得，哪位大侠能指导一下，若大侠很忙  给个思路和相应的命令即可。

jiaodahaoren

都忙着还是没人会啊，怎么没人出手相助啊。

danxingpen

交点的概念,而且这些东西你自己说着明白,我个人看着可是很模糊,最好上图.

xyp1964

2. ;; 任意空间直线在z=0平面的交点
3. (defun c:tt ()
4.   (if (and
5. (setq s1 (car (entsel "\n选择直线1: ")))
6. (setq s2 (car (entsel "\n选择直线2: ")))
7. (= (xyp-get-dxf 0 s1) "LINE")
8. (= (xyp-get-dxf 0 s2) "LINE")
9.       )
10.     (progn
11.       (setq p1 (xyp-3d2d (xyp-get-dxf 10 s1))
12.      p2 (xyp-3d2d (xyp-get-dxf 11 s1))
13.      p3 (xyp-3d2d (xyp-get-dxf 10 s2))
14.      p4 (xyp-3d2d (xyp-get-dxf 11 s2))
15.       )
16.       (if (setq pt (inters p1 p2 p3 p4 nil))
17. (xyp-Cross pt 100 1)
18.       )
19.     )
20.   )
21.   (princ)
22. )

;; 任意空间直线在z=0平面的交点 (defun c:tt ()   (if (and (setq s1 (car (entsel "\n选择直线1: "))) (setq s2 (car (entsel "\n选择直线2: "))) (= (xyp-get-dxf 0 s1) "LINE") (= (xyp-get-dxf 0 s2) "LINE")       )     (progn       (setq p1 (xyp-3d2d (xyp-get-dxf 10 s1))      p2 (xyp-3d2d (xyp-get-dxf 11 s1))      p3 (xyp-3d2d (xyp-get-dxf 10 s2))      p4 (xyp-3d2d (xyp-get-dxf 11 s2))       )       (if (setq pt (inters p1 p2 p3 p4 nil)) (xyp-Cross pt 100 1)       )     )   )   (princ) )