;1. 到本网站的“下载”网页中的
; “计算两条多段线相交（有两个交点）所形成的面域的面积”
; 下载“qmj0.fas”
;2. 将下载的“qmj0.fas”存入G盘的mjjs目录下，如存入
; 其它地址，则修改程序中“(load "g:/mjjs/qmj0.fas")”
; 使之相符。
;3. 使用以下示例程序，即可计算要求的面积。
(defun c:cc()
(if (null qmj0)(load "g:/mjjs/qmj0.fas"))
(while (setq bz nil en1 (car (entsel "\n 请选择多段线1:")))
(redraw en1 3)
(if (setq en2 (car (entsel "\n 请选择多段线2:")))
(progn (redraw en2 3) (qmj0 en1 en2))
)
)
)
[ 点击下载 ]TAG: 测量
发表评论
【声明】 路桥吾爱刊载的资讯及其他内容均由网友提供分享 并且纯属作者个人观点，不表示路桥吾爱同意其说法或描述，仅为提供更多信息，也不构成任何建议。网友转载请注明原作者姓名及出处。如有侵犯到您的版权,请与我们联系，我们会马上进行重新整理!
