[求助]：lisp面积？

cxg121

图形中有很多图层和内容，其中c10层专门放闭合好的多段线，如何做到点击图上一点，然后返回该点所在的闭合的多段线的面积，难在还有小岛！

fsxm

可以考虑用加剖面线的方法~之后再求出剖面线的面积就行!

cxg121

具体该怎么去弄呢?对大家来讲应该还是挺实用的一个话题呀。

fsxm

试试吧！

2. 
   
3. (defun c:test ()
   
4.   (setvar "cmdecho" 1)
   
5.   (command "undo" "be")
   
6.   (command "BOUNDARY")
   
7.   (while (/= 0 (getvar "cmdactive")) (command pause))
   
8.   (command "change" "l" "" "p" "c" 1 "")
   
9.   (command "area" "o" "l")
   
10.   (alert (strcat "面积为:" (rtos (getvar "area"))))
    
11.   (command "undo" "e" "undo" "")
    
12.   (princ)
    
13. )
    

<br /> (defun c:test ()<br />   (setvar "cmdecho" 1)<br />   (command "undo" "be")<br />   (command "BOUNDARY")<br />   (while (/= 0 (getvar "cmdactive")) (command pause))<br />   (command "change" "l" "" "p" "c" 1 "")<br />   (command "area" "o" "l")<br />   (alert (strcat "面积为:" (rtos (getvar "area"))))<br />   (command "undo" "e" "undo" "")<br />   (princ)<br /> )<br />

cxg121

里面有孤岛的时候无法处理啊，计算的面积是错误的，因为他已经包括孤岛的面积了。
（另外，能否点击后直接弹出结果？不用再按空格了）
谁能解决孤岛的问题呢？