[原创]：如图示的两条多义线，如何得到两者之间的面积

winabcd

用BPOLY函数可以判别失败情况，如果用BOUNDARY命令，能不能作这样的判别？即LISP中如何判别BOUNDARY命令失败？

shuaier

编程高手太多了!

同心

编程高手太多了!

kuku_1979

(defun c:lsp_45()
(setvar "cmdecho" 0)
(setq pt (getpoint "\n选取点: "))
(while pt
(setvar "cecolor" "1")
(command "bpoly" pt "")
(setq en (entlast))
(if (/= en nil)
(progn
(command "area" "o" en)
(setq aa (getvar "area"))
(redraw en 3)
(alert (strcat "面积=" (rtos aa 2)))
)  
)
(entdel en)
(setvar "cecolor" "bylayer")
(setq pt (getpoint "\n选取点: "))      
)
(prin1)
)

kuku_1979

先生成边界，然后量取边界范围面积，最后删除边界。