;计算两条多段线相交（有两个交点）所形成的面域的面积
;1.&nbsp到本网站的“下载”网页中的
;&nbsp&nbsp“计算两条多段线相交（有两个交点）所形成的面域的面积”
;&nbsp&nbsp&nbsp下载“qmj0.fas”
;2.&nbsp将下载的“qmj0.fas”存入G盘的mjjs目录下，如存入
;&nbsp&nbsp&nbsp其它地址，则修改程序中“(load&nbsp"g:/mjjs/qmj0.fas")”
;&nbsp&nbsp&nbsp使之相符。
;3.&nbsp使用以下示例程序，即可计算要求的面积。

(defun&nbspc:cc()
&nbsp&nbsp&nbsp&nbsp(if&nbsp(null&nbspqmj0)(load&nbsp"g:/mjjs/qmj0.fas"))
&nbsp&nbsp&nbsp&nbsp(while&nbsp(setq&nbspbz&nbspnil&nbspen1&nbsp(car&nbsp(entsel&nbsp"\n&nbsp请选择多段线1:")))
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp(redraw&nbspen1&nbsp3)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp(if&nbsp(setq&nbspen2&nbsp(car&nbsp(entsel&nbsp"\n&nbsp请选择多段线2:")))
&nbsp&nbsp&nbsp&nbsp&nbsp(progn&nbsp(redraw&nbspen2&nbsp3)&nbsp(qmj0&nbspen1&nbspen2))
&nbsp)
&nbsp&nbsp&nbsp&nbsp)
&nbsp) [ 点击下载 ]